use isal instead of builtin compression funcitons

srv/http_utils/response.hy

@@ -1,26 +1,38 @@
-(import hyrule.collections [assoc])
+(import isal.igzip [compress :as gzip])
+(import isal.isal_zlib [compress :as zstd])
 
-(defn send-code [code]
+(import hyrule.collections [assoc])
+(require hyrule.control [branch])
+
+(defn pack-code [code]
   (.encode f"HTTP/1.1 {code}\r\n" "utf-8"))
 
-(defn send-headers [headers]
+(defn pack-headers [headers]
   (.encode (+ (.join "\r\n" (lfor [k v] (.items headers) f"{k}: {v}")) "\r\n\r\n") "utf-8"))
 
-(defn send-body [body]
+(defn send [[code 200] [headers None] [body ""] [request-headers None]]
-  (cond 
+  (when (is headers None)
+    (setv headers {}))
+
+  (setv body (cond 
     (isinstance body bytes) body
     (isinstance body str) (.encode body "utf-8")))
 
-(defn send [[code 200] [headers None] [body ""]]
+  (when request-headers
-  (when (is headers None)
+    (when (.get request-headers "Accept-Encoding")
-    (setv headers {}))
+      (branch (in it (.get request-headers "Accept-Encoding"))
+        "zstd" (do
+          (setv (get headers "Accept-Encoding") "gzip")
+          (setv body (zstd body)))
+        "gzip" (do
+          (setv (get headers "Accept-Encoding") "gzip")
+          (setv body (gzip body))))))
 
   (assoc headers "WHAT...-your-trans-gener..." "that is so cool...")
 
   (when (not-in "Content-Type" headers)
     (assoc headers "Content-Type" "text/html"))
-
   (+ 
-    (send-code code)
+    (pack-code code)
-    (send-headers headers)
+    (pack-headers headers)
-    (send-body body)))
+    body))

srv/main.hy

@@ -39,7 +39,7 @@
                     True (get address 0))) f": {(. parsed-request (get "method"))} {(. parsed-request (get "route") (get "path"))}"))
 
                   (setv response (match-request parsed-request))
-                  (.sendall client-socket (http.response.send #** response))
+                  (.sendall client-socket (http.response.send :request-headers (.get parsed-request "headers") #** response))
 
                   (except [e Exception]
                     (.warn log (format-exc))

www/src/data/88x31s.yaml

@@ -64,10 +64,24 @@ specific:
     src: //tasiaiso.vulpecula.zone/images/badges/tasiaiso.png
     alt: tasia's 88x31
 
+    # does not 301 to https if requested with http
   - host: //www.31a05b.net/
     src: https://www.31a05b.net/a/8831/31a05b.png
     alt: 31A05B9C's random site
 
+  - host: //bunbun.dev/
+    src: //bunbun.dev/assets/88x31s/bunbun.dev.gif
+    alt: bunbun.dev
+
 general:
   - src: assets/88x31/e2vial-88x31.gif
     alt: an estrogen vial spinning next to the text "powered by estrogen"
+
+  - src: assets/88x31/it-its.png
+    alt: it/its
+
+  - src: assets/88x31/not-a-person.png
+    alt: not a person
+
+  - src: assets/88x31/this-machine-kills-fascists.png
+    alt: this machine kills fascists

www/src/pages/home.hy

@@ -15,7 +15,7 @@
     (h2 "site info" ~(run "make-footnote \"as of last build\""))
     (details
       (summary "git changelog")
-      (pre ~(run "git log --pretty=format:'%ad %s' --date=short")))
+      (pre ~(run #[[git log --pretty=format:'%ad %s' --date=short | sed 's/</\&lt;/g; s/>/\&gt;/g']])))
       
     (details
       (summary "file tree of the site on the server")

www/src/scripts/syntax-hl

@@ -1,7 +1,7 @@
 #!/bin/bash
 tmpfile=$(mktemp)
 
-timeout 0.6s nvim "$1" -c "set nonu | set nornu" -c "autocmd LspAttach * execute 'TOhtml | w! ${tmpfile} | qa!'" >/dev/null || nvim "$1" -c "set nonu | set nornu" -c "TOhtml | w! ${tmpfile} | qa!" >/dev/null
+timeout 0.6s nvim "$1" -c "set noswapfile" -c "%s/^$/ /g" -c "set conceallevel=0" -c "set nonu | set nornu" -c "autocmd LspAttach * execute 'TOhtml | w! ${tmpfile} | qa!'" >/dev/null || nvim "$1" -c "set noswapfile" -c "%s/^$/ /" -c "set conceallevel=0" -c "set nonu | set nornu" -c "TOhtml | w! ${tmpfile} | qa!" >/dev/null
 
 cat "${tmpfile}" | pup --pre 'style, pre' | sed '/^$/d'