werc/pub/sitemap.tpl

<h1>Site map</h1>

%{

saveddf = $dirfilter

fn getMdDesc {
    sed 's/^(.......................................................................................................[^ ]*).*$/\1/g; 1q' < $1 
}

fn listDir {
    d=$1
    dirfilter = $saveddf
    blogDirs = ()
    if (test -f $d/_config)
        . $d/_config

    echo '<ul>'

    if (! ~ $#blogDirs 0 || ~ $1 blog Blog )
        echo '' 
    if not {

    for ( i in `{ ls -d $d/*/ $d/*.md $d/*.html >[2]/dev/null |sed $dirfilter^'/index$/d;' } ) {
        desc = ''
        if (test -f $i.md) {
            desc = `{ getMdDesc $i.md }
        }
        if (test -f $i/index.md) {
            desc = `{ getMdDesc $i/index.md }
        }
        if (test -f $i.html) {
            # H1 is not reliable because htmlroff doesn't use it :(
            #desc = `{ cat $i.html |sed 32q | grep '<[Hh]1>' |sed 's/<[Hh]1>(.*)(<\/[Hh]1>|$)/\1/;s/<[^>]*>//g;1q'  } 
            # Pick the first line of body  instead
            desc = `{ /bin/sed -e '0,/<[Bb][Oo][Dd][Yy]/d;s/<[^>]*>//g;/^$/d' < $i.html >[2]/dev/null | sed 1q }
        }
        if (! ~ $desc '')
            desc = ' - '$"desc
        tit = `{basename $i|sed 's/_/ /g'}
        echo '<li><a style="text-transform: capitalize" href="'$i'">'^$"tit^'</a>' $desc '</li>' 
        if (test -d $i)
            @{ listDir $i }
    }
    }
    echo '</ul>'
}

cd $sitedir
listDir .

%}