wiki_to_html.erl

-module(wiki_to_html).

%% File    : wiki_to_html.erl
%% Author  : Joe Armstrong (joe@bluetail.com)
%%         : Johan Bevemyr, minor modifications (jb@bevemyr.com)
%%         : Mickael Remond (mickael.remond@erlang-fr.org)
%% Purpose : Convert wiki page tree to HTML
%%
%% $Id$

-export([format_wiki/3,format_wiki/4, format_link/2, format_wiki_files/4,
        format_wiki_files/5, format_menu_link/3]).

-include_lib("kernel/include/file.hrl").

-import(lists, [member/2, map/2]).

format_wiki_files(_Page, _FileDir, [], _Root) -> [];
format_wiki_files(Page, FileDir, Files, Root) ->
    format_wiki_files(Page, FileDir, Files, Root, "Attached files:").

format_wiki_files(Page, FileDir, Files, Root, Heading) ->
    LinkFun = fun(I) -> format_link(I, FileDir, Page, Root, show) end,
    ("<hr><b><p>" ++ yaws_api:htmlize(Heading) ++ "</b><br>\n"
     "<table cellspacing=10 width = \"100%\">\n"
     ++ lists:map(LinkFun, lists:keysort(2,Files)) ++
     "</table></p>\n").

format_wiki(Page, Wik, Root) ->
    LinkFun = fun(I) -> format_link(I, Page, Root, show) end,
    pp(Wik, LinkFun, Page, Root).

format_wiki(Page, Wik, Root, preview) ->
    LinkFun = fun(I) -> format_link(I, Page, Root, preview) end,
    pp(Wik, LinkFun, Page, Root).

format_link(Page, Root) ->
    format_link({wikiLink, Page}, [], Root, show).


%% TODO: Refactor that: The use of the page is ugly:
%% Most of the time the Page is in the second parameter,
%% but in the wikiLink it is the second element of the first parameter tuple
format_link({wikiLink, Page}, _, Root, _Mode) ->
    %% MR: I first need to extract the code here into a separate function:
    wiki_link(Page, Page, Root);
format_link({editTag, Tag}, Page, _Root, show) ->
    ["<a href=\"editTag.yaws?node=",wiki:str2urlencoded(Page),
     "&tag=",i2s(Tag),"\">",
     "<img border=0 src='WikiPreferences.files/edit.gif'></a> "];
format_link({editTag, _Tag}, _Page, _Root, preview) ->
    ["<img border=0 src='WikiPreferences.files/edit.gif'>"].

format_link({file, FileName, C}, FileDir, Page, Root, Mode) ->
    format_link({file, FileName, "", C}, FileDir, Page, Root, Mode);

format_link({file, FileName, Description, _}, FileDir, _Page, Root,_) ->
    Size = get_filesize(filename:join([Root,FileDir,FileName])),
    ["<tr><td valign=top align=left><a href=\"",
     wiki:str2urlencoded(FileDir),
     "/", wiki:str2urlencoded(FileName),"\" title='",Size,"'>",
     yaws_api:htmlize(FileName),
     "</a></td><td align=left valign=top>",
     yaws_api:htmlize(Description), "</td></tr>\n"].

wiki_link(LinkName, Page, Root) ->
    FullName = Root ++ "/" ++ Page ++ ".wob",
    case is_file(FullName) of
        true ->
            ["<a href=\"showPage.yaws?node=",
             wiki:str2urlencoded(Page),"\">",yaws_api:htmlize(LinkName),"</a> "];
        false ->
            [" ",yaws_api:htmlize(Page),"<a href=\"createNewPage.yaws?node=",
             wiki:str2urlencoded(Page),"\">???</a>"]
    end.

%% Same as format_link, but drop the prefix
%% This is used to create the Wiki menu
format_menu_link(Prefix, Page, Root) ->
    Prefix_length = length(Prefix),
    LinkName = case Prefix_length < length(Page) of
                   true  -> string:substr(Page, Prefix_length + 1);
                   false -> Page
               end,
    wiki_link(LinkName, Page, Root).


get_filesize(File) ->
    case file:read_file_info(File) of
        {ok, FileInfo} ->
            Size = FileInfo#file_info.size/1024,
            io_lib:format("~.1fKB",[Size]);
        _ -> "unknown"
    end.


i2s(X) ->
    integer_to_list(X).

pp({wik,L}, F, Node, Root) ->
    map(fun(I) -> pp(I, F, Node, Root) end, L);
pp({txt,_,Str}, F, Node, _Root) ->
    wiki_format_txt:format(Str, F, Node);
pp({open,Tag,Str}, F, Node, Root) ->
    open("#CCFFCC",Tag,F,pp({txt,9999,Str}, F, Node, Root));
pp({write_append,Tag,Str}, F, Node, Root) ->
    open("#99FFFF",Tag,F,pp({txt,8888,Str}, F, Node, Root));
pp(Other, _F, _Node, Root) ->
    wiki:show({cannot,format,Other}, Root).

open(Color, Tag, F, Stuff) ->
    ["\n<table width=\"90%\" cellpadding=20>\n<tr><td bgcolor=\"",
     Color, "\">\n", Stuff,
     "<p>",F({editTag,Tag}),"</td></tr></table><p>\n"].

is_file(File) ->
    case file:read_file_info(File) of
        {ok, _} ->
            true;
        _ ->
            false
    end.