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

[Philippe Brochard]

Author: pbrochard
Date: Sun Oct 26 20:19:45 2008
New Revision: 192

Log:
remove-hook: New function. TODO update. Fix a typo in without-numlock

Modified:
   clfswm/ChangeLog
   clfswm/TODO
   clfswm/src/clfswm-keys.lisp
   clfswm/src/tools.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sun Oct 26 20:19:45 2008
@@ -1,5 +1,7 @@
 2008-10-26  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/tools.lisp (remove-hook): New function.
+
 	* src/clfswm-keys.lisp (with-capslock, without-capslock) 
 	(with-numlock, without-cnumlock): New functions.
 

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Sun Oct 26 20:19:45 2008
@@ -9,8 +9,6 @@
 
 - Make alias for :mod-1 -> :alt   :mod-2 -> :numlock
 
-- hook to create bindings and menu -> build keys and menu at runtime.
-
 - Show config -> list and display documentation for all tweakable global variables. [Philippe]
    TODO :
    In ~/.clfswmrc:
@@ -19,21 +17,18 @@
       ...
       ;;;; AUTO-CONFIG End : You can add your configurations below this line.
 
-- Remote access to the clfswm REPL [Philippe]
-   Protocol:  Server: Ask: random-number
-              Client: Reply: associated random-number
-              Server: Ok
-              Client: a lisp form (+ 2 2)
-              ...
-   Random-number at compile time: '((rnd-1-server rnd-1-client) (rnd-1-server rnd-1-client) (rnd-1-server rnd-1-client) ...)
-
 - Support clisp/new-clx and prevent to crash clisp with this CLX version.
 
+- Mouse support in menu
+
+- Remote access to the clfswm REPL [Philippe]
+   this can be done with net.lisp or via xprop (ie the Stumpwm way).
+
 
 MAYBE
 =====
 
-- cd/pwd a la shell to navigate throw frames. [Philippe]
+- cd/pwd a la shell to navigate through frames. [Philippe]
 
 - Zoom
 
@@ -51,5 +46,4 @@
 
 - Undo/redo (any idea to implement this is welcome)
 
-- Mouse support in menu?
 

Modified: clfswm/src/clfswm-keys.lisp
==============================================================================
--- clfswm/src/clfswm-keys.lisp	(original)
+++ clfswm/src/clfswm-keys.lisp	Sun Oct 26 20:19:45 2008
@@ -40,7 +40,7 @@
 (defun with-numlock ()
   (pushnew :mod-2 *default-modifiers*))
 
-(defun without-cnumlock ()
+(defun without-numlock ()
   (setf *default-modifiers* (remove :mod-2 *default-modifiers*)))
 
 

Modified: clfswm/src/tools.lisp
==============================================================================
--- clfswm/src/tools.lisp	(original)
+++ clfswm/src/tools.lisp	Sun Oct 26 20:19:45 2008
@@ -33,6 +33,7 @@
 	   :aif
 	   :call-hook
 	   :add-hook
+	   :remove-hook
 	   :dbg
 	   :dbgnl
 	   :with-all-internal-symbols
@@ -128,6 +129,11 @@
 (defmacro add-hook (hook &rest value)
   `(setf ,hook (append ,hook (list , at value))))
 
+(defmacro remove-hook (hook &rest value)
+  (let ((i (gensym)))
+    `(dolist (,i (list , at value))
+      (setf ,hook (remove ,i ,hook)))))
+
 
 
 ;;;,-----