shithub: werc

ref: 5cf42c28a0223319b7744ce57bfeeea7dd70a850
dir: /lib/sitemap.tpl/

<h1>Site map</h1>

%{
p=`{pwd}
tmpfile=$p/tmp/sitemap_$pid.txt
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>'

    # Don't hide blog dirs for now
    #if (! ~ $#blogDirs 0 || ~ $1 */blog */Blog )
    #    echo '' 
    #if not 
    {

    for ( i in `{ ls -d $d/*/ $d/*.md $d/*.html $d/*.txt >[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>' 
        echo $baseuri^$i >> $tmpfile
        if (test -d $i)
            @{ listDir $i }
    }
    }
    echo '</ul>'
}

cd $sitedir 
listDir .

cp $tmpfile ./sitemap.txt
rm $tmpfile

%}