rename st.sh to html.st.sh

1 files changed, 41 insertions, 0 deletions

@@ -0,0 +1,41 @@
+# -*- sh -*-
+html_fix() {
+        sed -E \
+            -e 's#([^\\]|^)&#\1\&#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
+}