diff options
| author | Omar Rizwan <omar@omar.website> | 2022-11-18 17:24:34 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-11-18 17:24:34 +0000 |
| commit | 47841bc565d1670a1afbd67be357a65edda174c3 (patch) | |
| tree | ec80d5b883fafb8e135bc79bc7e228f3bc79d6e4 /virtual-programs | |
| parent | Just make bytesPerRow a %u for compat on Pi and NUC (diff) | |
| download | folk-47841bc565d1670a1afbd67be357a65edda174c3.tar.gz folk-47841bc565d1670a1afbd67be357a65edda174c3.zip | |
Fix escaping of slashes in print.folk
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/print.folk | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk index 723bf175..cb6f51a2 100644 --- a/virtual-programs/print.folk +++ b/virtual-programs/print.folk @@ -68,6 +68,7 @@ proc programToPs {id text} { setfont newpath [join [lmap line [split $text "\n"] { + set line [string map {"\\" "\\\\"} $line] set ret "$margin [expr $PageHeight-$margin-$linenum*$lineheight] moveto ($line) show" incr linenum set ret @@ -100,7 +101,8 @@ proc nextId {} { return $id } -if {[info hostname] == "scoriae.local" || [info hostname] == "cwervobook.fios-router.home"} { return } +if {$::tcl_platform(os) eq "Darwin"} { return } + if {![info exists ::printjobs]} {set ::printjobs [dict create]} When /someone/ wishes to print /code/ with job id /jobid/ { if {[dict exists $::printjobs $jobid]} {return} |