2024-04-19 main

author: Case Duckworth 2024-04-19 14:10:59 -0500
committer: Case Duckworth 2024-04-19 14:10:59 -0500
commit: bc5d01c53a97d8cb652f87b16a63e0e258a051ab (patch)
tree: e25f7b0bda24f94e34434700a2250382f3a15441
parent: Update base_url (diff)
download: ll-main.tar.gz
ll-main.zip
6 files changed, 98 insertions, 44 deletions
diff --git a/good-soups.ul b/good-soups.ul
new file mode 100644
index 0000000..1cd1357
--- /dev/null
+++ b/good-soups.ul

@@ -0,0 +1,13 @@
+good soups
+minestrone
+miso
+tomato
+borscht (veggie)
+mulligatawny (in name only)
+chili (with beans, fight me)
+ramen noodle
+pho
+hell, any noodle
+ice water
+the kind with croutons in
+\ No newline at end of file
diff --git a/ll b/ll
index 6ce90db..da9da55 100755
--- a/ll
+++ b/ll

@@ -7,26 +7,35 @@ SITE_COPYRIGHT="Case Duckworth"
 BACK_LINK=index.html,back
 wrap() {
-    title="$(sed 1q "$1")"
+        title="$(sed 1q "$1")"
-    cat <<HEAD
+        cat <<HEAD
 <!DOCTYPE html>
+<meta charset="utf8">
+<meta name="viewport" content="width=device-width, initial-scale=1">
 <title>$title</title>
 <style>
-body{max-width:48em;font:20px/1.4 serif;margin:auto;padding:1em;}
+body{max-width:48em;font:20px/1.4 serif;margin:auto;padding:1em;
-footer{position:absolute;bottom:0;left:0;padding:1em;background:white;}
+margin-bottom:4em;}
+footer{position:fixed;bottom:0;left:0;padding:1em;background:white;}
 dt{font-weight:bold;}
 </style>
 <body>
 <!-- LIST_START -->
 <h1>$title</h1>
 HEAD
-    cat
+        cat
-    cat <<FOOT
+        cat <<FOOT
 <!-- LIST_END -->
 <footer>
 $(test "$2" && printf '<a href="%s">%s</a>' "${2%%,*}" "${2##*,}")
-$(case "$1" in (*index*) printf '<a href="%s">%s</a>' \
+$(case "$1" in (*index*)
-       "$BASE_URL/feed.xml" feed ;; esac)
+       echo '<ul style="margin:0;padding:0;">'
+       printf '<li style="list-style:none;margin:0"><a href="%s">%s</a></li>\n' \
+              "$BASE_URL/feed.xml" feed \
+                      "https://git.acdw.net/ll" source \
+                      "https://www.acdw.net" home
+       echo "</ul>"
+       ;; esac)
 </footer>
 </body></html>
 FOOT
@@ -44,7 +53,7 @@ al()(list ul -F"\n" -vRS= '{printf "<li><a href=\"%s\">%s</a></li>\n",$1,$2}')
 dl()(list dl -F"\n" -vRS= '{printf "<dt>%s</dt>\n<dd>%s</dd>\n",$1,$2}')
 rss() {
-    cat <<HEAD
+        cat <<HEAD
 <?xml version="1.0" encoding="utf-8"?>
 <feed xmlns="http://www.w3.org/2005/Atom">
 <title>$(sed 1q index.al)</title>
@@ -54,29 +63,22 @@ rss() {
 <rights>$SITE_COPYRIGHT</rights>
 <updated>$(date +%FT%TZ)</updated>
 HEAD
-    # entries
+        # entries
-    awk -F"\n" -vRS= \
+        awk -F"\n" -vRS= \
-        -vbase="$BASE_URL" \
+            -vbase="$BASE_URL" \
-        -vauthor="$SITE_COPYRIGHT" \
+            -vauthor="$SITE_COPYRIGHT" \
-        'NR==1{next}
+            'NR==1{next}
-{   url=$1; title=$2;
+{   url=$1; title=$2; updated=$3;
    file=url; sub(base "/", "", file)
    printf "<entry>\n<id>%s</id>\n", url
    printf "<link rel=\"alternate\" href=\"%s\" />\n", url
    printf "<title>%s</title>\n", title
    printf "<author><name>%s</name></author>\n", author
-    printf "<updated>%s</updated>\n", updated(file)
+    printf "<updated>%s</updated>\n", updated
    printf "<content type=\"html\"><![CDATA[%s]]></content>\n",
        slurp(file)
    printf "</entry>\n"
 }
-function updated (file) {
-    cmd = "stat -c %y " file " 2>/dev/null"
-    cmd = cmd " || stat -f %Sm -t %FT%TZ " file " 2>/dev/null"
-    cmd | getline upd
-    close(cmd)
-    return upd
-}
 function slurp (file,    out, bodyp) {
    oldRS=RS; RS="\n"
    while ((getline < file) > 0) {
@@ -87,32 +89,44 @@ function slurp (file,    out, bodyp) {
    RS=oldRS
    return out
 }'
-    cat <<FOOT
+        cat <<FOOT
 </feed>
 FOOT
 }
+modtime() {
+        mtime="$(stat -c%Y "$1" 2>/dev/null ||
+                      stat -f%Sm -t%FT%TZ "$1" 2>/dev/null)"
+        if test -n "$mtime"
+        then
+                # busybox date
+                date -u -d "@$mtime" +%FT%TZ
+        fi
+}
 # Main
 main() {
-    printf "%s\n\n" "$SITE_TITLE" > index.al
+        printf "%s\n\n" "$SITE_TITLE" > index.al
-    ls -t *.ul *.dl *.ol *.al 2>/dev/null |
+        ls -t *.ul *.dl *.ol *.al 2>/dev/null |
-        sed '/index.al/d' |
+                sed '/index.al/d' |
-        while read -r lst
+                while read -r lst
-        do
+                do
-            printf >&2 "Processing %s..." "$lst"
+                        printf >&2 "Processing %s..." "$lst"
-            "${lst##*.}" < "$lst" |
+                        "${lst##*.}" < "$lst" |
-                wrap "$lst" "$BACK_LINK" > "${lst%%.*}.html"
+                                wrap "$lst" "$BACK_LINK" > "${lst%%.*}.html"
-            echo "$BASE_URL/${lst%%.*}.html" >> index.al
+                        printf '%s\n%s\n%s\n\n' \
-            echo "$(sed 1q "$lst")" >> index.al
+                               "$BASE_URL/${lst%%.*}.html" \
-            echo >> index.al
+                               "$(sed 1q "$lst")" \
-            echo >&2 ok
+                               "$(modtime "$lst")" \
-        done
+                               >> index.al
-    printf >&2 "Processing index..."
+                        echo >&2 ok
-    al < index.al | wrap index.al > index.html &&
+                done
-        echo >&2 ok
+        printf >&2 "Processing index..."
-    printf >&2 "Processing rss..."
+        al < index.al | wrap index.al > index.html &&
-    rss < index.al > feed.xml &&
+                echo >&2 ok
-        echo >&2 ok
+        printf >&2 "Processing rss..."
+        rss < index.al > feed.xml &&
+                echo >&2 ok
 }
 main "$@"
diff --git a/ok b/ok
index 26ec2b7..6cf1c9c 100644
--- a/ok
+++ b/ok

@@ -3,7 +3,7 @@
 watch(){                        # repeatedly serve directory as files change
        while :
        do
-                printf '%s\n' *.ul *.ol *.al *.dl |
+                printf '%s\n' *.ul *.ol *.al *.dl ll |
                        ok entr -d -r ok serve
                $NORUN && break
        done
diff --git a/titles-of-poems.ul b/titles-of-poems.ul
new file mode 100644
index 0000000..6fc42b9
--- /dev/null
+++ b/titles-of-poems.ul

@@ -0,0 +1,3 @@
+titles of poems i have not written and may never write
+birds fly to the stars, i guess
diff --git a/what-i-had-for-lunch-today.ol b/what-i-had-for-lunch-today.ol
new file mode 100644
index 0000000..e460232
--- /dev/null
+++ b/what-i-had-for-lunch-today.ol

@@ -0,0 +1,7 @@
+what i had for lunch today
+6 lance crackers (toast chee)
+1 peanut butter (crunchy) and jelly sandwich
+1 mozzarella cheese stick
+1 apple (gala)
+water
+\ No newline at end of file
diff --git a/why-dont-i-blog.ul b/why-dont-i-blog.ul
new file mode 100644
index 0000000..671869c
--- /dev/null
+++ b/why-dont-i-blog.ul

@@ -0,0 +1,17 @@
+why don't i blog?
+too much friction to start a new post
+busy with work and other software hobby projects
+no ideas
+too easy to make excuses
+nothing to say
+anxiety over being perceived
+unsure of tone to strike
+i write all day at work as is
+i don't read; why would i write
+too much pressure on myself to do something good
+other reasons
+other reasons i should not worry about
+other reasons i am using to put a lot of pressure on myself
+other "shoulds"
+things i can just let go
+\ No newline at end of file
author	Case Duckworth	2024-04-19 14:10:59 -0500
committer	Case Duckworth	2024-04-19 14:10:59 -0500
commit	bc5d01c53a97d8cb652f87b16a63e0e258a051ab (patch)
tree	e25f7b0bda24f94e34434700a2250382f3a15441
parent	Update base_url (diff)
download	ll-main.tar.gz ll-main.zip