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

[Philippe Brochard]

Author: pbrochard
Date: Fri May  6 17:04:05 2011
New Revision: 454

Log:
src/bindings-second-mode.lisp (set-default-second-keys): select-brother-spatial-move-* binding update.

Modified:
   clfswm/ChangeLog
   clfswm/src/bindings-second-mode.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Fri May  6 17:04:05 2011
@@ -1,5 +1,8 @@
 2011-05-06  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/bindings-second-mode.lisp (set-default-second-keys):
+	select-brother-spatial-move-* binding update.
+
 	* src/clfswm-layout.lisp (tile-left|right|top|bottom-layout): Ask
 	to keep children positions or not.
 

Modified: clfswm/src/bindings-second-mode.lisp
==============================================================================
--- clfswm/src/bindings-second-mode.lisp	(original)
+++ clfswm/src/bindings-second-mode.lisp	Fri May  6 17:04:05 2011
@@ -105,6 +105,10 @@
   (define-second-key ("Left" :mod-1) 'select-previous-brother)
   (define-second-key ("Down" :mod-1) 'select-previous-level)
   (define-second-key ("Up" :mod-1) 'select-next-level)
+  (define-second-key ("Left" :control :mod-1) 'select-brother-spatial-move-left)
+  (define-second-key ("Right" :control :mod-1) 'select-brother-spatial-move-right)
+  (define-second-key ("Up" :control :mod-1) 'select-brother-spatial-move-up)
+  (define-second-key ("Down" :control :mod-1) 'select-brother-spatial-move-down)
 
   (define-second-key ("Right") 'speed-mouse-right)
   (define-second-key ("Left") 'speed-mouse-left)