From 4c4dcc04804f795e530274e643e1a62a21525b43 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 3 Mar 2020 09:46:45 -0800 Subject: [PATCH] help.pdf: use 1.25 line-height on pdf. --- extra/help/pdf/pdf.factor | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/extra/help/pdf/pdf.factor b/extra/help/pdf/pdf.factor index 04ced9a67b..f9809d0a22 100644 --- a/extra/help/pdf/pdf.factor +++ b/extra/help/pdf/pdf.factor @@ -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 - [ 1array glue ] unless-empty - ] [ write-pdf ] bi* ; + 1.25 +line-height+ [ + [ + [ [ print-topic ] with-pdf-writer ] + [ next-articles topics>pdf ] bi + [ 1array glue ] unless-empty + ] [ write-pdf ] bi* + ] with-variable ; : cookbook-pdf ( -- ) "cookbook" "cookbook.pdf" article-pdf ;