Improve texinfo to HTML Sweep manual export

diff --git a/esy-publish.el b/esy-publish.el
index 789ea08cc34babf942a921e2cb4ed5b1332f0506..c9f635bfc7c953c4b8dbe1499e4e244eded3c669 100644 (file)
--- a/esy-publish.el
+++ b/esy-publish.el
@@ -403,6 +403,48 @@
                 "--html"
                 "--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"))))
                 ;; TODO - also add @contents
                 "--output" (expand-file-name "sweep" esy-publish-local-man-directory)
                 (expand-file-name "sweep/sweep.texi" esy-publish-root-directory)))

diff --git a/source/index.org b/source/index.org
index 2a929b83cde66ca231d9615c0bb355aaca048b7d..75851765a12cf5139e07cf8d40e8d3e9d4b03479 100644 (file)
--- a/source/index.org
+++ b/source/index.org
@@ -42,10 +42,11 @@ this website itself.
 :CUSTOM_ID: sweep
 :END:
 
-[[https://git.sr.ht/~eshel/sweep][Sweep]] is an Emacs module which uses the C interfaces of both
+[[https://git.sr.ht/~eshel/sweep][Sweep]] is an Emacs package that uses the C interfaces of both
 SWI-Prolog and Emacs to bring the two together into one address space.
 
-For more details, see [[file:sweep.org][the Sweep manual]].
+For more details, see [[file:sweep.org][the Sweep manual]].  You can also browse it in
+[[./man/sweep/][multi-page format]].
 
 ** Dict: Emacs client for RFC2229 dictionary servers
 :PROPERTIES:

diff --git a/source/style.css b/source/style.css
index 583820974f32709f982d2f0a91ddc2855edafb72..ee39b284921622c8dbbfc3c427a86eb487ff4f40 100644 (file)
--- a/source/style.css
+++ b/source/style.css
@@ -329,3 +329,7 @@ Generated with `M-x org-html-htmlize-generate-css` after loading the
 samp {
     color: #00c089;
 }
+
+.nav-panel {
+  font-size: smaller;
+}