steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

flac
John Benediktsson 2020-03-03 09:46:45 -08:00 committed by Steve Ayerhart
parent 29e15fef76
commit 4c4dcc0480
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/help/pdf/pdf.factor
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 ;