Evaluated eval [wget https://dpaste.com/HXY65MWT5.txt]
This commit is contained in:
parent
04d6625683
commit
250a01b24c
@ -6,9 +6,11 @@
|
|||||||
set u 0
|
set u 0
|
||||||
set cf -1
|
set cf -1
|
||||||
set cb -1
|
set cb -1
|
||||||
set r [lindex $c 0]
|
set r ""
|
||||||
foreach f [lindex $c 1] {
|
foreach f [lindex $c 1] {
|
||||||
lappend debug "working on $f";
|
lappend debug "working on $f";
|
||||||
|
append r [lindex [lindex $c 0] $f];
|
||||||
|
lappend debug "actually appended the character to be formatted: $r";
|
||||||
if {[lindex $f 0] > $n} {
|
if {[lindex $f 0] > $n} {
|
||||||
lappend debug "reached end of string"
|
lappend debug "reached end of string"
|
||||||
if {$b eq 1} {append r "\002"; lappend debug "ending bold";}
|
if {$b eq 1} {append r "\002"; lappend debug "ending bold";}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user