From 316a299e213378cde64bd947e7b380aacfa183d5 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Fri, 5 Apr 2013 22:12:04 +0200 Subject: [PATCH] Add a menu entry to enable sloppy-select-window focus policy --- src/clfswm-util.lisp | 8 ++++++++ src/menu-def.lisp | 10 ++++++---- 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp index 9440d58..425a60c 100644 --- a/src/clfswm-util.lisp +++ b/src/clfswm-util.lisp @@ -1400,6 +1400,10 @@ For window: set current child to window or its parent according to window-parent "Set a sloppy select policy for the current frame." (set-focus-policy-generic :sloppy-select)) +(defun current-frame-set-sloppy-select-window-policy () + "Set a sloppy select window policy for the current frame." + (set-focus-policy-generic :sloppy-select-window)) + (defun set-focus-policy-generic-for-all (focus-policy) @@ -1424,6 +1428,10 @@ For window: set current child to window or its parent according to window-parent "Set a sloppy select policy for all frames." (set-focus-policy-generic-for-all :sloppy-select)) +(defun all-frames-set-sloppy-select-window-policy () + "Set a sloppy select window policy for all frames." + (set-focus-policy-generic-for-all :sloppy-select-window)) + ;;; Ensure unique name/number functions diff --git a/src/menu-def.lisp b/src/menu-def.lisp index 2358cd9..403aeb3 100644 --- a/src/menu-def.lisp +++ b/src/menu-def.lisp @@ -155,11 +155,13 @@ (add-menu-key 'frame-focus-policy "b" 'current-frame-set-sloppy-focus-policy) (add-menu-key 'frame-focus-policy "c" 'current-frame-set-sloppy-strict-focus-policy) (add-menu-key 'frame-focus-policy "d" 'current-frame-set-sloppy-select-policy) +(add-menu-key 'frame-focus-policy "e" 'current-frame-set-sloppy-select-window-policy) (add-menu-comment 'frame-focus-policy "-=- For all frames -=-") -(add-menu-key 'frame-focus-policy "e" 'all-frames-set-click-focus-policy) -(add-menu-key 'frame-focus-policy "f" 'all-frames-set-sloppy-focus-policy) -(add-menu-key 'frame-focus-policy "g" 'all-frames-set-sloppy-strict-focus-policy) -(add-menu-key 'frame-focus-policy "h" 'all-frames-set-sloppy-select-policy) +(add-menu-key 'frame-focus-policy "f" 'all-frames-set-click-focus-policy) +(add-menu-key 'frame-focus-policy "g" 'all-frames-set-sloppy-focus-policy) +(add-menu-key 'frame-focus-policy "h" 'all-frames-set-sloppy-strict-focus-policy) +(add-menu-key 'frame-focus-policy "i" 'all-frames-set-sloppy-select-policy) +(add-menu-key 'frame-focus-policy "j" 'all-frames-set-sloppy-select-window-policy) -- 2.11.4.GIT