Chris@494: #!/bin/bash
Chris@494: 
Chris@494: css='<link rel="stylesheet" type="text/css" href="help.css"/>'
Chris@494: 
Chris@494: echo "$css" > topics.html
Chris@494: cat intro.html >> topics.html
Chris@494: 
Chris@494: pcat=""
Chris@494: 
Chris@494: for x in topics/*.txt ; do
Chris@494: 
Chris@494:     b=`basename "$x" .txt`
Chris@494:     out="a-$b.html"
Chris@494: 
Chris@494:     echo "$css" > "$out"
Chris@494: 
Chris@494:     cat "$x" | perl -e '
Chris@494: $_ = join "", <>;
Chris@494: s/^{[\w\s]+}//s;
Chris@494: s/^(\s*)([A-Za-z][^\n]*)/$1<h2>$2<\/h2>/s;
Chris@494: s/^\s+\*\s+(.*)$/<ul><li>$1<\/li><\/ul>/gm;
Chris@496: s/\*([\w"][^\*]+)\*/<b>$1<\/b>/gs;
Chris@494: s/"([\w])/&ldquo;$1/gs;
Chris@494: s/([\w])"/$1&rdquo;/gs;
Chris@495: s/^\#([^\s]+)$/<center><img src="images\/$1.png"><\/center>/gm;
Chris@494: s/\n-+\n/\n/gs;
Chris@494: s/\n\n([^\n])/\n\n<p>$1/gs;
Chris@494: s/^\n*([^<\n])/\n<p>$1/gs;
Chris@494: s/^\n*(<[^p])/\n<p>$1/gs;
Chris@494: s/([^\n])\n\n/$1<\/p>\n\n/gs;
Chris@494: s/([^>\n])\n*$/$1<\/p>\n\n/gs;
Chris@496: s/\[\[([^\|]*)\|([^\]]*)\]\]/<a href="a-$1.html">$2<\/a>/gs;
Chris@494: s/\[\[([^\|\]]*)\]\]/<a href="$1">$1<\/a>/gs;
Chris@494: s/\b_([^_]+)_\b/<i>$1<\/i>/gs;
Chris@494: s/@(\w[^@]+)@/<code>$1<\/code>/gs;
Chris@494: s/---/&mdash;/gs;
Chris@494: s/--/&ndash;/gs;
Chris@494: s/<p><h2>/<h2>/gs;
Chris@494: s/<\/h2><\/p>/<\/h2>/gs;
Chris@494: print;
Chris@494: ' >> "$out"
Chris@494: 
Chris@494:     category=`grep '^{.*}$' "$x" | sed 's/[{}]//g'`
Chris@494: 
Chris@494:     if [ "$category" != "$pcat" ]; then
Chris@494: 	echo "<h3>$category</h3>" >> topics.html
Chris@495: 	pcat="$category"
Chris@494:     fi
Chris@494: 
Chris@494:     grep '<h2>' "$out" | sed "s|<h2>|<p><a href=\"$out\">|" | sed 's/<\/h2>/<\/a><\/p>/' >> topics.html
Chris@494: 
Chris@494: done
Chris@494: