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

diff --git a/extra/help/pdf/pdf.factor b/extra/help/pdf/pdf.factor
index 04ced9a67b23ab929eab626a10c0765b3213b440..f9809d0a228707e6f5d552b7fbca788d47c394fa 100644 (file)
--- 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
-        [ <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 ;