[clfswm-cvs] r132 - clfswm/doc

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Sun May 18 16:53:13 2008
New Revision: 132

Modified:
   clfswm/doc/dot-clfswmrc
Log:
More dot-clfswmrc examples

Modified: clfswm/doc/dot-clfswmrc
==============================================================================
--- clfswm/doc/dot-clfswmrc	(original)
+++ clfswm/doc/dot-clfswmrc	Sun May 18 16:53:13 2008
@@ -218,8 +218,15 @@
   (setf (frame-managed-type *root-frame*) nil))
 
 
+;;; Here is another example useful with the ROX filer: Only the
+;;; root frame fullscreen with some space on the left for icons.
+(defun my-init-hook-rox-filer ()
+  (setf (frame-layout *root-frame*) #'tile-left-space-layout
+	(frame-data-slot *root-frame* :tile-size) 0.9))
+
+
 
 
 (setf *init-hook* #'my-init-hook-4)  ;; <- choose one in 1 to 4
 ;;(setf *init-hook* nil)
-;;; Init hook end
\ No newline at end of file
+;;; Init hook end