From 900fe672a53d126acaa2e4610b9fb4e0ff25c11b Mon Sep 17 00:00:00 2001
From: Uriel <u@berlinblue.org>
Date: Mon, 28 Jun 2010 09:06:45 +0000
Subject: [PATCH] Make dir listings a bit prettier by replacing [-_] with
 spaces.

---
 bin/corehandlers.rc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/corehandlers.rc b/bin/corehandlers.rc
index f471929..5f518d0 100644
--- a/bin/corehandlers.rc
+++ b/bin/corehandlers.rc
@@ -75,9 +75,9 @@ fn dir_listing_handler {
     d=`{basename -d $1}
     if(~ $#d 0)
         d='/'
-    echo $d|sed 's,.*//,,g; s,/$,,; s,/, / ,g; s,.*,<h1 class="dir-list-head">&</h1> <ul class="dir-list">,'
+    echo $d|sed 's,.*//,,g; s,/$,,; s,/, / ,g; s/[\-_]/ /g; s,.*,<h1 class="dir-list-head">&</h1> <ul class="dir-list">,'
     # Symlinks suck: '/.' forces ls to list the linked dir if $d is a symlink.
-    ls -F $dir_listing_ls_opts $sitedir$d/. | sed $dirfilter$dirclean' s,.*/([^/]+/?)$,<li><a href="\1">\1</a></li>,'
+    ls -F $dir_listing_ls_opts $sitedir$d/. | sed $dirfilter$dirclean | awk '{match($0, "/[^/]*/?$"); l=substr($0, RSTART+1, RLENGTH-1);n=l; gsub(/[\-_]/, " ", n); print "<li><a href=\""l"\">"n"</a></li>"; }'
     echo '</ul>'
 }