Evaluated proc %% who {set out ""; set lines [split [trim $::playlist($who)] \n]; foreach line [split $::playlist($who) \n\n] {set parts [split $line \n]; append out "\x02\u266B [pad_line [lindex $parts 0] [sl $lines 0 5]]\x02 | [pad_line [lindex $parts 1] [sl $lines 1 5]] | [lindex $parts 2]\n" };. $out }