[clfswm-cvs] r265 - in clfswm: . src

[Philippe Brochard]

Author: pbrochard
Date: Sat Nov 14 17:49:32 2009
New Revision: 265

Log:
TODO update. Change key order in configuration menu

Modified:
   clfswm/TODO
   clfswm/src/clfswm-configuration.lisp

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Sat Nov 14 17:49:32 2009
@@ -7,16 +7,6 @@
 ===============
 Should handle these soon.
 
-- Show config -> list and display documentation for all tweakable global variables. [Philippe]
-   TODO :
-   In ~/.clfswmrc:
-      ;;;; AUTO-CONFIG - Do not edit those lines by hands: they are overwritten by CLFSWM
-      (defparameter *my-var* value)
-      ...
-      ;;;; AUTO-CONFIG End : You can add your configurations below this line.
-   Ask to change value. Check if new value type is the same as the old value.
-
-
 - Remote access to the clfswm REPL [Philippe]
    this can be done with net.lisp or via xprop (ie the Stumpwm way).
 

Modified: clfswm/src/clfswm-configuration.lisp
==============================================================================
--- clfswm/src/clfswm-configuration.lisp	(original)
+++ clfswm/src/clfswm-configuration.lisp	Sat Nov 14 17:49:32 2009
@@ -160,7 +160,6 @@
   "Configuration menu"
   (multiple-value-bind (all-groups all-variables)
       (find-configuration-variables)
-    (add-menu-key 'configuration-menu "a" 'save-configuration-variables)
     (loop for group in all-groups
        for i from 1
        do (let ((menu (group->menu group)))
@@ -169,7 +168,8 @@
 	       with j = -1
 	       do (when (equal (second var) group)
 		    (add-menu-key menu (number->char (incf j))
-				  (create-conf-function (first var)))))))))
+				  (create-conf-function (first var))))))))
+  (add-menu-key 'configuration-menu "*" 'save-configuration-variables))