Initial commit

I'm doing content + generation in this ... who knows if it's smart, lol.

16 files changed, 421 insertions, 0 deletions

@@ -0,0 +1,2 @@
+.tmp
+build/
@@ -0,0 +1,88 @@
+## HAT TRICK -*- tab-width: 8; -*-
+# (C) 2022 C. Duckworth
+
+UPLOAD_TARGET = hetzner:/var/www/acdw.casa/
+
+SITE_TITLE = acdw.casa
+
+INPUT = src
+BUILD = build
+LASTB = .last_build
+
+HTAWK = ./ht.awk
+HTSH  = ./ht.sh
+HTMK  = ht.mk
+HT    = ${HTAWK} ${HTSH} ${HTMK}
+
+T   = .tmp
+TMK = $T/mk
+TPG = $T/ps
+
+PTMPL = tmpl.page.htm
+PTMPC = \
+        <title>$$(title)</title> \
+        $$(body)
+PTMPR = \
+        $$hb: $$ht ; \
+                ${HTAWK} < '$$ht' | \
+        env HTTMP='$T' HTENV='$T/\$$<.env' HTOUT='\$$@' \
+        ${HTSH} '${PTMPL}' > '\$$@'
+
+ITMPL = tmpl.index.htm
+ITMPC = \
+        <title>${SITE_TITLE}</title> \
+        <ul id="idx"> \
+        $$(for p in "$T"/*.env; do \
+                . "$$p"; \
+                print "<li><a href=\"$$HTOUT\">$$(title)</a></li>"; \
+        done) \
+        </ul>
+ITMPR = \
+        index.html: ${ITMPL} $$(cat ${TPG}); \
+        env HTTMP='$T' HTOUT='\$$@' \
+        ${HTSH} "${ITMPL}" < /dev/null > '\$$@'
+
+TMPL = ${PTMPL} ${ITMPL}
+BUILD_INPUTS = ${INPUT}/* ${TMPL} ${HT}
+
+${BUILD}: ${BUILD_INPUTS}
+        @touch ${LASTB}
+        @mkdir -p ${BUILD}
+        cp -a ${BUILD_INPUTS} $@
+        ${MAKE} -C $@ -f ${HTMK} build
+
+${HTMK}: Makefile ${INPUT}/*.ht $T
+        @printf '%s' 'Generating "$@"...'
+        @: > '$@'
+        @: > '${TPG}'
+
+        @for ht in $$(find ${INPUT} -type f -name '*.ht'); do \
+                ht="$$(echo "$$ht" | sed 's#${INPUT}/##')"; \
+                hb="$${ht}ml"; \
+                printf '%s ' "$$hb" >> "${TPG}"; \
+                printf '%s\n' "${PTMPR}"; \
+        done >> '$@'
+
+        @printf '%s\n' "${ITMPR}" >> '$@'
+        @printf "build: $$(cat ${TPG}) index.html" >> '$@'
+        @printf '%s\n' 'done'
+
+$T: ; mkdir -p "$@"
+${PTMPL}: ; printf '${PTMPC}' > '$@'
+${ITMPL}: ; printf '${ITMPC}' > '$@'
+
+.PHONY: clean clean-build nuke
+clean: ; -rm -rf ${BUILD} ${HTMK} $T ${LASTB}
+clean-build:
+        rm -rf '${BUILD}/$T'
+        for file in ${BUILD}/*; do \
+                case "$$file" in \
+                        *.ht|*.sh|*.htm|*.mk|*.awk) rm -rf "$$file" ;; \
+                esac \
+        done
+nuke: clean ; -rm ${TMPL}
+
+.PHONY: publish
+publish: build clean-build
+        scp -r ${BUILD}/* '${UPLOAD_TARGET}'; \
+
@@ -0,0 +1,79 @@
+#!/usr/bin/awk -f
+# HAT TRICK
+# (C) 2022 C. Duckworth
+
+# ht.awk converts mostly-html (with some conveniences) to actual html
+
+function bufpush(s) {
+    BUF = BUF (BUF ? "\n" : "") s;
+}
+
+function buflush() {
+    if (BUF) print BUF;
+    BUF = "";
+    if (tag && (tag != "html")) print "</" tag ">";
+}
+
+function esc(t) {
+    gsub(/&/, "\\&amp;", t);
+    gsub(/</, "\\&lt;", t);
+    gsub(/>/, "\\&gt;", t);
+    return t;
+}
+
+/^;/ { sub(/^;/,""); print "<!--", esc($0), "-->"; next; }
+
+/^</ { # Raw HTML
+    if (! (tag == "html")) tag = "html";
+    bufpush($0);
+    next;
+}
+
+/^=>/ { # Links (Gemini-style)
+    link = "<a href=\"" esc($2) "\">" esc($3);
+    for (i=4;i<=NF;i++) link = link " " esc($i);
+    link = link "</a>";
+    bufpush(link);
+    next;
+}
+
+/^-/ { # Unordered lists
+    if (! (tag == "ul")) tag = "ul";
+    esc($0);
+    sub(/^-[ \t]*/, "<li>");
+}
+
+/^[0-9]+\./ { # Ordered lists
+    if (! (tag == "ol")) tag = "ol";
+    esc($0);
+    sub(/^[0-9]+\.[ \t]/, "<li>");
+}
+
+/^>/ { # Blockquotes
+    if (! (tag == "blockquote")) tag = "blockquote";
+    sub(/^>[ \t]*/,"");
+    esc($0);
+}
+
+/^#+/ { # Headers
+    match($0, /^#+/);
+    if (! (tag == "h" RLENGTH)) {
+        buflush();
+        tag = "h" RLENGTH;
+    }
+    sub(/^#+[ \t]*/,"");
+    esc($0);
+}
+
+/^$/ {
+    buflush();
+    tag = "";
+}
+
+/./ {
+    if (! tag) tag = "p";
+    if (! BUF) bufpush("<" tag ">");
+    bufpush($0);
+}
+
+END { buflush(); }
@@ -0,0 +1,66 @@
+#!/bin/sh
+# HAT TRICK
+# (C) 2022 C. Duckworth
+
+[ "x$DEBUG" = "xYES" ] && set -x
+
+: "${HTDAT:=$(date +%s)}"
+: "${HTTMP:=/tmp/ht}"; mkdir -p "$HTTMP"
+: "${HTENV:=$HTTMP/env-$HTDAT.sh}"
+: "${HTBOD:=$HTTMP/bod-$HTDAT.txt}"
+export HTDAT HTTMP HTENV HTBOD
+
+HT_TMPL_COUNT=1
+HT_TMPL_PRE=:
+
+print() { # print STRING...
+    ## A sane version of `echo`.
+    printf '%s\n' "$*"
+}
+
+htt() { # htt FILES...
+    # Like `cat`, but with templating.
+    ht_end="ht_main_$HTDAT_$HT_TMPL_COUNT" # be extra double sure
+    eval "$(print "cat <<$ht_end"; cat "$@"; print; print "$ht_end")"
+    HT_TMPL_COUNT=$(expr $HT_TMPL_COUNT + 1)
+}
+
+ht_build_env() { # ht_build_env FILE...
+    print "body() { cat \"$HTBOD\"; }" > "$HTENV"
+    while read -r line; do
+        case "$line" in
+            *@@*:*@@*) # "simple" metadata; just a string
+                print "$line" |
+                    sed 's/.*@@\([^:]*\): \?\(.*\)@@.*/\1() { print "\2"; }/'
+                ;;
+            *@@*::*@@*) # "complex" metadata: can be anything
+                print "$line" |
+                    sed 's/.*@@\([^:]*\):: \?\(.*\)@@.*/\1() { \2 ; }/'
+                ;;
+        esac >> "$HTENV"
+        # Still print the line to the body (no need to escape or w/e)
+        print "$line" >> "$HTBOD"
+    done
+    env | grep '^HT' | sort | uniq >> "$HTENV"
+}
+
+ht_main() { # main TEMPLATE < INPUT
+    ## Apply TEMPLATE to INPUT and print it.
+    # TEMPLATE will be interpreted as a heredoc.
+    if [ $# -eq 0 ]; then
+        print "ht.sh TEMPLATE < INPUT" >&2
+        exit 1
+    fi
+
+    eval "ht_build_env; . \"$HTENV\"; print \"\$(htt \"\$@\")\";";
+}
+
+# To keep this POSIX-compliant, we can't use a bashism like
+# [[ "$0" == # "$BASH_SOURCE[0]" ]].  However, there are still ways to guess
+# whether the user is sourcing this file as a library or executing it as a
+# script.
+
+case "$0" in
+    *ht.sh) ht_main "$@" ;;
+    *) print "Sourcing ht.sh" ;;
+esac
@@ -0,0 +1,8 @@
+#+TITLE: ideas for hat-trick
+
+* Syntax: ht.awk
+
+It'd be great to have a format that could triple into HTML, Gemini, and Gopher.  Gemini-like, line-based syntax would be easiest to work with, i think.
+
+The current separation into paragraphs with blocks is a good idea.  Also, starting a line with ~<~ /within/ a paragraph could be a good signal that the following is HTML code. Maybe auto-close the tag?
+
@@ -0,0 +1,6 @@
+<footer>
+    $(case "$(title)" in ("") ;; (*) print "<a href=\"./index.html\">back</a>" ;; esac)
+    <span id="copyright">(C) 2022 C. Duckworth</span>
+</footer>
+</body>
+</html>
@@ -0,0 +1,14 @@
+<!DOCTYPE html>
+<html lang="en">
+    <head>
+        <meta charset="utf-8">
+        <meta http-equiv="x-ua-compatible" content="ie=edge">
+        <meta name="viewport"
+              content="width=device-width,initial-scale=1,shrink=to-fit=no">
+        <title>$(title)</title>
+        <link rel="shortcut icon"
+              href="data:image/gif;base64,R0lGODdhEAAQAIAAAAByL8zAGiwAAAAAEAAQAAACK4wNqQsX+1hD6kiaXKxQb+ZZYChmpGNinfpxV/q02dzUrx1L+Lzlp60LFgAAOw==" />
+        <link rel="stylesheet" type="text/css" href="static/casa.css">
+        <link rel="alternate" type="application/atom+xml" href="static/rss.xml">
+    </head>
+    <body>
@@ -0,0 +1,7 @@
+<p>Ahoy!  This here is my little home-away-from-home on the interwebs.
+    I'm currently experimenting with a custom little <abbr title="static site generator">SSG</abbr>
+    I'm calling <strong>HAT TRICK</strong>.
+    I should probably throw the source up somewhere, but I haven't yet.
+</p>
+
+
@@ -0,0 +1,21 @@
+html,body {
+    min-height: 100vh;
+    margin:0; padding: 0;
+}
+
+html {
+    font: 18px serif;
+    background: #385180;
+}
+
+body {
+    max-width: 79ch;
+    padding: 0 2ch;
+    margin: 0 auto;
+    background: #405990;
+    color: white;
+}
+
+a {
+    color: yellow;
+}
@@ -0,0 +1,15 @@
+;@@title: Embedded data-url favicon@@
+
+You might notice that I have a <b>new favicon</b> on this site.
+I didn't want to make a whole nother request, so I took a page from
+=> http://flower.codes/2022/05/10/disabling-favicon.html flower.codes
+(who disabled their favicon completely) and made my favicon a <code>data</code> uri.
+
+I thought it might be complicated, but it was really pretty ding dang easy.
+I found an easy-to-use
+=> https://www.adminbooster.com/tool/data_uri file-to-data-uri converter tool
+and uploaded a little image I made in the
+<abbr title="GNU Image Manipulation Program">GIMP</abbr>.  I tried PNG and GIF.
+GIF was much smaller, so that's what I went with.
+
+Anyway, now you should see a little house on the tab you've loaded this on!  Yay.
@@ -0,0 +1,21 @@
+<!DOCTYPE html>
+<html>
+    <head>
+        <meta charset="utf-8">
+        <title>Good Choices License</title>
+        <style>
+            body{max-width:78ch;padding:2ch;margin:auto;font:24px serif;}
+            h1{font-size:2em;}
+        </style>
+    </head>
+    <body>
+        <h1>Good Choices License</h1>
+        <p>Everyone is permitted to do whatever they like with this software
+           without limitation.  This software comes without any warranty
+            whatsoever, but with two pieces of advice:</p>
+        <ul>
+            <li>Be kind to yourself.</li>
+            <li>Make good choices.</li>
+        </ul>
+    </body>
+</html>
@@ -0,0 +1,11 @@
+<html>
+    <head>
+        <title>Shameless self-promotion!</title>
+    </head>
+    <body>
+        <h1>shameless</h1>
+        <h2>self</h2>
+        <h3>promotion</h3>
+        <p>what can i say, i'm a cool guy.</p>
+    </body>
+</html>
@@ -0,0 +1,32 @@
+html {
+    min-height: 100vh;
+    margin:0; padding: 0;
+}
+
+html {
+    font: 18px serif;
+}
+
+body {
+    max-width: 79ch;
+    margin: 0 auto;
+    padding: 0 2ch;
+    background: #385180;
+    color: white;
+}
+
+main {
+    max-width: 79ch;
+    padding: 2ch;
+    margin: auto;
+    background: #405990;
+}
+
+a {
+    color: yellow;
+}
+
+footer {
+    text-align: right;
+    padding: 1ch 0;
+}
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8" ?>
+<rss version="2.0">
+<channel>
+ <title>Acdw's Casa</title>
+ <description>My casa, in the middle of the web</description>
+ <link>https://acdw.casa</link>
+ <copyright>2022 Case Duckworth</copyright>
+ <lastBuildDate>2022-03-03</lastBuildDate>
+ <pubDate>2022-03-03</pubDate>
+ <ttl>1800</ttl>
+
+ <item>
+  <title>And we're live</title>
+  <description>Hi basement</description>
+  <link>https://acdw.casa/</link>
+  <pubDate>2022-03-03</pubDate>
+ </item>
+
+ <item>
+   <title>Good Choices License</title>
+   <description>A license for people</description>
+   <link>https://acdw.casa/gcl/</link>
+   <pubDate>2022-05-13</pubDate>
+ </item>
+
+</channel>
+</rss>
@@ -0,0 +1,16 @@
+$(sed 's#$(title)#acdw.casa#' _head.htm)
+<header>
+    <h1>mi casa es su casa</h1>
+</header>
+<main>
+    <section id="welcome">
+        $(htt _index.htm)
+    </section>
+    <section id="pages">
+        <h2>pages here</h2>
+        <ul>
+            $(set -x;for p in ".tmp"/*.env; do . "$p"; print "<li><a href=\"$HTOUT\">$(title)</a></li>"; done)
+        </ul>
+    </section>
+</main>
+$(htt _foot.htm)
@@ -0,0 +1,8 @@
+$(htt _head.htm)
+    <header>
+        <h1>$(title)</h1>
+    </header>
+    <main>
+        $(body)
+    </main>
+$(htt _foot.htm)