4 files changed, 22 insertions, 8 deletions

@@ -0,0 +1,5 @@
+# et --- excited text
+
+not-quite-html that generates a shell script with groff-sorta input
+
+idk maybe i should call this frankentext
@@ -3,15 +3,22 @@
 # usage: et <file> | sh
 
 BEGIN {
-        xend = xend ? xend : "...xend..."
-        dend = dend ? dend : "...dend..."
+        xend = xend ? xend : "...end...shexpand..."
+        dend = dend ? dend : "...end...document..."
         # We shell out to sed for this because awk doesn't do capture groups ;-;
-        shellfix = "sed -E -e 's/`/\\\\`/g' " \
-                "-e 's/(^|[^\\$])\\$([^\\$]|$)/\\1\\\\$\\2/g' " \
-                "-e 's/(^|[^\\$])\\$(\\$+)([^\\$]|$)/\\1\\2\\3/g'"
+        shellfix = "sed -E" \
+                " -e 's/`/\\\\`/g'" \
+                " -e 's/(^|[^\\$])\\$([^\\$]|$)/\\1\\\\$\\2/g'" \
+                " -e 's/(^|[^\\$])\\$(\\$+)([^\\$]|$)/\\1\\2\\3/g'"
+        htmlfix = "sed -E" \
+                " -e 's#([^\\\\]|^)&#\\1\\&amp;#g;'" \
+                " -e 's#([^\\\\]|^)<#\\1\\&lt;#g;'" \
+                " -e 's#([^\\\\]|^)>#\\1\\&gt;#g;'" \
+                " -e 's#\\\\([&<>])#\\1#g;'"
         true = 1 ; false = 0
-        print "shellexpand()(eval \"$(echo \"cat<<'"xend"'\";cat;echo "xend")\")"
+        print "shexpand()(eval \"$(echo \"cat<<'"xend"'\";cat;echo "xend")\")"
         print "shellfix()(" shellfix ")"
+        print "htmlfix()(" htmlfix ")"
 }
 
 end[endn] && $0 == end[endn] {
@@ -32,7 +39,7 @@ end[endn] && $0 == end[endn] {
         docp = !docp
         docend = $2 ? $2 : dend
         if (docp)
-                print "shellexpand<<" docend
+                print "shexpand<<" docend
         else
                 print docend "\n"
         next
@@ -15,7 +15,7 @@ html_el(){ # el TAG [ATTRS...] [TEXT...] [< INPUT]
         for arg
         do
                 case "$arg" in
-                        (*=*) attrs="$attrs ${arg%%=*}=\"${arg#*=}\""; shift ;;
+                        (*=*) attrs="$attrs ${arg%%=*}=${arg#*=}"; shift ;;
                         (*) break ;;
                 esac
         done
@@ -29,6 +29,7 @@ html_el(){ # el TAG [ATTRS...] [TEXT...] [< INPUT]
 }
 
 alias p='html_el p'
+alias a='html_el a'
 alias h1='html_el h1'
 alias blockquote='html_el blockquote'
 alias bq=blockquote
@@ -2,6 +2,7 @@
 alias verse=cat
 ...
 here's a test file
+.a href="https://example.com" a link or something!!
 
 .h1 it has "headers" or whatever