hlfw.ca

hlfw

ref: e188b1827ba0fe8e639e340a84c1ab006c612253
dir: /usr/

View raw version 
#!/bin/rc -e

. /sys/lib/hlfw/common.rc

cd $1
shift

usr=$1
shift

rfork ne
nl='
'

prelude '' 'git host'

echo '<h2>'^$usr^'</h2>'
if(test -f $usr/desc.html)
	cat $usr/desc.html
if not if(test -f $usr/desc){
	echo '<pre>'
	htcat $usr/desc
	echo '</pre>'
}

udir=()
for(repo in `$nl{ls $usr/}){
	name=`{basename $repo}
	if(test -e $repo/.git/webpublish){
		echo '<dt><a href="/git/'$repo'/HEAD/info.html">'$name'</a></dt>'
		echo '<dd>'
		if(test -f $repo/.git/desc)
			htcat $repo/.git/desc
		if not if(test -f $repo/.git/description)
			htcat $repo/.git/description
		if not
			echo 'probably some code'
		echo '</dd>'
	}
}