16 lines
432 B
Factor
16 lines
432 B
Factor
|
! Copyright (C) 2011-2012 John Benediktsson
|
||
|
|
! See http://factorcode.org/license.txt for BSD license
|
||
|
|
|
||
|
|
USING: io.files io.styles kernel pdf.layout sequences splitting ;
|
||
|
|
|
||
|
|
IN: pdf
|
||
|
|
|
||
|
|
: text-to-pdf ( str -- pdf )
|
||
|
|
string-lines [
|
||
|
|
H{ { font-name "monospace" } { font-size 10 } } <p>
|
||
|
|
] map pdf>string ;
|
||
|
|
|
||
|
|
: file-to-pdf ( path encoding -- )
|
||
|
|
[ file-contents text-to-pdf ]
|
||
|
|
[ [ ".pdf" append ] dip set-file-contents ] 2bi ;
|