From 3361fc5e9d0f69151d7e444ca4a54df13ccda2d6 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Tue, 28 Aug 2012 13:48:49 +0200 Subject: [PATCH] src/clfswm-expose-mode.lisp (expose-query-key-press-hook): Add an option to immediately select child if they can be directly accessed. --- ChangeLog | 6 ++++++ src/clfswm-expose-mode.lisp | 4 +++- src/config.lisp | 3 ++- 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 38a5ace..bdcf7fb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2012-08-28 Philippe Brochard + + * src/clfswm-expose-mode.lisp (expose-query-key-press-hook): Add + an option to immediately select child if they can be directly + accessed. + 2012-08-25 Philippe Brochard * contrib/volume-mode.lisp: Add mouse buttons actions in volume diff --git a/src/clfswm-expose-mode.lisp b/src/clfswm-expose-mode.lisp index 1ec4179..c6422bd 100644 --- a/src/clfswm-expose-mode.lisp +++ b/src/clfswm-expose-mode.lisp @@ -103,7 +103,9 @@ (defun expose-query-key-press-hook (code state) (declare (ignore code state)) - (expose-draw-letter)) + (expose-draw-letter) + (when (and *expose-direct-select* (<= (length *expose-windows-list*) 26)) + (leave-query-mode :return))) (defun expose-query-button-press-hook (code state x y) (declare (ignore state)) diff --git a/src/config.lisp b/src/config.lisp index 7fdd999..261571a 100644 --- a/src/config.lisp +++ b/src/config.lisp @@ -334,7 +334,8 @@ on the root window in the main mode with the mouse") 'Expose-mode "Show the window title on accel window") (defconfig *expose-transparency* 0.9 'Expose-mode "Expose string window background transparency") - +(defconfig *expose-direct-select* t + 'Expose-mode "Immediately select child if they can be directly accessed") ;;; CONFIG - Show key binding colors -- 2.11.4.GIT