From 91b70af7cea8cd8e88e44cc05cf997d2a9b620e9 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Fri, 22 Jul 2022 18:32:42 -0400
Subject: more print improvements. will this work??

---
 virtual-programs/print.folk | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'virtual-programs')

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
 }
-- 
cgit v1.2.3