2 files changed, 19 insertions, 0 deletions
diff --git a/lht b/lht
new file mode 100755
index 0000000..771fcad
--- /dev/null
+++ b/lht

@@ -0,0 +1,5 @@
+#!/usr/bin/awk -f
+function s(t,i){while(match($0,t)){if(I[ni]==i)ni-=sub(t,"</"i">")
+else if(sub(t,"<"i">"))I[++ni]=i}}BEGIN{FS="\n"; RS="";ni=0}
+{s("[\\*_]{2}","strong");s("[\\*_]","em");s("`","code")
+$0=(match($0,/>$/))?$0:"<p>"$0"</p>";print}
diff --git a/shabby b/shabby
new file mode 100755
index 0000000..277d021
--- /dev/null
+++ b/shabby

@@ -0,0 +1,14 @@
+#!/bin/sh
+T=tmpl
+alias c=cat q=test e=echo
+rm -rf o;mkdir -p o
+q -e $T||e '`<$F`'>$T
+q -d st&&cp -r st o/
+x(){ eval "$(e 'c<<Z';c "$@";e;e Z)";}
+for F in c/*;do
+q -e "$F"&& (
+FN="${F##*/}"
+TT="$(head -n1 "$P")"
+BD="$(tail -n+2 "$P")"
+x $T>"o/$FN")
+done

diff --git a/lht b/lht new file mode 100755 index 0000000..771fcad --- /dev/null +++ b/lht
@@ -0,0 +1,5 @@
	1	#!/usr/bin/awk -f
	2	function s(t,i){while(match($0,t)){if(I[ni]==i)ni-=sub(t,"</"i">")
	3	else if(sub(t,"<"i">"))I[++ni]=i}}BEGIN{FS="\n"; RS="";ni=0}
	4	{s("[\\_]{2}","strong");s("[\\_]","em");s("`","code")
	5	$0=(match($0,/>$/))?$0:"<p>"$0"</p>";print}


diff --git a/shabby b/shabby new file mode 100755 index 0000000..277d021 --- /dev/null +++ b/shabby
@@ -0,0 +1,14 @@
	1	#!/bin/sh
	2	T=tmpl
	3	alias c=cat q=test e=echo
	4	rm -rf o;mkdir -p o
	5	q -e $T\|\|e '`<$F`'>$T
	6	q -d st&&cp -r st o/
	7	x(){ eval "$(e 'c<<Z';c "$@";e;e Z)";}
	8	for F in c/*;do
	9	q -e "$F"&& (
	10	FN="${F##*/}"
	11	TT="$(head -n1 "$P")"
	12	BD="$(tail -n+2 "$P")"
	13	x $T>"o/$FN")
	14	done