Merge branch 'ht3'

5 files changed, 393 insertions, 1 deletions

@@ -31,6 +31,10 @@ footer {
     padding: 1ch 0;
 }
 
+#back {
+    float: left;
+}
+
 code {
     color: #c0ffee;
 }
@@ -0,0 +1,176 @@
+# HAT TRICK
+
+HAT TRICK is both a lightweight markup language inspired by gemtext and html,
+and this awk program to convert the markup language to gemtext, html, and
+gophermap markup.  It uses a mixture of "block"-level and line-level sigils to
+extend the pure line-based markup of gemtext, while removing some of the more
+annoying points (to my mind) of writing pure html---i.e., repetitive tags and
+other boilerplate.
+
+## Syntax
+
+### Blocks
+
+In HAT TRICK, block of text separated by a blank line is a type of "block."  The
+default block is a paragraph, or <p> tag in html.  (In gemini and gophermaps, no
+extra tags are added.)  Other blocks defined by the syntax are as follows:
+
+>>>
+#       HEADING 1
+##      HEADING 2
+###     HEADING 3
+<<<
+
+Correspond to <hx> in html; passed through unmodified to gemtext and gophermaps.
+
+>>>
+>       BLOCK QUOTE
+<<<
+
+Corresponds to <blockquote>; passed through unmodified to gemtext and
+gophermaps.
+
+>>>
+-       UNORDERED LIST ITEM
+1.      ORDERED LIST ITEM
+<<<
+
+The first list item in a block automatically opens the necessary list tag in
+html.  In gemtext, the "-" is converted to "*" (which signifies a list item);
+the hyphen is passed through in gophermaps, because I think it's better syntax
+personally.
+
+>>>
+---     SECTION BREAK
+<<<
+
+A visual indication to break sections.  Corresponds to <hr> in html
+(TODO: consider html5 <section> tags --- this would take more logic.) 
+
+HAT TRICK reflows blocks, which means that only the first line of a block
+needs to start with the sigils outlined above.  However, each line of the block
+can begin with the sigil character for easier reading.
+
+### Lines
+
+Within blocks, there are certain other sigils that apply only to the line they
+prepend.  They include the following:
+
+>>>
+=>      LINK
+<<<
+
+Links are probably the most important element in any hypertext language---since
+without them, it's hardly hypertext.  HAT TRICK borrows its link syntax from
+gemtext: the line starts with a "=>", the next field is the link's URL, and the
+rest of the line is the link's display text.
+
+>>>
+<TAG>   HTML TAG
+<<<
+
+Lines beginning with an html tag are passed on to html verbatim.  The closing
+tag is automatically appended to the end of the line, before any ending
+punctuation.  I've found that 99 times out of 100, I don't want formatting to
+include the ending punctuation.
+
+A backslash (\) at the end of the tag line will prevent the tag from being
+ended, which is useful for tag-included punctuation as well as nesting tags.
+However, the tag is never closed, so you'll have to close it yourself on the
+next line.  In addition, text that isn't in a tag is html-escaped, so for the
+markup to properly apply, you'll need to write something like this:
+
+>>>
+<b>She sells \
+<i>sea shells \
+</i>
+on the sea shore.\
+</b>
+<<<
+
+So while this markup is possible, it's discouraged through the awkwardness of
+the syntax.
+
+To translate these tags to meaningful markup in gemtext and gophermaps, a lookup
+table is used to correspond the tags to opening and closing characters around
+the line's text.  This correspondance can be defined with the environment
+variable HT_TAGCHARS or HAT TRICK's second positional argument (See INVOCATION,
+below).
+
+>>>
+;       COMMENT
+<<<
+
+Comments in HAT TRICK aren't passed on to the output text---even in html, which
+has a comment syntax.  Instead, comments are passed, including the prepending
+semicolon, to standard error for further processing.
+
+### Verbatim blocks
+
+Finally, there is a special type of block for passing raw text through to the
+next phase of processing: the verbatim block.
+
+>>>
+ >>> [OUTPUTS]
+ VERBATIM TEXT
+ <<<
+<<<
+
+In html, the verbatim text is wrapped in <pre><code> tags; in gemtext, it's
+wrapped in gemtext's own verbatim text markers ```; and the text is unwrapped in
+gophermaps for a cleaner look.
+
+The OUTPUTS can be any output specifier HAT TRICK accepts; see INVOCATION below
+for details.  If OUTPUTS is present, the verbatim text will only be passed
+through in the output formats listed; with no OUTPUTS listed it will output to
+all formats.
+
+## "Escaping" line- and block-types
+
+Each of the types listed above are anchored at the beginning of the line.
+Therefore, a simple "escaping" mechanism is available for free: simply prepend a
+space to any line you don't want processed as a line or block and you'll be
+gravy.  Astute readers will notice I did just that above, to describe the syntax
+for verbatim fencing.
+
+## Invocation
+
+An invocation of HAT TRICK will look something like this:
+
+>>>
+./ht.awk [HT_FORMATS] [HT_TAGCHARS] < INPUT
+<<<
+
+It processes text from standard input and uses two positional parameters to
+customize its usage, in addition to environment variables.  In each instance,
+the parameter will override the variable, and if neither are provided, HAT TRICK
+will choose a default.
+
+### HT_FORMATS (default: "html")
+
+The format(s) to export to.  Can be one or more of "html", "gemini", and
+"gopher".  As a convenience, a format can be prepended with a "-" (i.e.,
+"-html"), in which case every other format will be exported to.  Multiple
+formats can also be specified by separating them with a comma.  The special
+keyword "all" will export to all formats (this is the default).
+
+If HAT TRICK exports to one format, it will simply print out each line
+translated into that format.  However, if more than one format is given, 
+HAT TRICK prints each line multiple times, prepending the name of the format to
+the output.  This allows for further processing to filter outputs according to
+output type with just one pass through the input.
+
+### HT_TAGCHARS (default: 'b:**,i://,code:``')
+
+The correspondance between html tag lines and other output formats.  If
+HT_FORMAT is only html, this option has no real meaning.
+
+Each correspondance is of the (exploded) form
+
+>>>
+TAG : LEFT_CHAR RIGHT_CHAR
+<<<
+
+where TAG is the html tag, LEFT_CHAR is the character on the left of the
+enclosed text, and RIGHT_CHAR is the character on the right.  Rules can be
+separated by commas to pass multiple ones to HAT TRICK.
@@ -0,0 +1,168 @@
+#!/usr/bin/awk -f
+# -*- indent-tabs-mode: t; -*-
+# HAT TRICK
+# (C) 2022 C. Duckworth
+
+### Commentary:
+
+### Code:
+BEGIN {
+        split("html,gemini,gopher", HT_FORMATS_AVAILABLE, ",")
+        process_arguments()
+        normalize_ht_formats()
+        if (! HT_TAGCHARS[1]) {
+                split("b:**,i://,code:``", HT_TAGCHARS, ",")
+        }
+        # Output buffer.  The output will be chunked into blocks.
+        BUFFER = ""
+        # The current block type.  We start with a standard paragraph.
+        BLOCK = "p"
+}
+
+### RAW TEXT
+/^>>>/ {
+}
+
+/^<<</ {
+}
+
+### BLOCKS
+/^#+/ {                 # Headers
+}
+
+/^>/ {                          # Block quote
+}
+
+/^-/ {                          # Unordered list
+}
+
+/^[0-9]\./ {                    # Ordered list
+}
+
+/^---$/ {                       # Section break
+}
+
+### LINES
+/^=>/ {                 # Link
+}
+
+/^</ {                          # HTML tag
+}
+
+/^;/ {                          # Comment
+}
+
+### EVERYTHING ELSE
+{
+}
+
+### FINISH
+END {
+        buflush()
+}
+
+### FUNCTIONS
+function buflush()
+{
+        # Print the buffer and close the current block.
+        if (BUFFER) {
+                ht_print(BUFFER)
+        }
+        BUFFER = ""
+        if ("html" in HT_FORMATS && BLOCK != "raw") {
+                ht_print("</" BLOCK ">")
+        }
+        print
+}
+
+function bufpush(str)
+{
+        # Push STR onto the buffer after a newline.
+        BUFFER = BUFFER (BUFFER ? "\n" : "") str
+}
+
+function ht_print(str)
+{
+        if (HT_FORMATS_COUNT == 1) {
+                print str
+        } else {
+                split(str, arr, "\n")
+                for (format in HT_FORMATS) {
+                        line = 1
+                        while (arr[line]) {
+                                printf "%s\t%s\n", format, arr[line++]
+                        }
+                }
+        }
+}
+
+function html_escape(str)
+{
+        # Escape HTML entities and beginning-line spaces.
+        gsub(/&/, "\\&amp;", t)
+        gsub(/</, "\\&lt;", t)
+        gsub(/>/, "\\&gt;", t)
+        sub(/^ /, "\\&nbsp;", t)
+        return t
+}
+
+function normalize_ht_formats()
+{
+        for (format in HT_FORMATS_AVAILABLE) {
+                normat[format] = 0
+        }
+        if (! HT_FORMATS[1]) {
+                for (i in HT_FORMATS_AVAILABLE) {
+                        HT_FORMATS[i] = HT_FORMATS_AVAILABLE[i]
+                }
+        }
+        for (format in HT_FORMATS) {
+                if (format == "all") {
+                        for (i in HT_FORMATS_AVAILABLE) {
+                                HT_FORMATS[i] = HT_FORMATS_AVAILABLE[i]
+                        }
+                        return
+                } else if (format ~ /^-/) {
+                        delete normat[substr(format, 2)]
+                } else {
+                        normat[format] = 1
+                }
+        }
+        for (format in normat) {
+                if (normat[format]) {
+                        HT_FORMATS[format] = format
+                }
+        }
+        for (format in HT_FORMATS) {
+                HT_FORMATS_COUNT++
+        }
+}
+
+function process_arguments()
+{
+        a = 1
+        HT_FORMATS[1] = 0
+        HT_TAGCHARS[1] = 0
+        while (ARGV[a]) {
+                if (a == "-c" || a ~ /^--chars=/) {
+                        # HTML tag <-> markup character correspondance
+                        if (a == "-c") {
+                                a++
+                        } else if (a ~ /^--chars=/) {
+                                sub(/^[^=]*=/, "", a)
+                                # HT_TAGCHARS is an array
+                        }
+                        split(a, HT_TAGCHARS, ",")
+                } else if (a == "-f" || a ~ /^--format=/) {
+                        # Output format
+                        if (a == "-f") {
+                                a++
+                        } else if (a ~ /^--format=/) {
+                                sub(/^[^=]*=/, "", a)
+                                # HT_FORMATS is an array
+                        }
+                        split(a, HT_FORMATS, ",")
+                }
+                a++
+        }
+}
@@ -1,5 +1,5 @@
 <footer>
