From 0059526c602216c96435d3ac3659350bf509560b Mon Sep 17 00:00:00 2001
From: Uriel <u@berlinblue.org>
Date: Sun, 16 Mar 2008 09:16:39 +0100
Subject: [PATCH] Make default dir listing a bit less ugly

---
 bin/controller.rc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/controller.rc b/bin/controller.rc
index ad28110..996f264 100755
--- a/bin/controller.rc
+++ b/bin/controller.rc
@@ -98,9 +98,9 @@ fn genbody {
     if not if ( test -f pub/^$reqpath^.tpl )
         template.awk pub/^$reqpath^.tpl | rc $rcargs
     if not if(~ $body */index && ~ $#blogDirs 0) {
-            echo '<h1>' `{basename `{basename -d $body}}'</h1>'
-            echo '<ul>'
-            ls -F `{ basename -d $body } | sed $dirfilter' s,^'$sitedir'/(.*),<li><a href="\1">\1</a></li>,'
+            echo '<h1 style="text-transform: capitalize;">' `{basename -d $body|sed -e 's,.*//,,g' -e 's,/$,,' -e 's,/, / ,g' } '</h1>'
+            echo '<ul style="text-transform: capitalize;">'
+            ls -F `{ basename -d $body } | sed -e $dirfilter' s,^'$sitedir'/.*/([^$].*),<li><a href="\1">\1</a></li>,'
             echo '</ul>'
     }
     if not if(~ $#blogDirs 0)