1 ! Copyright (C) 2011-2012 John Benediktsson
2 ! See https://factorcode.org/license.txt for BSD license
4 USING: io.files io.styles kernel pdf.layout sequences splitting ;
8 : text-to-pdf ( str -- pdf )
10 H{ { font-name "monospace" } { font-size 10 } } <p>
13 : file-to-pdf ( path encoding -- )
14 [ file-contents text-to-pdf ]
15 [ [ ".pdf" append ] dip set-file-contents ] 2bi ;