1.1--- a/.hgsubstate	Tue Dec 12 21:51:28 2023 -0500
     1.2+++ b/.hgsubstate	Fri Dec 29 00:45:18 2023 -0500
     1.3@@ -1,2 +1,2 @@
     1.4 b6380832df99ead6c390a664bdf3b5623444a978 blog
     1.5-31db7a83d2c62c5b59770f839c1c2e86a354a5e9 docs
     1.6+46fb6a10d2e14a3aee504f5597e0fd79a80ac590 docs

     2.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     2.2+++ b/notes/20231223.org	Fri Dec 29 00:45:18 2023 -0500
     2.3@@ -0,0 +1,3 @@
     2.4+* https://cal-coop.gitlab.io/utena/utena-specification/main.pdf
     2.5+from the author of cl-decentralise2. draft specification of a
     2.6+/Maximalist/ Computing System.

     3.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     3.2+++ b/notes/20231224.org	Fri Dec 29 00:45:18 2023 -0500
     3.3@@ -0,0 +1,4 @@
     3.4+* public datasets
     3.5+https://github.com/awesomedata/awesome-public-datasets
     3.6+https://docs.openml.org/Datasets/
     3.7+https://wiki.pathmind.com/open-datasets

     4.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     4.2+++ b/notes/20231228.org	Fri Dec 29 00:45:18 2023 -0500
     4.3@@ -0,0 +1,40 @@
     4.4+* useful internals
     4.5+#+begin_src lisp
     4.6+  sb-sys:*runtime-dlhandle*
     4.7+  sb-fasl:+fasl-file-version+
     4.8+  sb-fasl:+backend-fasl-file-implementation+
     4.9+  sb-debug:print-backtrace
    4.10+  sb-debug:map-backtrace
    4.11+  sb-pretty:pprint-dispatch-table
    4.12+  sb-lockless:
    4.13+  sb-ext:simd-pack
    4.14+  sb-walker:define-walker-template
    4.15+  sb-walker:macroexpand-all
    4.16+  sb-walker:walk-form
    4.17+  sb-kernel:empty-type
    4.18+  sb-kernel:*eval-calls*
    4.19+  sb-kernel:*gc-pin-code-pages*
    4.20+  sb-kernel:*restart-clusters*
    4.21+  sb-kernel:*save-lisp-clobbered-globals*
    4.22+  sb-kernel:*top-level-form-p*
    4.23+  sb-kernel:*universal-fun-type*
    4.24+  sb-kernel:*universal-type*
    4.25+  sb-kernel:*wild-type*
    4.26+  sb-kernel:+simd-pack-element-types+
    4.27+  (sb-vm:memory-usage)
    4.28+  (sb-vm:boxed-context-register)
    4.29+  (sb-vm:c-find-heap->arena)
    4.30+  (sb-vm:copy-number-to-heap)
    4.31+  (sb-vm:dump-arena-objects)
    4.32+  (sb-vm:fixnumize)
    4.33+  (sb-vm:rewind-arena)
    4.34+  (sb-vm:show-heap->arena)
    4.35+  (sb-vm:with/without-arena)
    4.36+  (sb-cltl2:{augment-environment,compiler-let,define-declaration,parse-macro})
    4.37+  (sb-cltl2:{declaration-information, variable-information, function-information})
    4.38+  sb-di:
    4.39+  sb-assem:
    4.40+  sb-md5:
    4.41+  sb-regalloc:
    4.42+  sb-disassem:
    4.43+#+end_src

     5.1--- a/publish.el	Tue Dec 12 21:51:28 2023 -0500
     5.2+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
     5.3@@ -1,106 +0,0 @@
     5.4-;;; publish.el --- the.compiler.company publishing script  -*- lexical-binding: t; -*-
     5.5-
     5.6-;; emacsclient -e '(load-file "publish.el")' '(publish)'
     5.7-
     5.8-;;; Code:
     5.9-(require 'ox-publish)
    5.10-(require 'org-id)
    5.11-;; vendored
    5.12-(require 'htmlize)
    5.13-(defvar project-dir "~/dev/comp/org")
    5.14-(defvar publish-dir "/mnt/w/compiler.company")
    5.15-(defvar html-theme nil)
    5.16-(defvar url "https://compiler.company")
    5.17-(defvar html-nav "<div class=\"nav\"> (( <a href = \"https://compiler.company\">~/</a> ( <a href = \"https://compiler.company/blog\">blog</a> <a href = \"https://compiler.company/docs\">docs</a> )) . ( <a href = \"https://vc.compiler.company/comp\">vc</a>  <a href = \"https://packy.compiler.company\">packy</a> )) </div>")
    5.18-
    5.19-(defvar html-foot "<footer>updated %C</footer>")
    5.20-
    5.21-(setq org-html-style-default ""
    5.22-      org-html-scripts ""
    5.23-      org-html-htmlize-output-type 'css
    5.24-      org-export-htmlize-output-type 'css
    5.25-      org-html-doctype "html5"
    5.26-      org-html-html5-fancy t
    5.27-      org-html-validation-link nil
    5.28-      org-src-fontify-natively t
    5.29-      make-backup-files nil
    5.30-      debug-on-error t
    5.31-      org-id-link-to-org-use-id t)
    5.32-
    5.33-(setq org-publish-project-alist
    5.34-      `(("compiler.company" :components ("index" "blog" "docs"))
    5.35-        ("index"
    5.36-         :base-directory ,project-dir
    5.37-         :base-extension "org"
    5.38-         :recursive nil
    5.39-         :htmlized-source t
    5.40-         :footnote-section-p t
    5.41-         :html-doctype "<!doctype html>"
    5.42-	 :html-preamble ,html-nav
    5.43-         :publishing-directory ,publish-dir
    5.44-         :publishing-function org-html-publish-to-html
    5.45-         :html-postamble ,html-foot)
    5.46-        ("blog"
    5.47-         :base-directory ,(expand-file-name "blog" project-dir)
    5.48-         :base-extension "org"
    5.49-         :footnote-section-p t
    5.50-         :html-doctype "<!doctype html>"
    5.51-	 :publishing-directory ,(expand-file-name "blog" publish-dir)
    5.52-	 :publishing-function org-html-publish-to-html
    5.53-	 :htmlized-source t
    5.54-	 :html-preamble ,html-nav
    5.55-         :html-postamble ,html-foot)
    5.56-        ("docs"
    5.57-         :base-directory ,(expand-file-name "docs" project-dir)
    5.58-         :base-extension "org"
    5.59-         :recursive t
    5.60-         :footnote-section-p t
    5.61-         :html-doctype "<!doctype html>"
    5.62-         :publishing-directory ,(expand-file-name "docs" publish-dir)
    5.63-	 :publishing-function org-html-publish-to-html
    5.64-	 :htmlized-source t
    5.65-         :html-preamble ,html-nav
    5.66-         :html-postamble ,html-foot)))
    5.67-
    5.68-(defun org-custom-id-get (&optional pom create prefix)
    5.69-  "Get the CUSTOM_ID property of the entry at point-or-marker POM.
    5.70-   If POM is nil, refer to the entry at point. If the entry does
    5.71-   not have an CUSTOM_ID, the function returns nil. However, when
    5.72-   CREATE is non nil, create a CUSTOM_ID if none is present
    5.73-   already. PREFIX will be passed through to `org-id-new'. In any
    5.74-   case, the CUSTOM_ID of the entry is returned."
    5.75-  (interactive)
    5.76-(org-with-point-at pom
    5.77-  (let ((id (org-entry-get nil "CUSTOM_ID"))
    5.78-	;; use CUSTOM_ID for links
    5.79-	(org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id))
    5.80-      (cond
    5.81-       ((and id (stringp id) (string-match "\\S-" id))
    5.82-        id)
    5.83-       (create
    5.84-        (setq id (org-id-new prefix))
    5.85-        (org-entry-put pom "CUSTOM_ID" id)
    5.86-        (org-id-add-location id (buffer-file-name (buffer-base-buffer)))
    5.87-        id)))))
    5.88-;;;###autoload
    5.89-(defun org-id-add-to-headlines-in-file ()
    5.90-  "Add CUSTOM_ID properties to all headlines in the
    5.91-   current file which do not already have one."
    5.92-  (interactive)
    5.93-  (org-map-entries (lambda () (org-custom-id-get (point) 'create))))
    5.94-
    5.95-;;;###autoload
    5.96-(defun publish (&optional sitemap static force async)
    5.97-  "publish `rwest-io' content.
    5.98-If STATIC is t, also publish media and static files.
    5.99-If FORCE is t, skip checking file mod date and just publish all files.
   5.100-If ASYNC is t, call `org-publish' asynchronously.
   5.101-If given a prefix (C-u), set all args to t"
   5.102-  (interactive)
   5.103-  (if current-prefix-arg
   5.104-      (setq static t
   5.105-	    force t
   5.106-            async t))
   5.107-  (let ((default-directory project-dir))
   5.108-    (message (format "publishing from %s" default-directory))    
   5.109-    (org-publish "compiler.company" force async)))