From 8fd12968f63d0d7fddc19cfd79025eeac6b2bc61 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Fri, 18 Aug 2023 18:23:01 +0200 Subject: [PATCH] Improve texinfo to HTML Sweep manual export --- esy-publish.el | 42 ++++++++++++++++++++++++++++++++++++++++++ source/index.org | 5 +++-- source/style.css | 4 ++++ 3 files changed, 49 insertions(+), 2 deletions(-) diff --git a/esy-publish.el b/esy-publish.el index 789ea08..c9f635b 100644 --- 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 2a929b8..7585176 100644 --- 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 5838209..ee39b28 100644 --- 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; +} -- 2.39.2