Evaluated proc color args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret [color_of [lindex $args 0]]; if {[llength $args] > 1} {if {[lindex $args 1] eq "on"} {append ret ,[color_of [lindex $args 2]]} {append ret \x03,[color_of [lindex $args 1]]}}; return $ret}
This commit is contained in:
committed by
dupa dup

parent
9d35cd48a6
commit
933de77c3d
1
procs/6dd0fe8001145bec4a12d0e22da711c4970d000b
Normal file
1
procs/6dd0fe8001145bec4a12d0e22da711c4970d000b
Normal file
@ -0,0 +1 @@
|
||||
args {if ![llength $args] {return };if {[lindex $args 0] eq "default"} {return };set ret [color_of [lindex $args 0]]; if {[llength $args] > 1} {if {[lindex $args 1] eq "on"} {append ret ,[color_of [lindex $args 2]]} {append ret \x03,[color_of [lindex $args 1]]}}; return $ret}
|
Reference in New Issue
Block a user