irc.ui: Userlist sorting now uses Unicode Collation Algorithm

db4
William Schlieper 2008-08-03 20:35:23 -04:00
parent f04c5f9c7f
commit cbb4a67560
1 changed files with 2 additions and 5 deletions

View File

@ -3,7 +3,7 @@
USING: accessors kernel threads combinators concurrency.mailboxes
sequences strings hashtables splitting fry assocs hashtables colors
sorting qualified unicode.case math.order
sorting qualified unicode.collation math.order
ui ui.gadgets ui.gadgets.panes ui.gadgets.editors
ui.gadgets.scrollers ui.commands ui.gadgets.frames ui.gestures
ui.gadgets.tabs ui.gadgets.grids ui.gadgets.packs ui.gadgets.labels
@ -125,11 +125,8 @@ M: irc-message write-irc
GENERIC: handle-inbox ( tab message -- )
: lower-<=> ( x y -- <=> )
[ >lower ] bi@ <=> ;
: value-labels ( assoc val -- seq )
'[ nip , = ] assoc-filter keys [ lower-<=> ] sort [ <label> ] map ;
'[ nip , = ] assoc-filter keys [ string<=> ] sort [ <label> ] map ;
: add-gadget-color ( pack seq color -- pack )
'[ , >>color add-gadget ] each ;