From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 30 Aug 2023 18:03:36 +0000 (+0200)
Subject: Generate Sweep HTML pages from the Texinfo manual
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a5d9a3a916a15e4dc8bed03b1c530ffdad275893;p=esy-publish.git

Generate Sweep HTML pages from the Texinfo manual
---

diff --git a/esy-publish.el b/esy-publish.el
index 473bc0b..0ac71a2 100644
--- 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 ee39b28..a24fc4b 100644
--- 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
index b077d19..0000000
--- a/source/sweep.org
+++ /dev/null
@@ -1 +0,0 @@
-../sweep/README.org
\ No newline at end of file