From d81db4a671fcacccd8b29b0887a68377a2b751d1 Mon Sep 17 00:00:00 2001
From: Howard Abrams <howard.abrams@gmail.com>
Date: Thu, 25 Apr 2024 13:37:27 -0700
Subject: [PATCH] Fix up HTML export and use some Jack HTML

---
 ha-org-publishing.org | 13 -------------
 ha-org.org            | 43 ++++++++++++++++++++++++++++++++++---------
 2 files changed, 34 insertions(+), 22 deletions(-)

diff --git a/ha-org-publishing.org b/ha-org-publishing.org
index d12694f..91d888e 100644
--- a/ha-org-publishing.org
+++ b/ha-org-publishing.org
@@ -48,19 +48,6 @@ Since I have two specific websites, I create two variables for those destination
         ha-publishing-howardism (concat org-mode-publishing-directory "howardisms"))
 #+end_src
 
-** You Don’t Know Jack
-I’m not afraid of HTML, but I like the idea of doing my HTML work in a Lisp-like way using the [[https://github.com/tonyaldon/jack][jack-html project]]:
-#+begin_src emacs-lisp
-  (use-package jack)
-#+end_src
-So the Lisp code:
-#+begin_src emacs-lisp :tangle no
-  (jack-html '(:p "Hello there"))
-#+end_src
-Returns the string:
-#+begin_example
-  <p>Hello there</p>
-#+end_example
 * The Projects
 I separate my /website/ into distinct projects separately built:
 
diff --git a/ha-org.org b/ha-org.org
index 191f6cc..feb1d99 100644
--- a/ha-org.org
+++ b/ha-org.org
@@ -3,7 +3,7 @@
 #+date:   2020-09-18
 #+tags: emacs org
 #+startup: inlineimages
-#+lastmod: [2024-03-06 Wed]
+#+lastmod: [2024-04-25 Thu]
 
 A literate programming file for configuring org-mode and those files.
 
@@ -76,12 +76,17 @@ Begin by initializing these org variables:
         org-export-with-email nil
         org-export-with-date nil
         org-export-with-todo-keywords nil
-        org-export-with-broken-links t
+        org-export-with-broken-links nil
         org-export-with-toc nil  ; Only for my hamacs publishing
+        org-export-with-date nil
+        org-export-with-title nil
+        org-export-with-section-numbers nil
+        org-export-with-creator nil
         org-export-with-smart-quotes t
+        org-export-with-timestamps nil
+        org-export-time-stamp-file nil
         org-export-date-timestamp-format "%e %B %Y"
 
-        org-html-validation-link nil
         org-directory "~/personal"
         org-default-notes-file "~/personal/general-notes.txt"
 
@@ -715,13 +720,34 @@ And Graphviz configuration using [[https://github.com/ppareit/graphviz-dot-mode]
           graphviz-dot-auto-indent-on-semi t))
 #+end_src
 *** HTML Style
+
+I’m not afraid of HTML, but I like the idea of doing my HTML work in a Lisp-like way using the [[https://github.com/tonyaldon/jack][jack-html project]]:
+#+begin_src emacs-lisp
+  (use-package jack)
+#+end_src
+
+So the Lisp code:
+#+begin_src emacs-lisp :tangle no
+  (jack-html '(:p "Hello there"))
+#+end_src
+
+Returns the string:
+#+begin_example
+  <p>Hello there</p>
+#+end_example
+
 Splitting out HTML snippets is often a way that I can transfer org-formatted content to other applications.
+
 #+name: html-exporting
 #+begin_src emacs-lisp
   (setq org-html-head-extra
-        (string-join '( "<style>"
-                        "@import url('https://fonts.googleapis.com/css2?family=Literata:ital,wght@0,300;0,600;1,300;1,600&display=swap');"
-                        "@import url('https://fonts.googleapis.com/css2?family=Overpass:ital,wght@0,300;0,600;1,300;1,600&display=swap');"
+        (jack-html `((:link (@ :rel "stylesheet"
+                        :type "text/css"
+                        :href "https://fonts.googleapis.com/css2?family=Literata:ital,wght@0,300;0,600;1,300;1,600&display=swap"))
+                     (:link (@ :rel "stylesheet"
+                        :type "text/css"
+                        :href "https://fonts.googleapis.com/css2?family=Overpass:ital,wght@0,300;0,600;1,300;1,600&display=swap"))
+                     (:style ,(string-join '(
                         "body { font-family: 'Literata', sans-serif; color: #333; }"
                         "h1,h2,h3,h4,h5 { font-family: 'Overpass', sans-serif; color: #333; }"
                         "code { color: steelblue }"
@@ -734,9 +760,8 @@ Splitting out HTML snippets is often a way that I can transfer org-formatted con
                         "  pre { background-color: black; border-color: #777; }"
                         "  a:link { color: lightblue }"
                         "  a:visited { color: violet }"
-                        "}"
-                        "</style>")
-                     hard-newline))
+                        "}")
+                     hard-newline)))))
 #+end_src
 ** Focused Work
 :LOGBOOK: