[Patch] apps-menu

[Matthew Love <matth love gmail com>]

Here is the first patch for apps-menu, this fixes the aphabetizing in
regard to upper-case/lower-case.

diff --git a/lisp/sawfish/wm/ext/apps-menu.jl b/lisp/sawfish/wm/ext/apps-menu.jl
index f731da9..4aeaec0 100644
--- a/lisp/sawfish/wm/ext/apps-menu.jl
+++ b/lisp/sawfish/wm/ext/apps-menu.jl
@@ -276,7 +276,9 @@ set this to non-nil.")
   (define (alphabetize-entries saw-menu)
     (if saw-menu
 	(cons (cons (car (car saw-menu))
-		    (sort (cdr (car saw-menu)) string<))
+		    (sort (cdr (car saw-menu)) 
+			  (lambda (a b) 
+			    (string< (string-downcase (car a)) (string-downcase (car b))))))
 	      (alphabetize-entries (cdr saw-menu)))))
 
   (define (fdo-exile fdo-list)

Cheers

-- 
mrl