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

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Sat May  3 15:54:40 2008
New Revision: 113

Modified:
   clfswm/ChangeLog
   clfswm/README
   clfswm/src/clfswm-info.lisp
   clfswm/src/clfswm-internal.lisp
   clfswm/src/clfswm-second-mode.lisp
Log:
display all frame info before leaving the second mode or the info mode.

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sat May  3 15:54:40 2008
@@ -1,3 +1,13 @@
+2008-05-03  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-info.lisp (info-mode): display all frame info before
+	leaving.
+
+	* src/clfswm-second-mode.lisp (second-key-mode): display all frame
+	info before leaving.
+
+	* src/clfswm-internal.lisp (display-all-frame-info): New function.
+
 2008-05-02  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/tools.lisp (getenv): Implemented for ECL.

Modified: clfswm/README
==============================================================================
--- clfswm/README	(original)
+++ clfswm/README	Sat May  3 15:54:40 2008
@@ -1,4 +1,4 @@
-        CLFSWM - A(nother) Common Lisp FullScreen Window Manager
+        CLFSWM[0] - A(nother) Common Lisp FullScreen Window Manager
 
  CLFSWM is a 100% Common Lisp X11 window manager (based on [1]Tinywm
  and [2]Stumpwm. Many thanks to them).
@@ -9,6 +9,11 @@
  current root. The current root is fullscreen maximized (no
  decorations, no buttons, no menus: nothing, just the application
  fullscreen!).
+
+ CLFSWM is highly dynamic. By default there is only one frame. Other
+ frames are created/deleted on the fly. A window can be in more than
+ one frame, so it can have multiple views of the same windows.
+
  Using CLFSWM is like walking throw a tree of frames and windows.
  Enter in a child to make it the current root and make it fullscreen
  maximized. Leave it to make its parent the current root.
@@ -22,7 +27,7 @@
   * Alt-Down: select the parent of the current child.
   * Alt-Enter: Make the current selected child the current root (ie
       maximize it) 
-  Alt+Shift-Enter: Make the parent of the current root the current
+  * Alt+Shift-Enter: Make the parent of the current root the current
       root (ie unmaximize the current root).
 
  There is no more need for a pager: you are in the pager!
@@ -31,11 +36,13 @@
  A main mode with minimal keys and mouse grabbing to avoid conflicts
  with others applications.
  And a second mode with more keys and mouse actions.
- For details of its usage, have a look at the files keys.txt or 
- keys.html
+ For details of its usage, have a look at the files doc/keys.txt or 
+ doc/keys.html
+ A lot of functions to manage CLFSWM can be found in the second mode
+ menu. See the file menu-def.lisp for an overview.
 
  A frame can be placed anywhere in its parent frame. And can have
- differents layouts to automatically manage its children (tile, tile
+ different layouts to automatically manage its children (tile, tile
  to left, to bottom, no layout...).
 
 
@@ -66,11 +73,11 @@
 
 All variables can be overwritten in a user configuration file:
 $XDG_CONFIG_HOME/clfswm/clfswmrc or $HOME/.clfswmrc or /etc/clfswmrc.
-It's a standard lisp file loaded at startup. There is an example in
+It's a standard lisp file loaded at start up. There is an example in
 the clfswm source (see dot-clfswmrc).
 
 There is a lot of hooks in CLFSWM to tweak its behaviour. For example,
-if you want to add some frames at startup you can write your own
+if you want to add some frames at start up you can write your own
 init-hook (see dot-clfswmrc).
 
 
@@ -95,6 +102,8 @@
 
 Références
 
+      http://common-lisp.net/project/clfswm/
+      http://trac.common-lisp.net/clfswm/
    1. http://incise.org/index.cgi/TinyWM
    2. http://www.nongnu.org/stumpwm/
    3. http://www.gnu.org/

Modified: clfswm/src/clfswm-info.lisp
==============================================================================
--- clfswm/src/clfswm-info.lisp	(original)
+++ clfswm/src/clfswm-info.lisp	Sat May  3 15:54:40 2008
@@ -262,6 +262,7 @@
 	  (xlib:free-gcontext gc)
 	  (xlib:destroy-window window)
 	  (xlib:close-font font)
+	  (display-all-frame-info)
 	  (wait-no-key-or-button-press))))))
 
 

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Sat May  3 15:54:40 2008
@@ -365,7 +365,9 @@
       (copy-pixmap-buffer window gc))))
 
 
-
+(defun display-all-frame-info (&optional (root *current-root*))
+  (with-all-frames (root frame)
+    (display-frame-info frame)))
 
 
 

Modified: clfswm/src/clfswm-second-mode.lisp
==============================================================================
--- clfswm/src/clfswm-second-mode.lisp	(original)
+++ clfswm/src/clfswm-second-mode.lisp	Sat May  3 15:54:40 2008
@@ -204,7 +204,8 @@
     (xungrab-keyboard)
     (xungrab-pointer)
     (grab-main-keys)
-    (show-all-children))
+    (show-all-children)
+    (display-all-frame-info))
   (wait-no-key-or-button-press)
   (when *second-mode-program*
     (do-shell *second-mode-program*)