[clfswm-cvs] CVS clfswm

[pbrochard]

Update of /project/clfswm/cvsroot/clfswm
In directory clnet:/tmp/cvs-serv24247

Modified Files:
	dot-clfswmrc 
Log Message:
example (dwm, larswm style) added

--- /project/clfswm/cvsroot/clfswm/dot-clfswmrc	2007/05/15 19:49:51	1.1
+++ /project/clfswm/cvsroot/clfswm/dot-clfswmrc	2007/05/15 20:51:41	1.2
@@ -36,6 +36,32 @@
 			       (format t "Keyp press (after)~%")
 			       (force-output))))
 
+;;;; Uncomment the lines below if you want to enable the larswm,
+;;;; dwm, wmii... cycling style.
+;;;;
+;;;; This leave the main window in on side of the screen and tile others
+;;;; on the other side. It can be configured in the rc file or interactively
+;;;; with the function 'reconfigure-tile-workspace'.
+;;;;
+;;(defun circulate-group-up ()
+;;  "Circulate up in group - larswm, dwm, wmii style"
+;;  (banish-pointer)
+;;  (minimize-group (current-group))
+;;  (no-focus)
+;;  (setf (workspace-group-list (current-workspace))
+;;	(rotate-list (workspace-group-list (current-workspace))))
+;;  (funcall *tile-workspace-function* (current-workspace))
+;;  (show-all-windows-in-workspace (current-workspace)))
+;;
+;;(defun circulate-group-down ()
+;;  "Circulate down in group - larswm, dwm, wmii style"
+;;  (banish-pointer)
+;;  (minimize-group (current-group))
+;;  (no-focus)
+;;  (setf (workspace-group-list (current-workspace))
+;;	(anti-rotate-list (workspace-group-list (current-workspace))))
+;;  (funcall *tile-workspace-function* (current-workspace))
+;;  (show-all-windows-in-workspace (current-workspace)))