swerc

commit b7ca4790451890bd05b72456d520c50fea90d6ed
parent af22f507bbb3b7b37084319583968bace8800184
Author: uriel@engel.se.cat-v.org <unknown>
Date:   Mon, 25 Jun 2007 23:14:52 +0200

Add 'permalinks' to blog posts.
Diffstat:
M
bin/controller.rc
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/bin/controller.rc b/bin/controller.rc
@@ -75,7 +75,7 @@ fn sortedBlogPostList {
 fn blogTitle {
     title=`{basename $1 | sed 's/^[0-9\-]*_(.*)\.md$/\1/; s/_/ /g' }
     du=`{ls -l $1}
-    echo '##' $title '*('By $du(4) Last mod: $du(7 8 9) ')*'
+    echo '##<a href="' `{echo $1 | sed 's,^sites/[^/]*/*/,/,; s/\.md$//' } '">' $"title^'</a> *('By $du(4) Last mod: $du(7 8 9) ')*'
 }
 
 # Body