Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv9444
Modified Files:
jabber-roster.el
Log Message:
jabber-roster-sort-by-group defined to allow roster sorting by group
Index: jabber-roster.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-roster.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -d -r1.52 -r1.53
--- jabber-roster.el 21 Aug 2007 23:27:53 -0000 1.52
+++ jabber-roster.el 29 Apr 2008 12:59:17 -0000 1.53
@@ -269,6 +269,16 @@
((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
|
