[hackers] diri: new tip (= 55)

changeset: 55:54cf4c41522e
tag: tip
user: arg_AT_suckless.org
date: Tue Feb 06 11:06:45 2007 +0100
files: show.rc
description:
fixed some bugs/missing features in Kris' awk-driven menu

diff -r f53076de4387 -r 54cf4c41522e show.rc
--- a/show.rc Tue Feb 06 10:39:09 2007 +0100
+++ b/show.rc Tue Feb 06 11:06:45 2007 +0100
@@ -9,18 +9,22 @@ fn menu {
                 /^([a-zA-Z0-9_]+[\/*]?)+$/ {
                         isdir = match($0, "/$");
                         sub("[*/]$", "");
- bname = $0;
+ file = bname = $0;
+ sub("^(.*/)", "", file);
                         sub("^(.*/)?([0-9]+_)?", "", bname);
                         gsub("_", " ", bname);
                         if(isdir)
                                 bname = bname "/"
                         sub("[^/]+$", "")
- path = $0 bname
-
- if(isdir && match(ENVIRON["PATH_INFO"]"/", "^"path)) {
+ path = $0 file
+ ispath = match(ENVIRON["PATH_INFO"]"/", "^"path);
+ if(isdir && ispath) {
                                 print "<li><a href=\"" urlbase path "\" class=\"current\">" bname "</a>"
                                 system("rc -c ''menu " path "''");
- }else
+ }
+ else if(ispath)
+ print "<li><a href=\"" urlbase path "\" class=\"current\">" bname "</a>"
+ else
                                 print "<li><a href=\"" urlbase path "\">" bname "</a>"
                         print "</li>"
                 }' | awk '{ print "\t" $0 }'
Received on Tue Feb 06 2007 - 11:10:02 UTC