diff options
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/print.folk | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk index aefb87bd..e2b187ee 100644 --- a/virtual-programs/print.folk +++ b/virtual-programs/print.folk @@ -1,4 +1,4 @@ -# if {[info hostname] != "folk0"} { return } +if {[info hostname] != "folk0"} { return } if {[llength [namespace which tagImageForId]] < 1} { package require critcl @@ -52,7 +52,7 @@ proc programToPs {id text} { %!PS << /PageSize \[$PageWidth $PageHeight\] >> setpagedevice - /Monaco findfont + /Courier findfont $fontsize scalefont setfont newpath @@ -110,7 +110,6 @@ When /someone/ wishes to print /code/ with job id /jobid/ { puts $fp $ps close $fp - # send PostScript to printer - # TODO: test on pi - # exec "lpr printed-programs/$id.ps" + exec ps2pdf printed-programs/$id.ps printed-programs/$id.pdf + exec lpr printed-programs/$id.pdf } |