Refactor for interleaved shell commands and text

1 files changed, 47 insertions, 0 deletions

@@ -0,0 +1,47 @@
+### st.sh
+
+# utilities
+echo()(printf '%s\n' "$*")
+
+handle_input() { # handle_input "$@"
+        # handle input --- args or stdin
+        test -n "$1" && printf '%s' "$*"
+        if read -r first_line
+        then echo "$first_line"; cat
+        else echo
+        fi
+}
+
+# authoring commands
+nb() { # comment mechanism
+        :
+}
+
+# html
+attr(){ # attr [NAME|VALUE] ATTR_STRING
+        case "$1" in
+                (name) echo "${2%%=*}" ;;
+                (value) echo "${2#*=}" ;;
+        esac
+}
+
+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 '$s,$,</'"$tag"'>,'
+}
+
+alias p='html_el p'
+alias a='html_el a'
+alias h1='html_el h1'
+alias blockquote='html_el blockquote'
+alias bq=blockquote