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
USING: accessors arrays assocs help help.markup help.topics
io.encodings.utf8 io.files io.pathnames kernel pdf pdf.layout
pdf.streams sequences sets strings ;
io.encodings.utf8 io.files io.pathnames kernel namespaces pdf
pdf.canvas pdf.layout pdf.streams sequences sets strings ;
IN: help.pdf
@ -34,11 +34,13 @@ IN: help.pdf
PRIVATE>
: article-pdf ( str name -- )
[
[ [ print-topic ] with-pdf-writer ]
[ next-articles topics>pdf ] bi
[ <pb> 1array glue ] unless-empty
] [ write-pdf ] bi* ;
1.25 +line-height+ [
[
[ [ print-topic ] with-pdf-writer ]
[ next-articles topics>pdf ] bi
[ <pb> 1array glue ] unless-empty
] [ write-pdf ] bi*
] with-variable ;
: cookbook-pdf ( -- )
"cookbook" "cookbook.pdf" article-pdf ;