about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--html.st.sh41
-rw-r--r--st.sh47
2 files changed, 41 insertions, 47 deletions
diff --git a/html.st.sh b/html.st.sh new file mode 100644 index 0000000..ab4ab72 --- /dev/null +++ b/html.st.sh
@@ -0,0 +1,41 @@
1# -*- sh -*-
2html_fix() {
3 sed -E \
4 -e 's#([^\\]|^)&#\1\&#g' \
5 -e 's#([^\\]|^)<#\1\&lt;#g' \
6 -e 's#([^\\]|^)>#\1\&gt;#g' \
7 -e 's#\\([&<>])#\1#g'
8}
9
10html_el(){ # el TAG [ATTRS...] [TEXT...] [< INPUT]
11 tag="$1"; attrs= ; text=
12 shift
13 for arg
14 do
15 case "$arg" in
16 (*=*) attrs="$attrs ${arg%%=*}=${arg#*=}"; shift ;;
17 (*) break ;;
18 esac
19 done
20
21 printf '<%s%s>%s' "$tag" "$attrs"
22 handle_input "$@" |
23 sed -E \
24 -e '$s#[ ]([.!-;:,.?])$#</'"$tag"'>\1#' -e t \
25 -e '$s,$,</'"$tag"'>,'
26}
27
28for el in h1 h2 h3 p a blockquote ul ol li em strong b i dl dt dd
29do
30 alias $el="html_el $el"
31done
32
33alias @=html_el
34
35code() {
36 in="$(handle_input "$@")"
37 if test $? -ne 0
38 then html_el code "$@" # runs thru input twice, meh
39 else echo "<pre><code>$in</code></pre>"
40 fi
41}
diff --git a/st.sh b/st.sh deleted file mode 100644 index 8274526..0000000 --- a/st.sh +++ /dev/null
@@ -1,47 +0,0 @@
1### st.sh
2
3# utilities
4echo()(printf '%s\n' "$*")
5
6handle_input() { # handle_input "$@"
7 # handle input --- args or stdin
8 test -n "$1" && printf '%s' "$*"
9 if read -r first_line
10 then echo "$first_line"; cat
11 else echo
12 fi
13}
14
15# authoring commands
16nb() { # comment mechanism
17 :
18}
19
20# html
21attr(){ # attr [NAME|VALUE] ATTR_STRING
22 case "$1" in
23 (name) echo "${2%%=*}" ;;
24 (value) echo "${2#*=}" ;;
25 esac
26}
27
28html_el(){ # el TAG [ATTRS...] [TEXT...] [< INPUT]
29 tag="$1"; attrs= ; text=
30 shift
31 for arg
32 do
33 case "$arg" in
34 (*=*) attrs="$attrs ${arg%%=*}=${arg#*=}"; shift ;;
35 (*) break ;;
36 esac
37 done
38
39 printf '<%s%s>%s' "$tag" "$attrs"
40 handle_input "$@" | sed '$s,$,</'"$tag"'>,'
41}
42
43alias p='html_el p'
44alias a='html_el a'
45alias h1='html_el h1'
46alias blockquote='html_el blockquote'
47alias bq=blockquote