From db75ebb8ee5a0d1a177742df39a832d8a30f728a Mon Sep 17 00:00:00 2001
From: lamotragine_dealer on #flashsupport <lamotragine_dealer@IRC-Simple>
Date: Thu, 16 Feb 2023 06:25:13 -0800
Subject: [PATCH] Evaluated proc xmasbowchar c {set c [string toupper $c]; if
 ![info exists ::alphabet($c)] {return [join [string repeat "{   } " 5] \n]};
 set ret [list]; foreach line [split [decode $::alphabet($c)] \n] {set g
 [xmas_colours]; lappend ret [regsub -all {\*($|\n| )} [regsub -all  {(^|\n|
 )\*} $line "\\1$g,$g*"] "*\\1"]}; join $ret \n}

---
 procs/c6eebebb88f70a40e755c79d2506b5829945cb13 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/procs/c6eebebb88f70a40e755c79d2506b5829945cb13 b/procs/c6eebebb88f70a40e755c79d2506b5829945cb13
index cb30406..14497b0 100644
--- a/procs/c6eebebb88f70a40e755c79d2506b5829945cb13
+++ b/procs/c6eebebb88f70a40e755c79d2506b5829945cb13
@@ -1 +1 @@
-c {set c [string toupper $c]; if ![info exists ::alphabet($c)] {return [join [string repeat "{   } " 5] \n]}; set ret [list]; foreach line [split [decode $::alphabet($c)] \n] {set g [xmas_colours]; lappend ret [regsub -all {\*($|\n| )} [regsub -all  {(^|\n| )\*} $line "\\1$g*"] "*\\1"]}; join $ret \n}
+c {set c [string toupper $c]; if ![info exists ::alphabet($c)] {return [join [string repeat "{   } " 5] \n]}; set ret [list]; foreach line [split [decode $::alphabet($c)] \n] {set g [xmas_colours]; lappend ret [regsub -all {\*($|\n| )} [regsub -all  {(^|\n| )\*} $line "\\1$g,$g*"] "*\\1"]}; join $ret \n}