From e476f330d08d58fd50245ef7dfcd05e6f9d9c1be Mon Sep 17 00:00:00 2001
From: radical_honesty on #flashsupport <radical_honesty@IRC-Simple>
Date: Sat, 7 Jan 2023 18:17:28 -0800
Subject: [PATCH] Evaluated proc gaybowchar 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
 [gay]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )*} $line
 "\\1$g,$g\*"] "*\\1"]}; join $ret \n}

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

diff --git a/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216 b/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216
index a0addf3..21525a0 100644
--- a/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216
+++ b/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216
@@ -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 [gay]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )*} $line "\\1$g,$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 [gay]; lappend ret [regsub -all {\*($|\n| )} [regsub -all {(^|\n| )*} $line "\\1$g,$g\*"] "*\\1"]}; join $ret \n}