From 944ccb91412ad331bea01e6cd0229eae6ef80fc3 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Fri, 6 May 2011 23:05:21 +0200 Subject: [PATCH] src/bindings-second-mode.lisp (set-default-second-keys): select-brother-spatial-move-* binding update. --- ChangeLog | 3 +++ src/bindings-second-mode.lisp | 4 ++++ 2 files changed, 7 insertions(+) diff --git a/ChangeLog b/ChangeLog index 3f404b5..06e52a4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2011-05-06 Philippe Brochard + * 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. diff --git a/src/bindings-second-mode.lisp b/src/bindings-second-mode.lisp index bbaa186..8447a42 100644 --- a/src/bindings-second-mode.lisp +++ b/src/bindings-second-mode.lisp @@ -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) -- 2.11.4.GIT