wgreenhouse
/
emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

jabber-roster-sort-by-group defined to allow roster sorting by group

This commit is contained in:
Evgenii Terechkov 2008-04-29 12:59:17 +00:00 committed by Kirill A. Korinskiy
parent f9d3c22623
commit 6cf6616c83
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
jabber-roster.el
View File

@ -269,6 +269,16 @@ See `jabber-sort-order' for order used."
((string= a-name b-name) 0)
(t 1))))
(defun jabber-roster-sort-by-group (a b)
"Sort roster items by group membership."
(flet ((first-group (item) (or (car (get item 'groups)) "")))
(let ((a-group (first-group a))
(b-group (first-group b)))
(cond
((string-lessp a-group b-group) -1)
((string= a-group b-group) 0)
(t 1)))))
(defun jabber-fix-status (status)
"Make status strings more readable"
(when status