big cleanup

22 files changed, 0 insertions, 772 deletions

diff --git a/apps/blagh/app.rc b/apps/blagh/app.rc
deleted file mode 100644
index c63689d..0000000
--- a/apps/blagh/app.rc
+++ /dev/null
@@ -1,142 +0,0 @@
-fn conf_enable_blog {
-    blagh_uri=$conf_wd
-    blagh_dirs=$*
-    if(~ $#blagh_dirs 0)
-        blagh_dirs=( . )
-    conf_enable_app blagh
-
-    if(~ $"conf_blog_editors '')
-        conf_blog_editors=blog-editors
-
-    if(~ $"conf_max_posts_per_page '')
-        conf_max_posts_per_page=32
-}
-
-fn blagh_init {
-    if(~ $#blagh_dirs 0 && ~ $req_path */[bB]log/*) {
-        blagh_uri=`{echo $req_path | sed 's,(/[bB]log/).*,\1,'}
-        blagh_dirs=( . )
-    }
-
-    # Should not match sub-dirs!
-    if(! ~ $#blagh_dirs 0) {
-    # && test -d / `{echo '-a -d '^$blagh_root^$blagh_dirs}
-        blagh_url=$base_url^$blagh_uri
-        blagh_root=$sitedir^$blagh_uri
-        if(check_user $conf_blog_editors) {
-            editor_mode=on
-            if(~ $"post_arg_date '')
-                post_date=`{datei|sed 's,-,/,g'}
-            if not
-                post_date=$post_arg_date
-            ll_add handlers_bar_left echo '<a href="'$blagh_uri'new_post">Make a new post</a>'
-        }
-
-        if(~ $req_path $blagh_uri) {
-            handler_body_main=blagh_body
-            u=$blagh_uri'index'
-            extraHeaders=$"extraHeaders ^ \
-'<link rel="alternate" type="application/atom+xml" title="ATOM" href="'$"u'.atom" />
-<link rel="alternate" type="application/rss+xml" title="RSS" href="'$"u'.rss" />
-<link rel="alternate" type="application/json" title="JSON" href="'$"blagh_uri'feed.json" />'
-        }
-        if not if(~ $req_path $blagh_uri^index.atom)
-            blagh_setup_feed_handlers atom.tpl 'application/atom+xml'
-
-        if not if(~ $req_path $blagh_uri^index.rss)
-            blagh_setup_feed_handlers rss20.tpl 'text/xml; charset=utf-8'
-
-				if not if(~ $req_path $blagh_uri^feed.json)
-            blagh_setup_feed_handlers jsonfeed.tpl 'application/json; charset=utf-8'
-
-        if not if(~ $req_path $blagh_uri^new_post && ! ~ $#editor_mode 0) {
-            handler_body_main=( tpl_handler `{get_lib_file blagh/new_post.tpl apps/blagh/new_post.tpl} )
-            if(~ $REQUEST_METHOD POST) {
-                if(mkbpost $"post_arg_body $"post_date $"post_arg_title $post_arg_id)
-                    post_redirect $blagh_uri
-                if not
-                    notify_errors=$status
-            }
-        }
-        
-    }
-}
-
-fn blagh_setup_feed_handlers {
-    handler_body_main=NOT_USED_by_blagh_feeds
-    res_tail=()
-    http_content_type=$2
-    headers=()
-    master_template=apps/blagh/$1 # Should we allow tempalte override?
-}
-
-fn blagh_body {
-    if (! ~ $"blogTitle '')
-        echo '<h1>'$"blogTitle'</h1>'
-
-    # Direct links to feeds are disabled because they are not very useful, add clutter and might waste pagerank.
-    # An user can add this on their own using handlers_body_head anyway.
-    #echo '<div style="text-align:right">(<a href="index.rss">RSS Feed</a>|<a href="index.atom">Atom Feed</a>)</div>'
-
-    # XXX Not sure why this fixes issues with blog setup, probably bug in fltr_cache!
-    for(p in `{get_post_list $blagh_root^$blagh_dirs}) {
-        l=`{echo -n $p|sed 's!'$sitedir^'/?(.*)([0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9])(/[^/]+/)!\2 /\1\2\3!'}
-        sed '1s!.*![&]('^$l(2)^') ('^$l(1)^')!' < $p/index.md 
-        echo # Needed extra \n so markdown doesn't mess up the formatting, probably can be done in sed.
-    } | $formatter
-    # XXX BUG! Markdown [references] break because multiple markdown documents are merged. Should format each blog post independently.
-    # TODO: use fltr_cache directly, that can fix the previous bug plus provide a perf boost by caching title generation.
-}
-
-fn get_post_list {
-    # /./->/|/ done to sort -t| and order by date
-    # Note: $paths in blagh_dirs should not contain '/./' or '|'
-    ls -F $*^/./[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/ >[2]/dev/null | sed -n '/'^$forbidden_uri_chars^'/d; s,/\./,/|/,; /\/$/p' | sort -r '-t|' +1 | sed -e 's,/+\|/+,/,' -e $conf_max_posts_per_page^'q'
-}
-
-fn mkbpost {
-    bptext=$1
-    bpdate=$2
-    bptitle=$3
-    bpid=$4
-    _status=()
-    if(~ $"bptext '')
-        _status=($_status 'You need to provide a post body.')
-    if(! ~ $"bpdate [0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9])
-        _status=($_status 'Invalid date: '''^$"bpdate^'''') # XXX Should make semantic check.
-
-    if(~ $#_status 0) {
-        umask 002 # Let group write
-        if(! ~ $"bpid '')
-            bpid=`{echo -n '-'^$bpid | sed 's/'$forbidden_uri_chars'+/_/g; 1q'}
-        
-        ddir=$blagh_root^$bpdate^'/'
-        n=`{ls $ddir >[2]/dev/null |wc -l}
-        
-        mkdir -p $ddir/$"n^$"bpid/
-        {
-            if(! ~ $"bptitle '') {
-                echo $bptitle
-                echo '========================================='
-            }
-            # TODO: Enable metadata
-            #echo '* Posted:' `{date}
-            #if(! ~ $#logged_user 0)
-            #   echo '* Author: '$logged_user
-            echo 
-            echo $bptext
-        }> $ddir/$"n^$"bpid/index.md 
-
-        # Experimental support for http://pubsubhubbub.googlecode.com/
-        if(! ~ $"conf_blog_pubsubdub_hub '') {
-            ifs='' { p=`{echo $req_url|sed 's/new_post$/index.atom/'|url_encode } }
-            dprint hget -p 'hub.mode=publish&hub.url='^$"p $conf_blog_pubsubdub_hub
-            hget -d -h -p 'hub.mode=publish&hub.url='^$"p $conf_blog_pubsubdub_hub >[1=2] &
-        }
-    }
-    status=$_status
-}
-
-fn strip_title_from_md_file {
-    sed '1N; /^.*\n===*$/N; /.*\n===*\n$/d'
-}
diff --git a/apps/blagh/atom.tpl b/apps/blagh/atom.tpl
deleted file mode 100644
index 97c665f..0000000
--- a/apps/blagh/atom.tpl
+++ /dev/null
@@ -1,58 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-
-%{
-# See for more info:http://www.tbray.org/ongoing/When/200x/2005/07/27/Atomic-RSS
-fn statpost {
-    f = $1
-
-    post_uri=$base_url^`{cleanname `{echo $f | sed -e 's!^'$sitedir'!!'}}^'/'
-    title=`{read $f/index.md}
-    by=`{ls -m $f | sed 's/^\[//g; s/].*$//g' >[2]/dev/null}
-    ifs=() { summary=`{cat $f/index.md | strip_title_from_md_file | ifs=$difs {$formatter} } }
-}
-# rfc3339 date when feed was last updated.
-fupdated = `{ndate -a `{date `{mtime `{ls $blagh_root$blagh_dirs/[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/[0-9] | tail -1} | awk '{print $1}'}}}
-%}
-
-<feed xmlns="http://www.w3.org/2005/Atom"
-    xmlns:thr="http://purl.org/syndication/thread/1.0">
-
-% if(! ~ $"conf_blog_pubsubdub_hub '') {
-%    echo '<link rel="hub" href="'$conf_blog_pubsubdub_hub'" />'
-% }
-
-    <link rel="self" href="%($base_url^$req_path%)"/>
-    <id>%($base_url^$req_path%)</id>
-    <icon><![CDATA[/favicon.ico]]></icon>
-
-    <title><![CDATA[%($siteTitle%)]]></title>
-    <subtitle><![CDATA[%($siteSubTitle%)]]></subtitle>
-
-    <updated>%($fupdated%)</updated>
-    <link href="."/>
-
-% for(f in `{get_post_list $blagh_root$blagh_dirs}) {
-%    statpost $f
-
-    <entry>
-% # Maybe we should be smarter, see: http://diveintomark.org/archives/2004/05/28/howto-atom-id, example: <id>tag:intertwingly.net,2004:2899</id>
-        <id>%($post_uri%)</id>
-        <link href="%($post_uri%)"/>
-        <title><![CDATA[%($title%)]]></title>
-% # <link rel="replies" href="2899.atom" thr:count="0"/>
-        <author><name><![CDATA[%($by%)]]></name></author>
-
-        <content type="xhtml"><div xmlns="http://www.w3.org/1999/xhtml">
-            <![CDATA[%($summary%)]]>
-        </div></content>
-
-% # rfc3339 date when entry was last updated.
-% eupdated=`{ndate -a `{date `{mtime $f | awk '{print $1}'}}}
-        <updated>%($eupdated%)</updated>
-    </entry>
-
-% }
-
-</feed>
-
-% exit 
diff --git a/apps/blagh/convert.rc b/apps/blagh/convert.rc
deleted file mode 100755
index 0640805..0000000
--- a/apps/blagh/convert.rc
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/env rc
-
-path=($PLAN9/bin/ $path)
-
-for(p in *.md) {
-    echo
-    echo '========================='
-    echo p $p
-    pp=`{echo $p | sed 's/^([0-9][0-9][0-9][0-9])-([0-9][0-9])-([0-9][0-9])[\-_](.*).md$/\1 \2 \3 \4/' }
-    echo pp $pp
-
-    d=$pp(1)^'/'^$pp(2)^'/'^$pp(3)^'/'^$pp(4)^'/'
-
-    mkdir -p $d
-    echo $pp(4) | sed -e 's/^[0-9]_//; s/_/ /g;' > $d/index.md
-    echo '=================================' >> $d/index.md
-    echo >> $d/index.md
-    cat $p >> $d/index.md
-
-}
diff --git a/apps/blagh/jsonfeed.tpl b/apps/blagh/jsonfeed.tpl
deleted file mode 100644
index fd97ed4..0000000
--- a/apps/blagh/jsonfeed.tpl
+++ /dev/null
@@ -1,35 +0,0 @@
-{
-"version":       "https://jsonfeed.org/version/1",
-"title":         "%($siteTitle%)",
-"home_page_url": "%($"base_url%)",
-"feed_url":      "%($"base_url^$"req_path%)",
-"items": [
-%{
-fn statpost {
-    f = $1
-    post_uri=$base_url^`{cleanname `{echo $f | sed -e 's!^'$sitedir'!!'}}^'/'
-    title=`{read $f/index.md}
-    #ifs=() { summary=`{cat $f/index.md | crop_text 1024 ... | $formatter } }
-    ifs=() { summary=`{cat $f/index.md | strip_title_from_md_file | ifs=$difs {$formatter| sed 's/"/\\"/g' | tr -d '\012' } } }
-}
-%}
-% #for(f in `{get_post_list $blagh_root$blagh_dirs}) {
-%
-% postlist=`{get_post_list $blagh_root$blagh_dirs}
-% postcount=0
-% for(f in $postlist) {
-%    statpost $f
-        {
-  "id": "%($post_uri%)",
-  "url": "%($post_uri%)",
-  "title": "%($title%)",
-  "content_html": "%($summary%)"
-  }
-% postcount = `{echo $postcount  1+p | dc}
-% if (! ~ $#postlist $postcount) { echo , }  
-% }
-]
-}
-
-% exit 
-
diff --git a/apps/blagh/new_post.tpl b/apps/blagh/new_post.tpl
deleted file mode 100644
index bd521c4..0000000
--- a/apps/blagh/new_post.tpl
+++ /dev/null
@@ -1,11 +0,0 @@
-<div>
-% notices_handler
-<form method="POST"><fieldset>
-    <legend>Submit a new blog post</legend>
-    <textarea cols="94" rows=16" name="body">%($"post_arg_body%)</textarea><br />
-    <label>Title: <input size="64" type="text" name="title" value="%($"post_arg_title%)" /></label>
-    <label>Id: <input size="8" type="text" name="id" value="%($"post_arg_id%)" /></label>
-    <label>Date: <input size="10" maxlength="10" type="text" name="date" value="%($"post_date%)" /></label>
-    <input type="submit" value="Post" />
-</fieldset></form>
-</div>
diff --git a/apps/blagh/rss20.tpl b/apps/blagh/rss20.tpl
deleted file mode 100644
index 0cba818..0000000
--- a/apps/blagh/rss20.tpl
+++ /dev/null
@@ -1,43 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-
-%{
-fn statpost {
-    f = $1
-    post_uri = `{echo $f | sed 's,^'$sitedir',,'}
-    title=`{read $f/index.md}
-    post_uri=$base_url^`{cleanname `{echo $f | sed -e 's!^'$sitedir'!!'}}^'/'
-    by=`{ls -m $f | sed 's/^\[//g; s/].*$//g' >[2]/dev/null}
-    ifs=() {summary=`{ cat $f/index.md |strip_title_from_md_file| ifs=$difs {$formatter | escape_html} }}
-}
-
-%}
-
-<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
-    <channel>
-        <atom:link href="%($base_url^$req_path%)" rel="self" type="application/rss+xml" />
-        <title><![CDATA[%($siteTitle%)]]></title>
-        <link>%($base_url^$req_path%)</link>
-        <description><![CDATA[%($blogDesc%)]]></description>
-        <language>en-us</language>
-        <generator><![CDATA[Tom Duff's rc, and Kris Maglione's clever hackery]]></generator>
-%{
-        # <webMaster>uriel99+rss@gmail.com (Uriel)</webMaster>
-	# rfc2822 last time channel content changed.
-	lbd=`{ndate -m `{date `{mtime `{ls $blagh_root$blagh_dirs/[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/[0-9] | tail -1} | awk '{print $1}'}}}
-	echo '<lastBuildDate>'$"lbd'</lastBuildDate>'
-	# rfc2822 publication date for content in the channel.
-	pubdate=`{ndate -m}
-        for(f in `{get_post_list $blagh_root$blagh_dirs}){
-            statpost $f
-%}
-        <item>
-            <title><![CDATA[%($title%)]]></title>
-            <author><![CDATA[%($by%)@noreply.cat-v.org (%($by%))]]></author>
-            <link>%($post_uri%)</link>
-            <guid isPermaLink="true">%($post_uri%)</guid>
-            <pubDate>%($pubdate%)</pubDate>
-            <description> %($summary%) </description>
-        </item>
-%        }
-    </channel>
-</rss>
diff --git a/apps/bridge/app.rc b/apps/bridge/app.rc
deleted file mode 100755
index 40477ba..0000000
--- a/apps/bridge/app.rc
+++ /dev/null
@@ -1,103 +0,0 @@
-comment_file_types=(md html)
-
-fn conf_enable_comments {
-    if(~ $1 -n) {
-        allow_new_user_comments=yes
-        shift
-    }
-    if not if(~ $1 -a) {
-        bridge_anon_comments=yes 
-    }
-    enable_comments=yes
-    groups_allowed_comments=$*
-    conf_enable_app bridge
-}
-
-fn bridge_init {
-    if(~ $#enable_comments 1 && ! ~ `{ls $local_path.$comment_file_types >[2]/dev/null|wc -l} 0) {
-
-        comments_dir=$sitedir$req_path'_werc/comments'
-        if(~ $REQUEST_METHOD GET && test -d $comments_dir)
-            ll_add handlers_body_foot template apps/bridge/comments_list.tpl
-
-        if(check_user $groups_allowed_comments || {~ $#logged_user 0 && ~ 1 $#allow_new_user_comments $#bridge_anon_comments}) {
-
-            if(~ $#post_arg_bridge_post 1) {
-                ll_add handlers_body_foot template apps/bridge/foot.tpl
-
-                if(mk_new_comment $comments_dir)
-                    post_redirect $base_url^$req_path
-                if not
-                    saved_comment_text=$post_arg_comment_text
-            }
-            if not if(~ $REQUEST_METHOD GET)
-                ll_add handlers_body_foot template apps/bridge/foot.tpl
-        }
-        if not if(~ $REQUEST_METHOD GET)
-            ll_add handlers_body_foot echo '<hr><p>To post a comment you need to <a href="/_users/login">login</a> first.</p>'
-    }
-}
-
-fn validate_new_user {
-    usr=$1; pass=$2; pass2=$3
-    _status=()
-
-    if(~ $"usr '' || ! echo $usr |sed 1q|grep -s '^'$allowed_user_chars'+$')
-        _status='Requested user name is invalid, must match: '^$allowed_user_chars^'+'
-    if not if(test -d etc/users/$usr)
-        _status='Sorry, user name '''^$usr^''' already taken, please pick a different one.'
-
-    if(~ $"pass '' || ! ~ $"pass $"pass2)
-        _status=($_status 'Provided passwords don''t match.')
-
-    status=$_status
-}
-
-
-fn mk_new_comment {
-    _status=()
-    dir=$1
-    if(~ $"post_arg_comment_text '')
-        _status='Provide a comment!'
-    if not if(~ $#logged_user 0) {
-        if(! ~ $#allow_new_user_comments 0) {
-            if(validate_new_user $"post_arg_comment_user $post_arg_comment_passwd $post_arg_comment_passwd2) {
-                u=$post_arg_comment_user':'$post_arg_comment_passwd
-                dir=$comments_dir^'_pending'
-                # XXX: This doesn't work because we then do a redirect. 
-                notify_notes='Saved comment and registration info, they will be enabled when approved by an admin.'
-            }
-            if not
-                _status=$status
-        }
-        if not if(! ~ $#bridge_anon_comments 0) {
-            if(~ $"post_arg_ima_robot 'not')
-                u='Glenda' # Anonymous
-            if not
-                _status='You are a robot!'
-        }
-        if not
-            _status='You need to log in to comment.'
-    }
-    if not if(check_user $groups_allowed_comments)
-        u=$logged_user
-    if not
-        _status='You are not a member of a group allowed to comment.'
-
-    if(~ $#_status 0) {
-        umask 002
-
-        dir=$dir'/'`{date -n} # FIXME Obvious race
-        mkdir -m 775 -p $dir &&
-            echo $u > $dir/user &&
-            echo $current_date_time > $dir/posted &&
-            echo $post_arg_comment_text > $dir/body
-        _s=$status
-        if(! ~ $"_s '') {
-           dprint 'ERROR XXX: Could not create comment: ' $_s 
-            _status='Could not post comment due internal error, sorry.'
-        }
-    }
-    notify_errors=$_status
-    status=$_status
-}
diff --git a/apps/bridge/comments_list.tpl b/apps/bridge/comments_list.tpl
deleted file mode 100755
index 03e0ddc..0000000
--- a/apps/bridge/comments_list.tpl
+++ /dev/null
@@ -1,13 +0,0 @@
-<hr>
-<h2>Comments</h2>
-
-% for(c in `{ls $comments_dir/}) {
-%    if(test -s $c/body) {
-        <div class="comment">
-            <h5>By: <i>%(`{cat $c/user}%)</i></b> (%(`{cat $c/posted}%))
-        </h5>
-%       cat $c/body | escape_html | sed 's,$,<br>,'
-        <hr></div>
-%    }
-% }
-
diff --git a/apps/bridge/foot.tpl b/apps/bridge/foot.tpl
deleted file mode 100755
index 0dad21d..0000000
--- a/apps/bridge/foot.tpl
+++ /dev/null
@@ -1,37 +0,0 @@
-<hr>
-
-% notices_handler
-<form action="" method="post">
-    <textarea name="comment_text" id="comment_text" cols="80" rows="16">%($"saved_comment_text%)</textarea>
-    <br>
-    <input type="submit" name="bridge_post" value="Post a comment">
-
-% if(~ $#logged_user 0) {
-%   if(~ $#allow_new_user_comments 1) {
-    <label>New user name:
-        <input type="text" name="comment_user" value="%($"post_arg_comment_user%)">
-    </label>
-
-    <label>Password:
-        <input type="password" name="comment_passwd" value="">
-    </label>
-
-    <label>Repeat password:
-        <input type="password" name="comment_passwd2" value="">
-    </label>
-    <div style="font-size: 70%">
-    Enter your desired user name/password and after your comment has been reviewed by an admin it will be posted and your account will be enabled. If you are already registered please <a href="/_users/login">login</a> before posting.
-    </div>
-%   }
-%   if not if(~ $#bridge_anon_comments 1) {
-    <label>Is <a href="http://glenda.cat-v.org">Glenda a cute bunny</a>?
-        <select name='ima_robot'>
-        <option value="yes">No</option>
-        <option value="not">Yes</option>
-        <option value="foobar">I hate bunnies!</option>
-        <option value="robot">I'm a robot!</option>
-        </select>
-    </label>
-%   }
-% }
-</form>
diff --git a/apps/dirdir/app.rc b/apps/dirdir/app.rc
deleted file mode 100755
index 1aa9cbd..0000000
--- a/apps/dirdir/app.rc
+++ /dev/null
@@ -1,40 +0,0 @@
-fn conf_enable_wiki {
-    enable_wiki=yes
-    wiki_editors_groups=$* 
-    conf_enable_app dirdir
-}
-
-fn dirdir_init {
-    if(! ~ $#enable_wiki 0 && check_user $wiki_editors_groups) {
-        lp=$local_path
-        # werc.rc doesn't append /index when $local_path doesn't exist
-        # maybe it should, but for now we can fix it up here.
-        if(~ $lp */) 
-            lp=$lp^'index'
-        dirdir_file=$lp.md
-        dirdir_dir=$dirdir_file^'_werc/dirdir/'
- 
-        if(~ 1 $#post_arg_dirdir_edit $#post_arg_dirdir_preview)
-            handler_body_main=(tpl_handler `{get_lib_file dirdir/edit.tpl apps/dirdir/edit.tpl})
-
-        if not if(! ~ '' $"post_arg_dirdir_save $"post_arg_edit_text)
-            save_page
-
-        if not if(~ $"handler_body_main  '' || {~ $REQUEST_METHOD GET && test -f $local_path.md})
-            ll_add handlers_bar_left tpl_handler apps/dirdir/sidebar_controls.tpl
-    }
-}
-
-fn save_page {
-    dirdir_verdir=$dirdir_dir/^`{date -n}^/
-    mkdir -p $dirdir_verdir
-    umask 002
-
-    # XXX Use a tmp file and  mv(1) to ensure updates are atomic?
-    echo $logged_user > $dirdir_verdir/author
-    echo $post_arg_edit_text > $dirdir_verdir/data 
-    echo $post_arg_edit_text > $dirdir_file
-
-    post_redirect $base_url^$req_path
-    #notify_notes='Saved <a href="'$"req_path'">'$"req_path'</a>!'
-}
diff --git a/apps/dirdir/edit.tpl b/apps/dirdir/edit.tpl
deleted file mode 100755
index 1a5b206..0000000
--- a/apps/dirdir/edit.tpl
+++ /dev/null
@@ -1,25 +0,0 @@
-<div>
-    <h1>Editing: <a href="%($req_path%)">%($req_path%)</a></h1>
-    <br>
-    <form action="" method="POST">
-        <textarea name="edit_text" id="edit_text" cols="80" rows="43">%{
-# FIXME Extra trailing new lines get added to the content somehow, should avoid it.
-            if(~ $#post_arg_edit_text 0 && test -f $dirdir_file)
-                cat $dirdir_file | escape_html
-            if not
-                echo -n $post_arg_edit_text | escape_html
-
-        %}</textarea>
-        <br>
-        <input type="submit" name="dirdir_save" value="Save">
-        <input type="submit" name="dirdir_preview" value="Preview">
-        <small>DirDir documents are written using <a href="http://daringfireball.net/projects/markdown/syntax">Markdown syntax</a>.</small>
-    </form>
-</div>
-
-% if(! ~ $"post_arg_dirdir_preview '') {
-            <h2>Preview:</h2>
-            <div id="preview">
-%               echo $post_arg_edit_text | $formatter
-            </div>
-% }
diff --git a/apps/dirdir/sidebar_controls.tpl b/apps/dirdir/sidebar_controls.tpl
deleted file mode 100755
index a897fc1..0000000
--- a/apps/dirdir/sidebar_controls.tpl
+++ /dev/null
@@ -1,3 +0,0 @@
-<form action="" method="POST">
-<input type="submit" name="dirdir_edit" value="Edit page" />
-</form>
diff --git a/apps/duckduckgo/HOWTO b/apps/duckduckgo/HOWTO
deleted file mode 100644
index 8bb952c..0000000
--- a/apps/duckduckgo/HOWTO
+++ /dev/null
@@ -1,20 +0,0 @@
-The default path for site search is /_search/.  Assuming you want to keep
-that default, you could enable site search like so:
-
-
-mkdir -p /www/werc/sites/MYSITE/_search/_werc/
-echo 'conf_enable_duckduckgo' > /www/werc/sites/MYSITE/_search/_werc/config
-mkdir -p /www/werc/sites/MYSITE/_werc/lib/
-cp /www/werc/apps/duckduckgo/footer.inc.sample /www/werc/sites/MYSITE/_werc/lib/footer.inc
-
-Searches will POST to /_search/ and from there get redirected to Duck Duck 
-Go with a site:$SERVER_NAME prefix.  To have the search path URL be some-
-thing different, you'll have to edit line 23 of app.rc to point to the new
-path.
-
-TODO: 
-* Make it automatically work no matter which directory the app is enabled in.
-* OR make the search path a configuration option.
-* Provide a template for non-footer deployment
-* Enable the search path itself to serve a search form to GET requests
-
diff --git a/apps/duckduckgo/app.rc b/apps/duckduckgo/app.rc
deleted file mode 100755
index 72dd0ec..0000000
--- a/apps/duckduckgo/app.rc
+++ /dev/null
@@ -1,30 +0,0 @@
-fn conf_enable_duckduckgo {
-    enable_duckduckgo=yes
-    conf_enable_app duckduckgo
-		pageTitle='Site Search'
-}
-
-
-fn duckduckgo_init {
-	get_post_args q
-	if (! ~ $#q 0) {
-		redirect_string = 'https://duckduckgo.com/?q=site:'$SERVER_NAME^'+'^$"q
-		http_redirect $redirect_string '302 Found'
-	}
-	if not {
-		handler_body_main='duckduckgo_body'
-	}
-}
-
-fn duckduckgo_body {
-    echo '
-<h1>Site search</h1>
-<h2>using DuckDuckGo</h2>
-<form action="/_search/" method="POST">
-<label for="searchtext">Site search:</label> 
-<input type="text" id="searchtext" name="q" placeholder="Search text...">
-<input type="submit" value="Search">
-</form>'
-
-}
-
diff --git a/apps/duckduckgo/footer.inc.sample b/apps/duckduckgo/footer.inc.sample
deleted file mode 100644
index 4dd671d..0000000
--- a/apps/duckduckgo/footer.inc.sample
+++ /dev/null
@@ -1,3 +0,0 @@
-<div><a href="http://werc.cat-v.org">Powered by werc</a></div>
-
-<div><form action="/_search/" method="POST"><label for="searchtext">Site search:</label> <input type="text" id="searchtext" name="q" placeholder="Enter search text..."><input type="submit" display="Search"></form></div>
diff --git a/apps/hello/app.rc b/apps/hello/app.rc
deleted file mode 100755
index e6faaa8..0000000
--- a/apps/hello/app.rc
+++ /dev/null
@@ -1,10 +0,0 @@
-fn hello_init {
-    if(~ $req_path /hello) {
-        handler_body_main='hello_body'
-        pageTitle='Hi title!'
-    }
-}
-
-fn hello_body {
-    echo 'Hello world!'
-}
diff --git a/apps/paste/app.rc b/apps/paste/app.rc
deleted file mode 100755
index af0c76d..0000000
--- a/apps/paste/app.rc
+++ /dev/null
@@ -1,45 +0,0 @@
-fn conf_enable_wercpaste {
-	paste_url=$conf_wd
-	if (~ $#paste_dir 0) { paste_dir=`{pwd} }
-	conf_enable_app wercpaste
-}
-
-fn wercpaste_init {
-	if (~ $REQUEST_METHOD POST && ~ $post_arg_url url && ~ $req_path $paste_url ) { # incoming paste 
-		now=`{ date -n }
-		cksum=`{ echo $"post_arg_paste | sum | awk '{ print $1 }' }
-		if (~ $cksum '1715a8eb' ) { # empty paste; discard
-			post_redirect $base_url^$paste_url
-		}
-		if not {  # save and redirect
-			# TODO: stop using echo
-			# env var size limit is 16kb, this thing dies with larger input.
-			echo $"post_arg_paste > $paste_dir^/^$now^.^$cksum
-			# uncomment the following line to redirect to the pasted file
-			#post_redirect $base_url^$paste_url^$now^.^$cksum
-			# uncomment the following line instead to just return the url
-			echo 'Content-type: text/plain'; echo ''; exec echo $base_url^$paste_url^$now^.^$cksum
-		}
-	} 
-	if not { # show a paste if there is one
-		if (test -r $werc_root/$local_path && ~ $QUERY_STRING raw ) { 
-				echo 'Content-type: text/plain'; echo ''; exec cat $werc_root/$local_path
-			} 
-	}
-
-# drop a textbox 
-	if (~ $REQUEST_METHOD GET ) { handler_body_main='begforpaste' }
-
-}
-
-fn begforpaste {
-	echo '<article class="pastebox">
-	<h3 style="text-align: center">pasted data is not publically indexed</h3>
-	<form action="'$paste_url'" method="post" style="margin:2em">
-	<textarea name="paste" cols="120" rows="20" required style="display: block; margin: 0 auto 0 auto" ></textarea><br>
-	<input type="submit" name="submit" value="SUBMIT" style="display: block; margin: 0 auto 0 auto" ><br><br>
-	<span style="display: none"><input type="text" name="url" value="url" > (do not change) </span>
-	</form>
-	</article>
-	'
-}
diff --git a/apps/wman/app.rc b/apps/wman/app.rc
deleted file mode 100755
index 8f0a150..0000000
--- a/apps/wman/app.rc
+++ /dev/null
@@ -1,89 +0,0 @@
-fn conf_enable_wman {
-    wman_tmac=an
-    wman_base_uri=$conf_wd
-    wman_man_path=$*
-    if(~ $#wman_man_path 0)
-        wman_man_path=$wman_base_uri
-    conf_enable_app wman
-}
-
-wman_junk_filter='/(\/(INDEX|\.cvsignore|_.*)|\.9p|\.html)$/d; s!/man([0-9]+/[^/]+)$!/\1!; '
-fn wman_ls_pages {
-    ls $* \
-        | sed $dirfilter^$wman_junk_filter^' s/\.([0-9]|9p)$//; s!/0intro$!/intro!' \
-        | sort -u
-}
-fn wman_init {
-    ifs=$ifs^'/' { p=`{echo $req_path | sed 's!^'^$wman_base_uri^'!!'} }
-    wman_cat=$p(1)
-    wman_page=$p(2)
-    if(~ $#wman_unix_mode 1) {
-        wman_cp='man'
-        wman_pe=.^$"wman_cat
-    }
-
-    if(! ~ $"wman_cat '') {
-        wman_cat_path=$wman_man_path^/^$"wman_cp^$p(1)
-        if(! ~ $"wman_page '') {
-            wman_page_file=$wman_page^$"wman_pe
-            # Hack to handle 0intro files.
-            if(~ $wman_page intro && test -f $wman_cat_path^/0^$"wman_page_file)
-                 wman_page_file=0^$"wman_page_file
-            wman_page_file=$wman_cat_path^/^$"wman_page_file
-            x=`{echo $"req_path|sed 's%.*/([^/]+)/'$"wman_cat'/'^$"wman_page^'%\1%; s%_% %g'}
-            pageTitle=$wman_page' page from Section '$wman_cat' of the '^$"x' manual'
-        }
-    }
-
-    wman_cat_list=`{ls -F $wman_man_path/*/  \
-        | sed -e $wman_junk_filter -e 's!.*/([^/]+)/[^/]+$!\1!; /[0-9]+/!d' \
-        | sort -un}
-
-    synth_paths=($wman_base_uri$wman_cat_list'/')
-
-    if(~ $req_path $wman_base_uri && ~ $"handler_body_main '')
-       handler_body_main=(tpl_handler apps/wman/section_list.tpl)
-    if not if(~ $req_path $wman_base_uri^*) {
-        #^*/[a-z0-9]*[a-z]* $wman_base_uri^*/*[a-z]*[a-z0-9] $wman_base_uri^*/[a-z])
-        if(echo $req_path | grep -s '^'^$wman_base_uri^'/*[0-9]+/[0-9a-z\-\+\.]+$')
-           if(test -f $wman_page_file) # Check for 404
-               handler_body_main=(tpl_handler apps/wman/man_page.tpl)
-        if not if(~ $req_path $wman_base_uri^*/)
-           handler_body_main=(tpl_handler apps/wman/page_list.tpl)
-        if not if(~ $p(2) [A-Z]* [0-9][A-Z]*) # Correct badly capitalized links
-            perm_redirect $wman_base_uri^$p(1)^/^`{echo $p(2) |tr 'A-Z' 'a-z'}
-    }
-
-    # Search
-    ll_add handlers_body_head tpl_handler apps/wman/search.tpl
-    if(! ~ $"post_arg_wman_search '') {
-        s=`{echo $post_arg_wman_search | sed 's/[^a-zA-Z0-9\-\.]+//g; s/\.+/./g; 1q'}
-        ifs='' { wman_search_results=`{wman_ls_pages $wman_man_path/*/*^$"s^*} }
-        if(! ~ $"post_arg_go '' && ~ `{echo -n $wman_search_results|wc -l} 1)
-            post_redirect $wman_base_uri^`{echo $wman_search_results|awk -F/ '{print $(NF-1)"/"$NF}'}
-    }
-
-}
-
-fn wman_get_section_desc { 
-    cat $wman_man_path/^$"wman_cp^$1/0intro* >[2]/dev/null| sed '1,2d; s!intro \\- [Ii]ntroduction to !!; 3q;' 
-}
-
-fn wman_page_gen {
-    #troff -manhtml $1| troff2html -t 'Plan 9 from User Space'
-    troff -N -m$wman_tmac $1 | wman_out_filter
-}
-
-fn wman_out_filter {
-    wman_default_out_filter
-}
-
-fn wman_default_out_filter {
-	# col -x syntax is the same for UNIX and Plan 9.
-    escape_html \
-    | sed 's!([\.\-a-zA-Z0-9]+)\(('^`{echo $wman_cat_list|tr ' ' '|'}^')\)!<a href="../\2/\1">&</a>!g' \
-    | awk '/^$/ {if(n != 1) print; n=1; next} /./ {n=0; print}' \
-    | col -x
-}
-
-
diff --git a/apps/wman/man_page.tpl b/apps/wman/man_page.tpl
deleted file mode 100755
index 945e23a..0000000
--- a/apps/wman/man_page.tpl
+++ /dev/null
@@ -1,3 +0,0 @@
-<pre>
-% wman_page_gen $wman_page_file
-</pre>
diff --git a/apps/wman/page_list.tpl b/apps/wman/page_list.tpl
deleted file mode 100755
index b98600d..0000000
--- a/apps/wman/page_list.tpl
+++ /dev/null
@@ -1,11 +0,0 @@
-% d=`{wman_get_section_desc $wman_cat} 
-<h1>Manual pages - Section %($wman_cat%): %($"d%)</h1>
-
-<ul style="float:left">
-%{
-wman_ls_pages $wman_cat_path \
-    | awk -F/ '{ print "<li><a href=\""$(NF)"\">"$(NF)"</a></li>" }
-    NR%20 == 0 { print "</ul><ul style=\"float: left\">" }'
-%}
-</ul>
-
diff --git a/apps/wman/search.tpl b/apps/wman/search.tpl
deleted file mode 100755
index a6c59e4..0000000
--- a/apps/wman/search.tpl
+++ /dev/null
@@ -1,20 +0,0 @@
-<form action="" method="POST">
-<fieldset>
-    <input type="text" name="wman_search" value="%($"s%)" />
-    <input type="submit" name="go" value="Feel Lucky" />
-    <input type="submit" value="Search" />
-
-% if(! ~ $"post_arg_wman_search '') {
-%   if(~ $"wman_search_results '') {
-        No matches found for <i>'%($post_arg_wman_search%)'</i>.
-%   }
-%   if not {
-        <ul>
-%       echo $wman_search_results|awk -F/ '$(NF-1) ~ "^[0-9]+$" {printf "<li><a href=\"'$wman_base_uri'%s/%s\" />%s(%s)</a></li>", $(NF-1),$NF, $NF, $(NF-1)}'
-        </ul>
-%   }
-% }
-
-</fieldset>
-</form>
-
diff --git a/apps/wman/section_list.tpl b/apps/wman/section_list.tpl
deleted file mode 100755
index 299d613..0000000
--- a/apps/wman/section_list.tpl
+++ /dev/null
@@ -1,11 +0,0 @@
-<h1>Manual Sections</h1>
-
-<ul style="text-transform: capitalize;">
-% for(c in $wman_cat_list) {
-    <li><a href="%($c%)/"><b>Section: %($c%)</b></a>
-%   wman_get_section_desc $c 
-%   if(~ $status '' '|')
-%       echo '(<a href="'$c'/intro">intro</a>)'
-    </li>
-% }
-</ul>