Generate Sweep HTML pages from the Texinfo manual

diff --git a/esy-publish.el b/esy-publish.el
index 473bc0b7991b108cc8025ccde06bdd1175837e7a..0ac71a2dbf4da6a42151dfbdc9f57a62e5f86895 100644 (file)
--- a/esy-publish.el
+++ b/esy-publish.el
@@ -446,13 +446,9 @@
     (rename-file tmp file t)))
 
 (defun esy-publish--sweep-texinfo (plist)
-  (with-current-buffer
-      (find-file-noselect
-       (expand-file-name "sweep/README.org" esy-publish-root-directory))
-    (org-texinfo-export-to-texinfo)
-    (push (current-buffer) esy-publish--buffers))
   (make-directory esy-publish-local-man-directory t)
-  (let ((out (expand-file-name "sweep" esy-publish-local-man-directory)))
+  (let ((no-split (expand-file-name "sweep.html" esy-publish-local-directory))
+        (out (expand-file-name "sweep" esy-publish-local-man-directory)))
     (call-process "texi2any"
                   nil nil nil
                   "--html"
@@ -500,10 +496,59 @@
                                               "© "
                                               (time ((class . "copyright-year")) "2023")
                                               " Eshel Yaron"))))
-                  ;; TODO - also add @contents
                   "--output" out
                   (expand-file-name "sweep/sweep.texi" esy-publish-root-directory))
-    (dolist (file (directory-files out t (rx ".html" eos)))
+    (call-process "texi2any"
+                  nil nil nil
+                  "--html"
+                  "--no-split"
+                  "--css-ref" "../style.css"
+                  "-c" "TREE_TRANSFORMATIONS=regenerate_master_menu"
+                  "-c" (concat "AFTER_BODY_OPEN="
+                               (esy-publish--dom-to-string
+                                '(div ((id . "preamble")
+                                       (class . "status"))
+                                      (nav ((id . "icon-links")
+                                            (class . "icon-links"))
+                                           (div ((class . "home-link"))
+                                                (a ((href . "/"))
+                                                   (img ((src . "/home.svg")
+                                                         (height . "35")
+                                                         (width . "35")
+                                                         (alt . "Home")))))
+                                           (div ((class . "other-links"))
+                                                (a ((href . "mailto:me@eshelyaron.com"))
+                                                   (img ((src . "/mail.svg")
+                                                         (height . "30")
+                                                         (width . "30")
+                                                         (alt . "Mail"))))
+                                                " "
+                                                (a ((href . "https://emacs.ch/@eshel")
+                                                    (rel . "me"))
+                                                   (img ((src . "/mastodon.svg")
+                                                         (height . "28")
+                                                         (width . "28")
+                                                         (alt . "Mastodon"))))
+                                                " "
+                                                (a ((href . "/rss.xml"))
+                                                   (img ((src . "/rss.svg")
+                                                         (height . "30")
+                                                         (width . "30")
+                                                         (alt . "RSS Feed")))))))
+                                '(hr nil)))
+                  "-c" (concat "PRE_BODY_CLOSE="
+                               (esy-publish--dom-to-string
+                                '(div ((id . "postamble")
+                                       (class . "status"))
+                                      (footer ((id . "footer")
+                                               (class . "footer"))
+                                              (hr nil)
+                                              "© "
+                                              (time ((class . "copyright-year")) "2023")
+                                              " Eshel Yaron"))))
+                  "--output" no-split
+                  (expand-file-name "sweep/sweep.texi" esy-publish-root-directory))
+    (dolist (file (cons no-split (directory-files out t (rx ".html" eos))))
       (esy-publish-fontify-examples file))))
 
 (defun esy-publish--prepare-indices (&rest _)

diff --git a/source/style.css b/source/style.css
index ee39b284921622c8dbbfc3c427a86eb487ff4f40..a24fc4be1412d2cd0d1d40e0df2a84803b12acc4 100644 (file)
--- a/source/style.css
+++ b/source/style.css
@@ -77,6 +77,13 @@ pre {
 code {
     color: #78afff;
     font-family: Hack,monospace;
+    font-size: 0.9em;
+}
+
+kbd {
+    color: #af9fff;
+    font-family: Hack,monospace;
+    font-size: 0.9em;
 }
 
 h2 {

diff --git a/source/sweep.org b/source/sweep.org
deleted file mode 120000 (symlink)
index b077d19..0000000
--- a/source/sweep.org
+++ /dev/null
@@ -1 +0,0 @@
-../sweep/README.org
\ No newline at end of file