From ec6474cb92b346b88f2bfcaea18974ddd4d96e86 Mon Sep 17 00:00:00 2001
From: radical_honesty on #flashsupport <radical_honesty@IRC-Simple>
Date: Sat, 7 Jan 2023 18:23:31 -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*"] "*\\1"]}; join $ret \n}

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

diff --git a/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216 b/procs/e81d45ec6e2f3c540f4b8df4e6177d3c6327d216
index 7f10625..3cb1dd2 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,*"] "\\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*"] "*\\1"]}; join $ret \n}