From 6cf6616c83b20ad4d91345238704978e37f96069 Mon Sep 17 00:00:00 2001 From: Evgenii Terechkov Date: Tue, 29 Apr 2008 12:59:17 +0000 Subject: [PATCH] jabber-roster-sort-by-group defined to allow roster sorting by group --- jabber-roster.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/jabber-roster.el b/jabber-roster.el index cd1ae8e..3aa1a8a 100644 --- a/jabber-roster.el +++ b/jabber-roster.el @@ -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