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

[Philippe Brochard]

Author: pbrochard
Date: Sun Jun 28 09:07:41 2009
New Revision: 248

Log:
set-default-second-keys: Bind 'o' on set-open-in-new-frame-in-parent-frame-nw-hook.

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

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sun Jun 28 09:07:41 2009
@@ -1,3 +1,8 @@
+2009-06-28  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/bindings-second-mode.lisp (set-default-second-keys): Bind
+	"o" on set-open-in-new-frame-in-parent-frame-nw-hook.
+
 2009-06-27  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* contrib/keyb_fr.lisp: New file to handle an azerty keyboard.

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Sun Jun 28 09:07:41 2009
@@ -7,8 +7,7 @@
 ===============
 Should handle these soon.
 
-- New: in contrib: keyb-fr.lisp (french binding)
-       pcd / xmms modules...
+- New: Put CD player / xmms modules in contrib/ ...
 
 - Mouse support in menu
 

Modified: clfswm/src/bindings-second-mode.lisp
==============================================================================
--- clfswm/src/bindings-second-mode.lisp	(original)
+++ clfswm/src/bindings-second-mode.lisp	Sun Jun 28 09:07:41 2009
@@ -115,8 +115,8 @@
   (define-second-key ("Home" :mod-1 :shift) 'switch-and-select-root-frame)
   (define-second-key ("Menu") 'toggle-show-root-frame)
   (define-second-key (#\b :mod-1) 'banish-pointer)
-  (define-second-key (#\o) 'set-open-in-new-frame-in-root-frame-nw-hook)
-  (define-second-key (#\o :control) 'set-open-in-new-frame-in-parent-frame-nw-hook)
+  (define-second-key (#\o) 'set-open-in-new-frame-in-parent-frame-nw-hook)
+  (define-second-key (#\o :control) 'set-open-in-new-frame-in-root-frame-nw-hook)
   (define-second-key (#\a) 'add-default-frame)
   ;; Escape
   (define-second-key ("Escape" :control :shift) 'delete-focus-window)

Modified: clfswm/src/clfswm-nw-hooks.lisp
==============================================================================
--- clfswm/src/clfswm-nw-hooks.lisp	(original)
+++ clfswm/src/clfswm-nw-hooks.lisp	Sun Jun 28 09:07:41 2009
@@ -155,7 +155,9 @@
       (pushnew new-frame (frame-child parent))
       (pushnew window (frame-child new-frame))
       (hide-all *current-root*)
-      (setf *current-root* parent)
+      (setf *current-root* parent
+	    *current-child* parent)
+      (set-layout-once #'tile-space-layout)
       (setf *current-child* new-frame)
       (default-window-placement new-frame window)
       (show-all-children *current-root*))))