| changeset 665: | c60decbaae3d |
| parent: | 39170f311b8c |
| author: | Richard Westhaver <ellis@rwest.io> |
| date: | Sun, 22 Sep 2024 21:29:15 -0400 |
| permissions: | -rw-r--r-- |
| description: | more graph updates |
| 587 | 1 | ;;; publish.el --- the.compiler.company publishing script -*- lexical-binding:t -*- |
| 143 | 2 | |
| 3 | ;; emacsclient -e '(load-file "publish.el")' '(publish)' |
|
| 4 | ||
| 5 | ;;; Code: |
|
| 6 | (require 'ox-publish) |
|
| 7 | (require 'org-id) |
|
|
606
6fc04c4d465c
emacs and rocksdb upgrades
Richard Westhaver <ellis@rwest.io>
parents:
605
diff
changeset
|
8 | (require 'dash) |
|
637
b88bf15f60d0
parquet tweaks, import ox-man
Richard Westhaver <ellis@rwest.io>
parents:
636
diff
changeset
|
9 | (require 'ox-man) |
| 143 | 10 | ;; vendored |
| 11 | (require 'htmlize) |
|
| 395 | 12 | (defvar project-dir "~/comp/org") |
| 563 | 13 | (defvar publish-dir "/tmp/www") |
| 143 | 14 | (defvar html-theme nil) |
| 15 | (defvar url "https://compiler.company") |
|
| 406 | 16 | (defvar vc-url "https://vc.compiler.company") |
| 17 | (defvar packy-url "https://packy.compiler.company") |
|
| 143 | 18 | (defvar html-foot "<footer><p>updated %C</p></footer>") |
| 19 | ||
|
396
6f2796285c41
bug fix, messing with org 9.7 features
Richard Westhaver <ellis@rwest.io>
parents:
395
diff
changeset
|
20 | ;; (setq org-protocol-project-alist |
|
6f2796285c41
bug fix, messing with org 9.7 features
Richard Westhaver <ellis@rwest.io>
parents:
395
diff
changeset
|
21 | ;; '(("comp" |
|
6f2796285c41
bug fix, messing with org 9.7 features
Richard Westhaver <ellis@rwest.io>
parents:
395
diff
changeset
|
22 | ;; :base-url url |
|
6f2796285c41
bug fix, messing with org 9.7 features
Richard Westhaver <ellis@rwest.io>
parents:
395
diff
changeset
|
23 | ;; :working-directory project-dir |
|
6f2796285c41
bug fix, messing with org 9.7 features
Richard Westhaver <ellis@rwest.io>
parents:
395
diff
changeset
|
24 | ;; :online-suffix ".html" |
|
6f2796285c41
bug fix, messing with org 9.7 features
Richard Westhaver <ellis@rwest.io>
parents:
395
diff
changeset
|
25 | ;; :working-suffix ".org"))) |
|
6f2796285c41
bug fix, messing with org 9.7 features
Richard Westhaver <ellis@rwest.io>
parents:
395
diff
changeset
|
26 | |
| 143 | 27 | (setq org-html-style-default "" |
|
629
ab02408636b7
elisp work, added slime-company (to be deprecated)
Richard Westhaver <ellis@rwest.io>
parents:
618
diff
changeset
|
28 | ;; org-html-scripts "" |
| 661 | 29 | |
| 143 | 30 | org-html-htmlize-output-type 'css |
| 31 | org-export-htmlize-output-type 'css |
|
| 447 | 32 | org-export-allow-bind-keywords t |
| 143 | 33 | org-html-doctype "html5" |
| 34 | org-html-html5-fancy t |
|
|
629
ab02408636b7
elisp work, added slime-company (to be deprecated)
Richard Westhaver <ellis@rwest.io>
parents:
618
diff
changeset
|
35 | ;; org-html-validation-link nil |
| 143 | 36 | org-src-fontify-natively t |
| 37 | make-backup-files nil |
|
| 38 | debug-on-error t |
|
| 661 | 39 | org-id-link-to-org-use-id t |
| 40 | org-html-klipsify-src nil) |
|
| 41 | ||
| 42 | (setq org-html-klipse-selection-script |
|
| 43 | "window.klipse_settings = {selector_eval_html: '.src-html', |
|
| 44 | selector_eval_js: '.src-js', |
|
| 45 | selector_eval_python_client: '.src-python', |
|
| 46 | selector_eval_scheme: '.src-scheme', |
|
| 47 | selector: '.src-clojure', |
|
| 48 | selector_eval_ruby: '.src-ruby', |
|
| 49 | selector_eval_clisp: '.src-lisp'};") |
|
| 143 | 50 | |
|
629
ab02408636b7
elisp work, added slime-company (to be deprecated)
Richard Westhaver <ellis@rwest.io>
parents:
618
diff
changeset
|
51 | (setq org-html-link-home url) |
|
ab02408636b7
elisp work, added slime-company (to be deprecated)
Richard Westhaver <ellis@rwest.io>
parents:
618
diff
changeset
|
52 | |
| 665 | 53 | (setq org-html-home/up-format "<nav id=\"org-div-home-and-up\"><a href=\"%s\" accesskey=\"h\"><button class=home>⌂</button></a><a href=\"%s\" accesskey=\"u\"><button class=up>▲</button></a> |
| 54 | <button accesskey=\"s\" class=show onclick=open_all_sections()>show</button> <button accesskey=\"x\" class=hide onclick=close_all_sections()>hide</button></nav>") |
|
|
629
ab02408636b7
elisp work, added slime-company (to be deprecated)
Richard Westhaver <ellis@rwest.io>
parents:
618
diff
changeset
|
55 | |
| 143 | 56 | (setq org-publish-project-alist |
| 587 | 57 | `(("compiler.company" :components ("index" "meta" "blog" "docs" "notes" "plan")) |
| 143 | 58 | ("index" |
| 59 | :base-directory ,project-dir |
|
| 60 | :base-extension "org" |
|
| 61 | :recursive nil |
|
| 62 | :htmlized-source t |
|
| 63 | :footnote-section-p t |
|
| 64 | :html-doctype "<!doctype html>" |
|
| 65 | :html-postamble ,html-foot |
|
| 66 | :publishing-directory ,publish-dir |
|
| 67 | :publishing-function org-html-publish-to-html) |
|
| 587 | 68 | ("meta" |
| 69 | :base-directory ,(expand-file-name "meta" project-dir) |
|
| 70 | :base-extension "org" |
|
|
618
5e57683a0c28
rocksdb updates and tests, emacs org config
Richard Westhaver <ellis@rwest.io>
parents:
614
diff
changeset
|
71 | :recursive nil |
| 587 | 72 | :footnote-section-p t |
| 73 | :html-doctype "<!doctype html>" |
|
| 74 | :publishing-directory ,(expand-file-name "meta" publish-dir) |
|
| 75 | :publishing-function org-html-publish-to-html |
|
| 76 | :htmlized-source t |
|
| 77 | :html-postamble ,html-foot) |
|
| 143 | 78 | ("blog" |
| 79 | :base-directory ,(expand-file-name "blog" project-dir) |
|
| 428 | 80 | :recursive t |
| 143 | 81 | :base-extension "org" |
| 82 | :footnote-section-p t |
|
| 83 | :html-doctype "<!doctype html>" |
|
| 84 | :publishing-directory ,(expand-file-name "blog" publish-dir) |
|
| 85 | :publishing-function org-html-publish-to-html |
|
| 86 | :htmlized-source t |
|
| 87 | :html-postamble ,html-foot) |
|
|
422
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
88 | ("plan" |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
89 | :base-directory ,(expand-file-name "plan" project-dir) |
| 428 | 90 | :recursive t |
|
422
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
91 | :base-extension "org" |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
92 | :footnote-section-p t |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
93 | :html-doctype "<!doctype html>" |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
94 | :publishing-directory ,(expand-file-name "plan" publish-dir) |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
95 | :publishing-function org-html-publish-to-html |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
96 | :htmlized-source t |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
97 | :html-postamble ,html-foot) |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
98 | ("notes" |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
99 | :base-directory ,(expand-file-name "notes" project-dir) |
| 428 | 100 | :recursive t |
|
422
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
101 | :base-extension "org" |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
102 | :footnote-section-p t |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
103 | :html-doctype "<!doctype html>" |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
104 | :publishing-directory ,(expand-file-name "notes" publish-dir) |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
105 | :publishing-function org-html-publish-to-html |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
106 | :htmlized-source t |
|
3e0a434b0c56
init alik installer example, more emacs-lisp
Richard Westhaver <ellis@rwest.io>
parents:
406
diff
changeset
|
107 | :html-postamble ,html-foot) |
| 143 | 108 | ("docs" |
| 109 | :base-directory ,(expand-file-name "docs" project-dir) |
|
| 110 | :base-extension "org" |
|
| 111 | :recursive t |
|
| 112 | :footnote-section-p t |
|
| 113 | :html-doctype "<!doctype html>" |
|
| 114 | :publishing-directory ,(expand-file-name "docs" publish-dir) |
|
| 587 | 115 | :publishing-function org-html-publish-to-html |
| 116 | :htmlized-source t |
|
| 117 | :html-postamble ,html-foot))) |
|
| 143 | 118 | |
| 613 | 119 | ;; (defun org-export-get-reference-title (datum info) |
| 120 | ;; "Like `org-export-get-reference', except uses heading titles instead of random numbers." |
|
| 121 | ;; (let ((cache (plist-get info :internal-references))) |
|
| 122 | ;; (or (car (rassq datum cache)) |
|
| 123 | ;; (let* ((crossrefs (plist-get info :crossrefs)) |
|
| 124 | ;; (cells (org-export-search-cells datum)) |
|
| 125 | ;; ;; Preserve any pre-existing association between |
|
| 126 | ;; ;; a search cell and a reference, i.e., when some |
|
| 127 | ;; ;; previously published document referenced a location |
|
| 128 | ;; ;; within current file (see |
|
| 129 | ;; ;; `org-publish-resolve-external-link'). |
|
| 130 | ;; ;; |
|
| 131 | ;; ;; However, there is no guarantee that search cells are |
|
| 132 | ;; ;; unique, e.g., there might be duplicate custom ID or |
|
| 133 | ;; ;; two headings with the same title in the file. |
|
| 134 | ;; ;; |
|
| 135 | ;; ;; As a consequence, before re-using any reference to |
|
| 136 | ;; ;; an element or object, we check that it doesn't refer |
|
| 137 | ;; ;; to a previous element or object. |
|
| 138 | ;; (new (or (cl-some |
|
| 139 | ;; (lambda (cell) |
|
| 140 | ;; (let ((stored (cdr (assoc cell crossrefs)))) |
|
| 141 | ;; (when stored |
|
| 142 | ;; (let ((old (org-export-format-reference stored))) |
|
| 143 | ;; (and (not (assoc old cache)) stored))))) |
|
| 144 | ;; cells) |
|
| 145 | ;; (when (org-element-property :raw-value datum) |
|
| 146 | ;; ;; Heading with a title |
|
| 147 | ;; (org-export-new-title-reference datum cache)) |
|
| 148 | ;; ;; NOTE: This probably breaks some Org Export |
|
| 149 | ;; ;; feature, but if it does what I need, fine. |
|
| 150 | ;; (org-export-format-reference |
|
| 151 | ;; (org-export-new-reference cache)))) |
|
| 152 | ;; (reference-string new)) |
|
| 153 | ;; ;; Cache contains both data already associated to |
|
| 154 | ;; ;; a reference and in-use internal references, so as to make |
|
| 155 | ;; ;; unique references. |
|
| 156 | ;; (dolist (cell cells) (push (cons cell new) cache)) |
|
| 157 | ;; ;; Retain a direct association between reference string and |
|
| 158 | ;; ;; DATUM since (1) not every object or element can be given |
|
| 159 | ;; ;; a search cell (2) it permits quick lookup. |
|
| 160 | ;; (push (cons reference-string datum) cache) |
|
| 161 | ;; (plist-put info :internal-references cache) |
|
| 162 | ;; reference-string)))) |
|
|
605
3734c596d103
rm babel, update org config
Richard Westhaver <ellis@rwest.io>
parents:
604
diff
changeset
|
163 | |
| 613 | 164 | ;; (defun org-export-new-title-reference (datum cache) |
| 165 | ;; "Return new reference for DATUM that is unique in CACHE." |
|
| 166 | ;; (cl-macrolet ((inc-suffixf (place) |
|
| 167 | ;; `(progn |
|
| 168 | ;; (string-match (rx bos |
|
| 169 | ;; (minimal-match (group (1+ anything))) |
|
| 170 | ;; (optional "--" (group (1+ digit))) |
|
| 171 | ;; eos) |
|
| 172 | ;; ,place) |
|
| 173 | ;; ;; HACK: `s1' instead of a gensym. |
|
| 174 | ;; (-let* (((s1 suffix) (list (match-string 1 ,place) |
|
| 175 | ;; (match-string 2 ,place))) |
|
| 176 | ;; (suffix (if suffix |
|
| 177 | ;; (string-to-number suffix) |
|
| 178 | ;; 0))) |
|
| 179 | ;; (setf ,place (format "%s--%s" s1 (cl-incf suffix))))))) |
|
| 180 | ;; (let* ((title (org-element-property :raw-value datum)) |
|
| 181 | ;; (ref (url-hexify-string (substring-no-properties title))) |
|
| 182 | ;; (parent (org-element-property :parent datum))) |
|
| 183 | ;; (while (--any (equal ref (car it)) |
|
| 184 | ;; cache) |
|
| 185 | ;; ;; Title not unique: make it so. |
|
| 186 | ;; (if parent |
|
| 187 | ;; ;; Append ancestor title. |
|
| 188 | ;; (setf title (concat (org-element-property :raw-value parent) |
|
| 189 | ;; "--" title) |
|
| 190 | ;; ref (url-hexify-string (substring-no-properties title)) |
|
| 191 | ;; parent (org-element-property :parent parent)) |
|
| 192 | ;; ;; No more ancestors: add and increment a number. |
|
| 193 | ;; (inc-suffixf ref))) |
|
| 194 | ;; ref))) |
|
|
605
3734c596d103
rm babel, update org config
Richard Westhaver <ellis@rwest.io>
parents:
604
diff
changeset
|
195 | |
| 143 | 196 | ;;;###autoload |
| 197 | (defun publish (&optional sitemap static force async) |
|
| 638 | 198 | "publish `compiler.company' content. |
| 143 | 199 | If STATIC is t, also publish media and static files. |
| 200 | If FORCE is t, skip checking file mod date and just publish all files. |
|
| 201 | If ASYNC is t, call `org-publish' asynchronously. |
|
| 202 | If given a prefix (C-u), set all args to t" |
|
| 203 | (interactive) |
|
| 204 | (if current-prefix-arg |
|
| 205 | (setq static t |
|
| 206 | force t |
|
| 207 | async t)) |
|
| 208 | (let ((default-directory project-dir)) |
|
| 209 | (message (format "publishing from %s" default-directory)) |
|
| 210 | (org-publish "compiler.company" force async))) |
|
|
614
f03dbf6338ed
tryin to fix broken publish pipeline
Richard Westhaver <ellis@rwest.io>
parents:
613
diff
changeset
|
211 | |
|
604
74a55d5decce
emacs org libraries and upgrades
Richard Westhaver <ellis@rwest.io>
parents:
588
diff
changeset
|
212 | (provide 'publish) |
|
74a55d5decce
emacs org libraries and upgrades
Richard Westhaver <ellis@rwest.io>
parents:
588
diff
changeset
|
213 | ;;; publish.el ends here |