master: doc: make PAX PDF much shorter

melisgl via Sbcl-commits <[email protected]> Mon, 29 Jun 2026 12:20:11 +0000
Newsgroups gmane.lisp.steel-bank.cvs
Message-ID <[email protected]>
The branch "master" has been updated in SBCL:
       via  6e2bcf1d9bca8265d98c276b7480b679b88211eb (commit)
      from  7901ac4063823f727d533d0401e66df5bf44dfb9 (commit)

- Log -----------------------------------------------------------------
commit 6e2bcf1d9bca8265d98c276b7480b679b88211eb
Author: Gabor Melis <[email protected]>
Date:   Sat Jun 13 22:58:09 2026 +0200

    doc: make PAX PDF much shorter
    
    ... by reducing the font size and the margins.
---
 contrib/sb-manual/make-pax-docs.lisp | 15 +++++++++++++--
 contrib/sb-manual/texinfo.lisp       |  3 ++-
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/contrib/sb-manual/make-pax-docs.lisp b/contrib/sb-manual/make-pax-docs.lisp
index 8ebf523be..cc85ff5ec 100644
--- a/contrib/sb-manual/make-pax-docs.lisp
+++ b/contrib/sb-manual/make-pax-docs.lisp
@@ -65,8 +65,19 @@
                   pax:*document-pandoc-pdf-header-includes*
                   *pandoc-pdf-adjusted-table-of-contents))
         (pax:*document-pandoc-pdf-options*
-          (remove "--verbose" pax:*document-pandoc-pdf-options*
-                  :test #'equal)))
+          '(("-V" "papersize=a4")
+            ("-V" "margin-left=0.8in")
+            ("-V" "margin-right=0.8in")
+            ("-V" "margin-top=1.0in")
+            ("-V" "margin-bottom=1.0in")
+            ("-V" "fontfamily=XCharter")
+            ("-V" "fontsize=10pt")
+            ("-V" "colorlinks=true")
+            ("-V" "linkcolor=blue")
+            ("-V" "urlcolor=Maroon")
+            ("-V" "toccolor=blue")
+            #+nil
+            "--verbose")))
     (handler-bind ((warning #'muffle-uninteresting-warnings))
       (format t "Git root: ~A~%Git forge URI: ~A~%Output dir: ~A~%"
               *git-root* *git-forge-uri* *output-dir*)
diff --git a/contrib/sb-manual/texinfo.lisp b/contrib/sb-manual/texinfo.lisp
index e4575d8de..c05354f24 100644
--- a/contrib/sb-manual/texinfo.lisp
+++ b/contrib/sb-manual/texinfo.lisp
@@ -147,7 +147,8 @@
           (format t "@menu~%"))
         (with-texinfo-to-file top-level-menus-to-file
           (dolist (child-section child-sections)
-            (format t "* ~A: ~A.~%" (remove-markup (section-title child-section))
+            (format t "* ~A: ~A.~%"
+                    (remove-markup (section-title child-section))
                     (texinfo-node-id child-section))))
         (unless top-level-menus-to-file
           (format t "@end menu~%~%"))))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL