New blagh app

apps/blagh/app.rc

@@ -0,0 +1,19 @@
+fn blagh_test {
+    ! ~ $#blaghDirs 0 # && test -d / `{echo '-a -d '^blaghDirs}
+}
+
+fn blagh_setup {
+    app_body_handler='blagh_body'
+}
+
+fn blagh_body {
+    posts=`{ls  -F $blaghDirs^/./[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/ | sed -n 's,/\./,/|/,; /\/$/p' | sort -r '-t|' +1 | sed 's,/+\|/+,/,'}
+    for(p in $posts)
+        show_post $p | $formatter 
+}
+
+fn show_post {
+    bds=$blaghDirs^'|'
+    l=`{echo $1 |sed 's,'$bds'XXX,,g'}
+    sed '1s|.*|[&]('$l') -'^$l'|' < $1/index.md  
+}

apps/blagh/convert.rc

@@ -0,0 +1,20 @@
+#!/usr/bin/env rc
+
+path=($PLAN9/bin/ $path)
+
+for(p in *.md) {
+    echo
+    echo '========================='
+    echo p $p
+    pp=`{echo $p | sed 's/^([0-9][0-9][0-9][0-9])-([0-9][0-9])-([0-9][0-9])[\-_](.*).md$/\1 \2 \3 \4/' }
+    echo pp $pp
+
+    d=$pp(1)^'/'^$pp(2)^'/'^$pp(3)^'/'^$pp(4)^'/'
+
+    mkdir -p $d
+    echo $pp(4) | sed -e 's/^[0-9]_//; s/_/ /g;' > $d/index.md
+    echo '=================================' >> $d/index.md
+    echo >> $d/index.md
+    cat $p >> $d/index.md
+
+}