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

[Philippe Brochard]

Author: pbrochard
Date: Tue Nov  9 16:17:43 2010
New Revision: 380

Log:
src/clfswm-expose-mode.lisp (expose-windows-current-child-mode): New function an bindings.

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

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue Nov  9 16:17:43 2010
@@ -1,5 +1,8 @@
 2010-11-09  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/clfswm-expose-mode.lisp (expose-windows-current-child-mode):
+	New function an bindings.
+
 	* src/clfswm-layout.lisp (tile-layout, set-tile-layout): Fill
 	blanks if needed.
 

Modified: clfswm/src/bindings.lisp
==============================================================================
--- clfswm/src/bindings.lisp	(original)
+++ clfswm/src/bindings.lisp	Tue Nov  9 16:17:43 2010
@@ -61,12 +61,13 @@
   (define-main-key ("Home" :mod-1) 'switch-to-root-frame)
   (define-main-key ("Home" :mod-1 :shift) 'switch-and-select-root-frame)
   (define-main-key ("F10" :mod-1) 'fast-layout-switch)
-  (define-main-key ("F10" :shift) 'show-all-frames-info-key)
-  (define-main-key ("F10" :shift :mod-1) 'show-all-frames-info)
   (define-main-key ("F10" :shift :control) 'toggle-show-root-frame)
-  (define-main-key ("F10") 'expose-windows-mode)
-  (define-main-key ("F10" :control) 'expose-all-windows-mode)
+  (define-main-key ("F10") 'expose-windows-current-child-mode)
+  (define-main-key ("F10" :control) 'expose-windows-mode)
+  (define-main-key ("F10" :control :shift) 'expose-all-windows-mode)
   (define-main-key ("L2" :control) 'present-clfswm-terminal)
+  (define-main-key ("L2" :shift) 'show-all-frames-info-key)
+  (define-main-key ("L2" :shift :mod-1) 'show-all-frames-info)
   (define-main-key (#\b :mod-1) 'banish-pointer)
   ;; Escape
   (define-main-key ("Escape" :control) 'ask-close/kill-current-window)

Modified: clfswm/src/clfswm-expose-mode.lisp
==============================================================================
--- clfswm/src/clfswm-expose-mode.lisp	(original)
+++ clfswm/src/clfswm-expose-mode.lisp	Tue Nov  9 16:17:43 2010
@@ -205,3 +205,17 @@
 			    (lambda ()
 			      (hide-all-children *current-root*)
 			      (setf *current-root* orig-root)))))
+
+(defun expose-windows-current-child-mode ()
+  "Present all windows in the current child (An expose like)"
+  (stop-button-event)
+  (when (frame-p *current-child*)
+    (let ((orig-root *current-root*))
+      (hide-all *current-root*)
+      (setf *current-root* *current-child*)
+      (expose-windows-generic *current-root*)
+      (hide-all *current-root*)
+      (setf *current-root* orig-root)
+      (show-all-children *current-root*))))
+
+