From 47ef27ec1bf87941faa22d28ac272c94d6a3f781 Mon Sep 17 00:00:00 2001 From: Naveen Michaud-Agrawal Date: Fri, 22 Sep 2023 18:06:18 -0400 Subject: Make consistent with labelling --- virtual-programs/errors.folk | 4 ++-- virtual-programs/title.folk | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) (limited to 'virtual-programs') diff --git a/virtual-programs/errors.folk b/virtual-programs/errors.folk index 555b45bb..28028710 100644 --- a/virtual-programs/errors.folk +++ b/virtual-programs/errors.folk @@ -7,5 +7,5 @@ When /p/ has error /err/ with info /info/ { } } - Wish $p has title $err -} \ No newline at end of file + Wish $p is titled $err +} diff --git a/virtual-programs/title.folk b/virtual-programs/title.folk index e17d9d75..fccacc17 100644 --- a/virtual-programs/title.folk +++ b/virtual-programs/title.folk @@ -1,6 +1,6 @@ # Title/footnote wish fulfillment # for wishes of the form: -# "Wish $tag has title "This is a tag"" or "Wish $tag has footnote "This is a footnote"" +# "Wish $tag is titled "This is a tag"" or "Wish $tag is footnoted "This is a footnote"" When /thing/ has region /region/ { @@ -9,7 +9,7 @@ When /thing/ has region /region/ { set top [vec2 add [region top $region] [vec2 rotate [list 0 -12] $radians]] set bot [vec2 add [region bottom $region] [vec2 rotate [list 0 16] $radians]] - When the collected matches for [list /someone/ wishes $thing has title /text/] are /matches/ { + When the collected matches for [list /someone/ wishes $thing is titled /text/] are /matches/ { set text [join [lmap match $matches {dict get $match text}] "\n"] if {$text eq ""} { return } @@ -17,7 +17,7 @@ When /thing/ has region /region/ { Display::text {*}$top $scale $text $radians } - When the collected matches for [list /someone/ wishes $thing has footnote /text/] are /matches/ { + When the collected matches for [list /someone/ wishes $thing is footnoted /text/] are /matches/ { set text [join [lmap match $matches {dict get $match text}] "\n"] if {$text eq ""} { return } -- cgit v1.2.3