Evaluated proc color args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret \x03[color_of [lindex $args 0]]; if {[llength $args] > 1} {if {[lindex $args 1] eq "on"} {append ret ,[color_of [lindex $args 2]]} {append ret ,[color_of [lindex $args 1]]}}; return $ret}

This commit is contained in:
radical_honesty on #flashsupport 2023-01-07 19:08:19 -08:00 committed by dupa dup
parent 266f73302d
commit 53b6a18d01

View File

@ -1 +1 @@
args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret \x[color_of [lindex $args 0]]; if {[llength $args] > 1} {if {[lindex $args 1] eq "on"} {append ret ,[color_of [lindex $args 2]]} {append ret ,[color_of [lindex $args 1]]}}; return $ret} args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret \x03[color_of [lindex $args 0]]; if {[llength $args] > 1} {if {[lindex $args 1] eq "on"} {append ret ,[color_of [lindex $args 2]]} {append ret ,[color_of [lindex $args 1]]}}; return $ret}