help.pdf: use 1.25 line-height on pdf.
parent
b23fc52850
commit
5a1b773899
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue