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

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Sun Jul 20 15:27:48 2008
New Revision: 152

Modified:
   clfswm/ChangeLog
   clfswm/TODO
   clfswm/src/clfswm-internal.lisp
   clfswm/src/config.lisp
Log:
place maxsized and fullscreened windows in the center of the screen

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sun Jul 20 15:27:48 2008
@@ -4,13 +4,6 @@
 	window id.
 	(have-to-present-virtual-keyboard): Add a virtual keyboard corner
 	(top right by default). By default 'xvkbd' is used.
-	Here is an ~/.Xresources example:
-	  xvkbd.windowGeometry: 300x100-0-0
-	  xvkbd*Font: 6x12
-	  xvkbd.modalKeytop: true
-	  xvkbd.customization: -french
-	  xvkbd.keypad: false
-
 
 2008-06-28  Philippe Brochard  <pbrochard at common-lisp.net>
 

Modified: clfswm/TODO
==============================================================================
--- clfswm/TODO	(original)
+++ clfswm/TODO	Sun Jul 20 15:27:48 2008
@@ -11,6 +11,8 @@
 
 - Fast switch between two children. [Philippe]
 
+- Fast layout switch [Philippe]
+
 - A Gimp layout example (a main window and all others on the left) [Philippe]
 
 - Hook to open next window in named/numbered frame [Philippe]

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Sun Jul 20 15:27:48 2008
@@ -860,8 +860,8 @@
 			(xlib:drawable-height window))))
       (setf (xlib:drawable-width window) (min (max min-width rwidth *default-window-width*) max-width)
 	    (xlib:drawable-height window) (min (max min-height rheight *default-window-height*) max-height))
-      (setf (xlib:drawable-x window) (truncate (/ (- (xlib:screen-width *screen*) (xlib:drawable-width window)) 2))
-	    (xlib:drawable-y window) (truncate (/ (- (xlib:screen-height *screen*) (xlib:drawable-height window)) 2))))))
+      (setf (xlib:drawable-x window) (truncate (/ (- (xlib:screen-width *screen*) (+ (xlib:drawable-width window) 2)) 2))
+	    (xlib:drawable-y window) (truncate (/ (- (xlib:screen-height *screen*) (+ (xlib:drawable-height window) 2)) 2))))))
 
 
 

Modified: clfswm/src/config.lisp
==============================================================================
--- clfswm/src/config.lisp	(original)
+++ clfswm/src/config.lisp	Sun Jul 20 15:27:48 2008
@@ -98,7 +98,15 @@
   "Which corner enable the mouse present virtual keyboard.
 One of :bottom-right :bottom-left :top-right :top-left")
 
-(defparameter *virtual-keyboard-cmd* "xvkbd")
+(defparameter *virtual-keyboard-cmd* "xvkbd"
+  "The command to display the virtual keybaord
+  Here is an ~/.Xresources example for xvkbd:
+    xvkbd.windowGeometry: 300x100-0-0
+    xvkbd*Font: 6x12
+    xvkbd.modalKeytop: true
+    xvkbd.customization: -french
+    xvkbd.keypad: false
+  And make it always on top")
 (defparameter *virtual-keyboard-kill-cmd* "pkill xvkbd")