# HG changeset patch # User ellis # Date 1703828718 18000 # Node ID b174dd6a3f7c37b3355f837022889df00dc63384 # Parent 3d1d5115a5b75f125717e0ffd3a5cac7a1cbdae4 notes diff -r 3d1d5115a5b7 -r b174dd6a3f7c .hgsubstate --- a/.hgsubstate Tue Dec 12 21:51:28 2023 -0500 +++ b/.hgsubstate Fri Dec 29 00:45:18 2023 -0500 @@ -1,2 +1,2 @@ b6380832df99ead6c390a664bdf3b5623444a978 blog -31db7a83d2c62c5b59770f839c1c2e86a354a5e9 docs +46fb6a10d2e14a3aee504f5597e0fd79a80ac590 docs diff -r 3d1d5115a5b7 -r b174dd6a3f7c notes/20231223.org --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/notes/20231223.org Fri Dec 29 00:45:18 2023 -0500 @@ -0,0 +1,3 @@ +* https://cal-coop.gitlab.io/utena/utena-specification/main.pdf +from the author of cl-decentralise2. draft specification of a +/Maximalist/ Computing System. diff -r 3d1d5115a5b7 -r b174dd6a3f7c notes/20231224.org --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/notes/20231224.org Fri Dec 29 00:45:18 2023 -0500 @@ -0,0 +1,4 @@ +* public datasets +https://github.com/awesomedata/awesome-public-datasets +https://docs.openml.org/Datasets/ +https://wiki.pathmind.com/open-datasets diff -r 3d1d5115a5b7 -r b174dd6a3f7c notes/20231228.org --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/notes/20231228.org Fri Dec 29 00:45:18 2023 -0500 @@ -0,0 +1,40 @@ +* useful internals +#+begin_src lisp + sb-sys:*runtime-dlhandle* + sb-fasl:+fasl-file-version+ + sb-fasl:+backend-fasl-file-implementation+ + sb-debug:print-backtrace + sb-debug:map-backtrace + sb-pretty:pprint-dispatch-table + sb-lockless: + sb-ext:simd-pack + sb-walker:define-walker-template + sb-walker:macroexpand-all + sb-walker:walk-form + sb-kernel:empty-type + sb-kernel:*eval-calls* + sb-kernel:*gc-pin-code-pages* + sb-kernel:*restart-clusters* + sb-kernel:*save-lisp-clobbered-globals* + sb-kernel:*top-level-form-p* + sb-kernel:*universal-fun-type* + sb-kernel:*universal-type* + sb-kernel:*wild-type* + sb-kernel:+simd-pack-element-types+ + (sb-vm:memory-usage) + (sb-vm:boxed-context-register) + (sb-vm:c-find-heap->arena) + (sb-vm:copy-number-to-heap) + (sb-vm:dump-arena-objects) + (sb-vm:fixnumize) + (sb-vm:rewind-arena) + (sb-vm:show-heap->arena) + (sb-vm:with/without-arena) + (sb-cltl2:{augment-environment,compiler-let,define-declaration,parse-macro}) + (sb-cltl2:{declaration-information, variable-information, function-information}) + sb-di: + sb-assem: + sb-md5: + sb-regalloc: + sb-disassem: +#+end_src diff -r 3d1d5115a5b7 -r b174dd6a3f7c publish.el --- a/publish.el Tue Dec 12 21:51:28 2023 -0500 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,106 +0,0 @@ -;;; publish.el --- the.compiler.company publishing script -*- lexical-binding: t; -*- - -;; emacsclient -e '(load-file "publish.el")' '(publish)' - -;;; Code: -(require 'ox-publish) -(require 'org-id) -;; vendored -(require 'htmlize) -(defvar project-dir "~/dev/comp/org") -(defvar publish-dir "/mnt/w/compiler.company") -(defvar html-theme nil) -(defvar url "https://compiler.company") -(defvar html-nav "
(( ~/ ( blog docs )) . ( vc packy ))
") - -(defvar html-foot "") - -(setq org-html-style-default "" - org-html-scripts "" - org-html-htmlize-output-type 'css - org-export-htmlize-output-type 'css - org-html-doctype "html5" - org-html-html5-fancy t - org-html-validation-link nil - org-src-fontify-natively t - make-backup-files nil - debug-on-error t - org-id-link-to-org-use-id t) - -(setq org-publish-project-alist - `(("compiler.company" :components ("index" "blog" "docs")) - ("index" - :base-directory ,project-dir - :base-extension "org" - :recursive nil - :htmlized-source t - :footnote-section-p t - :html-doctype "" - :html-preamble ,html-nav - :publishing-directory ,publish-dir - :publishing-function org-html-publish-to-html - :html-postamble ,html-foot) - ("blog" - :base-directory ,(expand-file-name "blog" project-dir) - :base-extension "org" - :footnote-section-p t - :html-doctype "" - :publishing-directory ,(expand-file-name "blog" publish-dir) - :publishing-function org-html-publish-to-html - :htmlized-source t - :html-preamble ,html-nav - :html-postamble ,html-foot) - ("docs" - :base-directory ,(expand-file-name "docs" project-dir) - :base-extension "org" - :recursive t - :footnote-section-p t - :html-doctype "" - :publishing-directory ,(expand-file-name "docs" publish-dir) - :publishing-function org-html-publish-to-html - :htmlized-source t - :html-preamble ,html-nav - :html-postamble ,html-foot))) - -(defun org-custom-id-get (&optional pom create prefix) - "Get the CUSTOM_ID property of the entry at point-or-marker POM. - If POM is nil, refer to the entry at point. If the entry does - not have an CUSTOM_ID, the function returns nil. However, when - CREATE is non nil, create a CUSTOM_ID if none is present - already. PREFIX will be passed through to `org-id-new'. In any - case, the CUSTOM_ID of the entry is returned." - (interactive) -(org-with-point-at pom - (let ((id (org-entry-get nil "CUSTOM_ID")) - ;; use CUSTOM_ID for links - (org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id)) - (cond - ((and id (stringp id) (string-match "\\S-" id)) - id) - (create - (setq id (org-id-new prefix)) - (org-entry-put pom "CUSTOM_ID" id) - (org-id-add-location id (buffer-file-name (buffer-base-buffer))) - id))))) -;;;###autoload -(defun org-id-add-to-headlines-in-file () - "Add CUSTOM_ID properties to all headlines in the - current file which do not already have one." - (interactive) - (org-map-entries (lambda () (org-custom-id-get (point) 'create)))) - -;;;###autoload -(defun publish (&optional sitemap static force async) - "publish `rwest-io' content. -If STATIC is t, also publish media and static files. -If FORCE is t, skip checking file mod date and just publish all files. -If ASYNC is t, call `org-publish' asynchronously. -If given a prefix (C-u), set all args to t" - (interactive) - (if current-prefix-arg - (setq static t - force t - async t)) - (let ((default-directory project-dir)) - (message (format "publishing from %s" default-directory)) - (org-publish "compiler.company" force async)))