-    $(case "$(title)" in ("") ;; (*) print "<a href=\"./index.html\">back</a>" ;; esac)
+    $(case "$(title)" in ("") ;; (*) print "<a id="back" href=\"./index.html\">back</a>" ;; esac)
     <span id="copyright">(C) 2022
         $(if [ $(command date +%Y) -gt 2022 ]; then print "&ndash; $(command date +%Y)"; fi)
         C. Duckworth</span> under the
@@ -0,0 +1,44 @@
+;@@title: moved in@@
+;@@date: 2022-06-06@@
+
+moved into my new house last week!  very nice house.  i was sick for two days
+afterward, i think due to exhaustion or something.  wasn't a good time, let me
+tell you.  however, now i'm well and kicking!
+
+my wife's birthday was also this weekend, so we had friends over and everyone
+loved the house.  i do too.  it's a good house.
+
+oh and the
+=> https://dogs.acdw.net dogs
+are back home, thank goodness!  i was missing them very much.  they are
+adjusting well, mostly---though apparently the poor things were terrified by the
+mail dropping through the door slot this afternoon.
+
+<hr>
+
+i was originally writing this to share a bit of elisp, so i suppose i will here.
+
+Bozhidar Batsov wrote a blog post called
+=>
+https://emacsredux.com/blog/2022/06/03/extract-version-metadata-from-a-package/
+"Extract Version Metadata from a Package"
+that discusses how to do all of that from package.el, but i don't use
+package.el.
+
+so i hacked something together from some throwaway lines in his blog to do
+almost the same thing:
+
+```
+(with-current-buffer (find-file-noselect (find-library-name "titlecase"))
+  (require 'lisp-mnt)
+  (lm-authors))
+```
+
+this returns the authors (me) and their email from the titlecase.el library:
+
+```
+(("Case Duckworth" . "acdw@acdw.net"))
+```
+
+i still need to think about multi-file libraries and how to find the "real" root
+of the library, i suppose, but that's an easily-enough-solved problem i think.