make_doc

#!/usr/bin/env escript
%% -*- erlang -*-

%% edown is designed to work well with rebar, but in order to use edown
%% to document itself, we need to explicitly set the path to ebin/, so
%% that we pick up the newly built edown doclet. I haven't found a way
%% to do this with 'rebar doc'.
%%
main([]) ->
    code:add_patha("ebin"),
    Default = "esl",
    U = case os:getenv("TGT") of
	    [] -> Default;
	    false -> Default;
	    Str   -> Str
	end,
    TopURL = top_url(U),
    io:fwrite("Making edown docs for [~s]...~n", [TopURL]),
    R = edoc:application(edown, ".",
			 [{doclet, edown_doclet},
			  {source_path, ["src"]},
			  {app_default,"http://www.erlang.org/doc/man"},
			  {stylesheet, ""},  % don't copy stylesheet.css
			  {image, ""},       % don't copy erlang.png
                          {edown_target, target()},
			  {top_level_readme,
			   {"./README.md", TopURL}}]),
    case R of
	ok ->
	    halt();
	Err ->
	    io:fwrite("~p~n", [Err]),
	    halt(1)
    end.

top_url(User) ->
    case os:getenv("EDOWN_TOP_URL") of
        false ->
            "http://github.com/" ++ User ++ "/edown";
        URL ->
            URL
    end.

target() ->
    case os:getenv("EDOWN_TARGET") of
        false -> github;
        "github" -> github;
        "stash"  -> stash
    end.