swerc

commit 7a8cc8c3732c30e5430f03ca09556e899ee6587b
parent 574dd98247379ad895a1749373eadbf075b0610c
Author: uriel@engel.se.cat-v.org <unknown>
Date:   Wed, 24 Dec 2008 12:19:06 +0100

New blagh app
Diffstat:
A
apps/blagh/app.rc
 | 
19
+++++++++++++++++++
A
apps/blagh/convert.rc
 | 
20
++++++++++++++++++++

2 files changed, 39 insertions(+), 0 deletions(-)
diff --git a/apps/blagh/app.rc b/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  
+}
diff --git a/apps/blagh/convert.rc b/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
+
+}