1.1--- a/emacs/lib/publish.el Mon Aug 26 22:12:39 2024 -0400
1.2+++ b/emacs/lib/publish.el Tue Aug 27 21:36:50 2024 -0400
1.3@@ -14,9 +14,6 @@
1.4 (defvar url "https://compiler.company")
1.5 (defvar vc-url "https://vc.compiler.company")
1.6 (defvar packy-url "https://packy.compiler.company")
1.7-(defvar html-nav (format "<div class=\"nav\" id=\"nav\"><h2 id=\"index\">*</h2><div id=\"text-index\"> (<a href = \"%s\">~</a><br> (<a href = \"%s/blog\">blog</a> <a href = \"%s/docs\">docs</a> <a href = \"%s/plan\">plan</a> <a href = \"%s/notes\">notes</a>)<br> (<a href = \"%s\">vc</a> <a href = \"%s\">packy</a>))</div></div>"
1.8- url url url url url vc-url packy-url))
1.9-
1.10 (defvar html-foot "<footer><p>updated %C</p></footer>")
1.11
1.12 ;; (setq org-protocol-project-alist
1.13@@ -27,18 +24,25 @@
1.14 ;; :working-suffix ".org")))
1.15
1.16 (setq org-html-style-default ""
1.17- org-html-scripts ""
1.18+ ;; org-html-scripts ""
1.19 org-html-htmlize-output-type 'css
1.20 org-export-htmlize-output-type 'css
1.21 org-export-allow-bind-keywords t
1.22 org-html-doctype "html5"
1.23 org-html-html5-fancy t
1.24- org-html-validation-link nil
1.25+ ;; org-html-validation-link nil
1.26 org-src-fontify-natively t
1.27 make-backup-files nil
1.28 debug-on-error t
1.29 org-id-link-to-org-use-id t)
1.30
1.31+(setq org-html-link-up "")
1.32+(setq org-html-link-home url)
1.33+
1.34+(setq org-html-home/up-format "<div id=\"org-div-home-and-up\"><a accesskey=\"H\" href=\"%s\"> HOME </a></div>")
1.35+
1.36+
1.37+
1.38 (setq org-publish-project-alist
1.39 `(("compiler.company" :components ("index" "meta" "blog" "docs" "notes" "plan"))
1.40 ("index"
1.41@@ -48,7 +52,6 @@
1.42 :htmlized-source t
1.43 :footnote-section-p t
1.44 :html-doctype "<!doctype html>"
1.45- ;; :html-preamble ,html-nav
1.46 :html-postamble ,html-foot
1.47 :publishing-directory ,publish-dir
1.48 :publishing-function org-html-publish-to-html)
1.49@@ -61,7 +64,6 @@
1.50 :publishing-directory ,(expand-file-name "meta" publish-dir)
1.51 :publishing-function org-html-publish-to-html
1.52 :htmlized-source t
1.53- :html-preamble ,html-nav
1.54 :html-postamble ,html-foot)
1.55 ("blog"
1.56 :base-directory ,(expand-file-name "blog" project-dir)
1.57@@ -72,7 +74,6 @@
1.58 :publishing-directory ,(expand-file-name "blog" publish-dir)
1.59 :publishing-function org-html-publish-to-html
1.60 :htmlized-source t
1.61- :html-preamble ,html-nav
1.62 :html-postamble ,html-foot)
1.63 ("plan"
1.64 :base-directory ,(expand-file-name "plan" project-dir)
1.65@@ -83,7 +84,6 @@
1.66 :publishing-directory ,(expand-file-name "plan" publish-dir)
1.67 :publishing-function org-html-publish-to-html
1.68 :htmlized-source t
1.69- :html-preamble ,html-nav
1.70 :html-postamble ,html-foot)
1.71 ("notes"
1.72 :base-directory ,(expand-file-name "notes" project-dir)
1.73@@ -94,7 +94,6 @@
1.74 :publishing-directory ,(expand-file-name "notes" publish-dir)
1.75 :publishing-function org-html-publish-to-html
1.76 :htmlized-source t
1.77- :html-preamble ,html-nav
1.78 :html-postamble ,html-foot)
1.79 ("docs"
1.80 :base-directory ,(expand-file-name "docs" project-dir)
1.81@@ -105,7 +104,6 @@
1.82 :publishing-directory ,(expand-file-name "docs" publish-dir)
1.83 :publishing-function org-html-publish-to-html
1.84 :htmlized-source t
1.85- :html-preamble ,html-nav
1.86 :html-postamble ,html-foot)))
1.87
1.88 ;; (defun org-export-get-reference-title (datum info)