Auto-excerpt

[manuel-rubio]

Hi, when I wrote posts in Wordpress and later in Octopress, I always use the auto-excerpt option to add a tag like <!--more--> to the text to indicate what part should be the excerpt for the post. I was searching something similar in the code of lambdpad and I found nothing, so, I wrote this:

add_autoblurb(Proplists) ->
    case {
        plist:value("blurb", Proplists, undefined),
        plist:value('__file__', Proplists, undefined)
    } of
        {undefined,File} ->
            [{"blurb",get_autoblurb(File)}|Proplists];
        {Blurb,_File} ->
            [{"blurb",Blurb}|Proplists]
    end.

get_autoblurb(File) ->
    {ok, Content} = file:read_file(File),
    case binary:split(Content, <<"\n\n">>) of
        [_,Text] ->
            case binary:split(Text, <<"<!--more-->">>) of
                [Blurb,_] ->
                    Blurb;
                [NoBlurbDefined] ->
                    NoBlurbDefined
            end;
        [OnlyText] ->
            <<>>
    end.

Note that I use blurb entry for this :-P It pass to the function the metadata from file and extract the first paragraphs from the file, until <!--more--> tag or all the text if the tag is not defined.