Minor comment cleanups.

apps/blagh/app.rc

@@ -1,9 +1,29 @@
-fn blagh_test {
+fn blagh_init {
-    ! ~ $#blaghDirs 0 # && test -d / `{echo '-a -d '^blaghDirs}
+    if(~ $#blaghDirs 0 && ~ $req_path */[bB]log/index)
-}
+        blaghDirs=( . )
 
-fn blagh_setup {
+    # Should not match sub-dirs!
+    if(! ~ $#blaghDirs 0) {
+    # && test -d / `{echo '-a -d '^$req_path^$blaghDirs}
+
+        if(~ $req_path */[0-9][0-9][0-9][0-9]/ */[0-9][0-9][0-9][0-9]/[0-9][0-9]/ */[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/*)
+            status='Use default handler'
+
+        if not if(~ $req_path */index) {
             app_body_handler='blagh_body'
+            #u=`{cleanname $baseuri^`{basename -d '/'^$uri}|sed 's,:/,://,'} # Sed recovers '/' in 'http:/' stripped by cleanname
+            u=`{cleanname $baseuri^$req_path'index}
+            extraHeaders=$"extraHeaders ^ \
+'<link rel="alternate" type="application/rss+xml" title="RSS" href="'$"u'.rss" />' ^ \
+'<link rel="alternate" type="application/atom+xml" title="ATOM" href="'$"u'.atom" />'
+
+        }
+        if not if(~ $req_path */index.atom)
+            app_body_handler='blagh_body'
+        if not if(~ $req_path */index.rss)
+            app_body_handler='blagh_body'
+
+    }
 }
 
 fn blagh_body {

apps/hello/app.rc

@@ -1,10 +1,8 @@
-fn hello_test {
+fn hello_init {
-    ~ $req_path /hello
+    if(~ $req_path /hello) {
-}
-
-fn hello_setup {
         app_body_handler = 'hello_body'
         pageTitle='Hi title!'
+    }
 }
 
 fn hello_body {

bin/cgilib.rc

@@ -265,11 +265,9 @@ fn select_apps {
     found=()
     for(a in $enabled_apps) {
         . ./apps/$a/app.rc
-        if($a^'_test') {
+        if($a^'_test')
-            $a^'_setup'
             found=yes
     }
-    }
 
     ~ $#found 1 # Set status
 }

bin/werc.rc

@@ -31,7 +31,7 @@ fn hide_paths {
 
 # Sidebar 
 fn gensidebar {
-    # Ignore stderr, last item in path might be a file that doesn't exist (eg., foo for foo.md)
+    # Ignore stderr, last path element might be a file that doesn't exist (eg., foo for foo.md)
     ls -F $sitedir^/./^$req_paths_list >[2]/dev/null | sed 's,^'$sitedir',,; '^$dirfilter | sort -u | awk -F/ ' 
     function p(x, y, s) {
         for(i=0; i < x-y; i+=1)
@@ -248,7 +248,6 @@ if not {
 p=()
 cd $sitedir
 for(i in ('' $args)) {
-    # TODO We can build a list of paths here that can be used in sidebar, instead of iterating args twice
     p=($"p^/^$i)
     req_paths_list=($req_paths_list $p)
     # We don't want blog settings to cascade into posts, note that we are inBlog instead