html.st.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

# -*- sh -*-
html_fix() {
	sed -E \
	    -e 's#([^\\]|^)&#\1\&amp;#g' \
	    -e 's#([^\\]|^)<#\1\&lt;#g' \
	    -e 's#([^\\]|^)>#\1\&gt;#g' \
	    -e 's#\\([&<>])#\1#g'
}

html_el(){ # el TAG [ATTRS...] [TEXT...] [< INPUT]
	tag="$1"; attrs= ; text=
	shift
	for arg
	do
		case "$arg" in
			(*=*) attrs="$attrs ${arg%%=*}=${arg#*=}"; shift ;;
			(*) break ;;
		esac
	done

	printf '<%s%s>%s' "$tag" "$attrs"
	handle_input "$@" |
		sed -E \
		    -e '$s#[ 	]([.!-;:,.?])$#</'"$tag"'>\1#' -e t \
		    -e '$s,$,</'"$tag"'>,'
}

for el in h1 h2 h3 p a blockquote ul ol li em strong b i dl dt dd
do
	alias $el="html_el $el"
done

alias @=html_el

code() {
	in="$(handle_input "$@")"
	if test $? -ne 0
	then html_el code "$@" # runs thru input twice, meh
	else echo "<pre><code>$in</code></pre>"
	fi
}