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