Evaluated eval [wget https://dpaste.com/6EM52ENEH.txt]
This commit is contained in:
parent
28db36d520
commit
04d6625683
@ -6,7 +6,7 @@
|
||||
set u 0
|
||||
set cf -1
|
||||
set cb -1
|
||||
set r ""
|
||||
set r [lindex $c 0]
|
||||
foreach f [lindex $c 1] {
|
||||
lappend debug "working on $f";
|
||||
if {[lindex $f 0] > $n} {
|
||||
@ -28,7 +28,7 @@
|
||||
}
|
||||
if {$b eq 1} {append r "\002"; lappend debug "starting bold"}
|
||||
if {$u eq 1} {append r "\037"; lappend debug "starting underline"}
|
||||
if {$cf > -1} {append r [format "\002%s" $cf]; lappend debug "starting color"}
|
||||
if {$cf > -1} {append r [format "%s" $cf]; lappend debug "starting color"}
|
||||
if {$cb > -1} {append r [format ",%s" $cb]; lappend debug "adding background color"}
|
||||
lappend debug "final result: $r"
|
||||
return [join $debug "\n"]
|
||||
|
Loading…
x
Reference in New Issue
Block a user