Skip to content

program can declare fontsize and tagsize #122

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
tobyshooters wants to merge 2 commits into
base: main
Choose a base branch
from
Open

program can declare fontsize and tagsize #122

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
87b1994
program can declare fontsize and tagsize
tobyshooters Dec 15, 2023
eafc81c
unify web-editor and new-program-web-editor
tobyshooters Dec 15, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions virtual-programs/new-program-web-editor.folk
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -165,9 +165,9 @@ set errors [Statements::findMatches [list {${program}} has error /err/ with info
function handlePrint() {
const code = document.getElementById("code").value;
jobid = String(Math.random());
send(`Assert web wishes to print {${code}} with job id {${jobid}}`);
send(`Assert web wishes to print program {${program}} with code {${code}} with job id {${jobid}}`);
setTimeout(500, () => {
send(`Retract web wishes to print {${code}} with job id {${jobid}}`);
send(`Retract web wishes to print program {${program}} with code {${code}} with job id {${jobid}}`);
});
document.getElementById('printback').style.display = '';
}
Expand Down
117 changes: 62 additions & 55 deletions virtual-programs/print.folk
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -41,13 +41,13 @@ $cc proc ::tagImageForId {int id} char* {
}
$cc compile

proc ::programToPs {id text {format "letter"} {side "front"}} {
proc ::programToPs {id text {format "letter"} {side "front"} {fontsize 12} {tagsize 150}} {
set margin 36
set PageWidth 612; set PageHeight 792

if {$format eq "indexcard"} {
# front in portrait, back in landscape
set tagwidth 150; set tagheight 150
set tagsize 150
set fontsize 8; set lineheight [expr $fontsize*1.5]
set margin 36
if {$side eq "front"} {
Expand All @@ -59,16 +59,16 @@ proc ::programToPs {id text {format "letter"} {side "front"}} {
90 rotate

gsave
[expr $PageHeight-$tagheight-$margin] [expr -$margin-$tagwidth] translate
$tagwidth $tagheight scale
[expr $PageHeight-$tagsize-$margin] [expr -$margin-$tagsize] translate
$tagsize $tagsize scale
$image
grestore

/Helvetica-Narrow findfont
10 scalefont
setfont
newpath
[expr $PageHeight-$tagheight-$margin] [expr -$margin-$tagwidth-16] moveto
[expr $PageHeight-$tagsize-$margin] [expr -$margin-$tagsize-16] moveto
($id ([clock format [clock seconds] -timezone :America/New_York -format "%a, %d %b %Y, %r"])) show

}]
Expand All @@ -92,27 +92,36 @@ proc ::programToPs {id text {format "letter"} {side "front"}} {
}
}

set tagwidth 150; set tagheight 150
set fontsize 12; set lineheight [expr $fontsize*1.5]

set image [::tagImageForId $id]

# tag each line with its 1-indexed line number
set lines [split $text "\n"]
for {set i 0} {$i < [llength $lines]} {incr i} {
# tag each line with its 1-indexed line number
lset lines $i [list [expr {$i+1}] [lindex $lines $i]]
}
for {set i 0} {$i < [llength $lines]} {incr i} { # hard-wrap lines

set fontwidth [expr $fontsize * 0.8]
set lineheight [expr $fontsize * 1.5]

# Constants for line-breaking
set numlineshort [expr {int(ceil($tagsize / $lineheight) + 1)}]
set numcharshort [expr {int(($PageWidth - $tagsize) / $fontwidth)}]
set numcharlong [expr {int($PageWidth / $fontwidth)}]

# Hard-wrap lines
for {set i 0} {$i < [llength $lines]} {incr i} {
lassign [lindex $lines $i] linenum line
if {$i < 9 && [string length $line] > 50} {
lset lines $i 1 [string range $line 0 50]
set lines [linsert $lines $i+1 [list "" [string range $line 51 end]]]
} elseif {[string length $line] > 73} {
lset lines $i 1 [string range $line 0 73]
set lines [linsert $lines $i+1 [list "" [string range $line 74 end]]]
}

if {$i < $numlineshort && [string length $line] > $numcharshort} {
lset lines $i 1 [string range $line 0 $numcharshort]
set lines [linsert $lines $i+1 [list "" [string range $line [+ $numcharshort 1] end]]]

} elseif {[string length $line] > $numcharlong} {
lset lines $i 1 [string range $line 0 $numcharlong]
set lines [linsert $lines $i+1 [list "" [string range $line [+ $numcharlong 1] end]]]
}
}

set image [::tagImageForId $id]

set lineidx 0
subst {
%!PS
Expand All @@ -136,8 +145,8 @@ proc ::programToPs {id text {format "letter"} {side "front"}} {

[expr { $side eq "back" ? {} : [subst {
gsave
[expr $PageWidth-$tagwidth-$margin] [expr $PageHeight-$tagheight-$margin] translate
$tagwidth $tagheight scale
[expr $PageWidth-$tagsize-$margin] [expr $PageHeight-$tagsize-$margin] translate
$tagsize $tagsize scale
$image
grestore
}] }]
Expand All @@ -146,7 +155,7 @@ proc ::programToPs {id text {format "letter"} {side "front"}} {
10 scalefont
setfont
newpath
[expr $PageWidth-$tagwidth-$margin] [expr $PageHeight-$tagheight-16-$margin] moveto
[expr $PageWidth-$tagsize-$margin] [expr $PageHeight-$tagsize-16-$margin] moveto
($id ([clock format [clock seconds] -timezone :America/New_York -format "%a, %d %b %Y, %r"])) show
}
}
Expand Down Expand Up @@ -188,67 +197,65 @@ proc remotePrintRequest {remoteNode clause} {
}

if {![info exists ::printjobs]} {set ::printjobs [dict create]}
When /someone/ wishes to print /code/ with job id /jobid/ {

When /someone/ wishes to print program /p/ with code /code/ with job id /jobid/ & \
the collected matches for [list /someone/ wishes /p/ prints with fontsize /s/] are /fontsizes/ & \
the collected matches for [list /someone/ wishes /p/ prints with tagsize /s/] are /tagsizes/ \
{
if {$::thisNode eq "folk-beads" || $::thisNode eq "folk-convivial"} {
# HACK: Forward the print request to folk0.
remotePrintRequest "folk0" [list $::thisNode wishes to print $code with job id $jobid]
remotePrintRequest "folk0" [list $::thisNode wishes to print program $p with code $code with job id $jobid]
return
}

puts "Wish to print jobid $jobid"
if {[dict exists $::printjobs $jobid]} {return}

set id [nextId]

# NB: for web-programs, we create a new program with a concrete id
set id $p
set isWebProgram [expr {[string first "web-program" $p] != -1}]
if {$isWebProgram} {
set id [nextId]
}

dict set ::printjobs $jobid [list $id $code]

set format "letter"
if {[string first {Wish $this prints on an index card} $code] != -1} {
set format "indexcard"
}

set ps [programToPs $id $code $format front]

# save code and ps to disk
if {[file exists "$::env(HOME)/folk-printed-programs/$id.folk"]} {
error "Program $id already exists on disk. Aborting print."
set fontsize 12
if {[llength $fontsizes] > 0} {
set fontsize [dict get [lindex $fontsizes 0] s]
}
set fp [open "$::env(HOME)/folk-printed-programs/$id.folk" w]
puts $fp $code
close $fp

set fp [open "$::env(HOME)/folk-printed-programs/$id.ps" w]
puts $fp $ps
close $fp

exec ps2pdf $::env(HOME)/folk-printed-programs/$id.ps $::env(HOME)/folk-printed-programs/$id.pdf
exec lpr $::env(HOME)/folk-printed-programs/$id.pdf
}
When /someone/ wishes to print program /id/ with code /code/ with job id /jobid/ {
if {$::thisNode eq "folk-beads" || $::thisNode eq "folk-convivial"} {
# HACK: Forward the print request to folk0.
remotePrintRequest "folk0" [list $::thisNode wishes to print program $id with code $code with job id $jobid]
return
set tagsize 150
if {[llength $tagsizes] > 0} {
set tagsize [dict get [lindex $tagsizes 0] s]
}

puts "Wish to print jobid $jobid"
if {[dict exists $::printjobs $jobid]} {return}

dict set ::printjobs $jobid [list $id $code]
set ps [programToPs $id $code $format front $fontsize $tagsize]

set format "letter"
if {[string first {Wish $this prints on an index card} $code] != -1} {
set format "indexcard"
# save code and ps to disk
if {$isWebProgram} {
if {[file exists "$::env(HOME)/folk-printed-programs/$id.folk"]} {
error "Program $id already exists on disk. Aborting print."
}
set fp [open "$::env(HOME)/folk-printed-programs/$id.folk" w]
puts $fp $code
close $fp
}

set ps [programToPs $id $code $format front]

set fp [open "$::env(HOME)/folk-printed-programs/$id.ps" w]
puts $fp $ps
close $fp

exec ps2pdf $::env(HOME)/folk-printed-programs/$id.ps $::env(HOME)/folk-printed-programs/$id.pdf
exec lpr $::env(HOME)/folk-printed-programs/$id.pdf
# exec lpr $::env(HOME)/folk-printed-programs/$id.pdf
Copy link
Collaborator

@osnr osnr Dec 15, 2023

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

? Is this ready for review or are you still doing stuff on it?

}

When /someone/ wishes to print the back of job id /jobid/ {
lassign [dict get $::printjobs $jobid] id code

Expand Down