extra/pdf/pdf.factor

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