help.pdf: use 1.25 line-height on pdf.

master
John Benediktsson 2020-03-03 09:46:45 -08:00
parent b23fc52850
commit 5a1b773899
1 changed files with 9 additions and 7 deletions

View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors arrays assocs help help.markup help.topics USING: accessors arrays assocs help help.markup help.topics
io.encodings.utf8 io.files io.pathnames kernel pdf pdf.layout io.encodings.utf8 io.files io.pathnames kernel namespaces pdf
pdf.streams sequences sets strings ; pdf.canvas pdf.layout pdf.streams sequences sets strings ;
IN: help.pdf IN: help.pdf
@ -34,11 +34,13 @@ IN: help.pdf
PRIVATE> PRIVATE>
: article-pdf ( str name -- ) : article-pdf ( str name -- )
[ 1.25 +line-height+ [
[ [ print-topic ] with-pdf-writer ] [
[ next-articles topics>pdf ] bi [ [ print-topic ] with-pdf-writer ]
[ <pb> 1array glue ] unless-empty [ next-articles topics>pdf ] bi
] [ write-pdf ] bi* ; [ <pb> 1array glue ] unless-empty
] [ write-pdf ] bi*
] with-variable ;
: cookbook-pdf ( -- ) : cookbook-pdf ( -- )
"cookbook" "cookbook.pdf" article-pdf ; "cookbook" "cookbook.pdf" article-pdf ;