[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-135-g50f822c

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  50f822c99b029eafbabd9fb5045eecc6d4e43f9c (commit)
       via  ba634984f136240ae13c4511c6c75948a8f2af11 (commit)
       via  d624e8bf0cf67142e6a46cc57185a6fe53c04aed (commit)
      from  edfeb6db2f8517c9d8785b3561bb95afaa4ae4e2 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 50f822c99b029eafbabd9fb5045eecc6d4e43f9c
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Fri Oct 12 13:03:03 2012 +0200

    Changed frame-select-*-child to wrap around. (Handle frames with no children)

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index 8924624..a584867 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -1372,7 +1372,7 @@ For window: set current child to window or its parent according to window-parent
   "Select the next child in the current frame"
   (when (frame-p (current-child))
     (with-slots (child selected-pos) (current-child)
-      (setf selected-pos (mod (1+ selected-pos) (length child))))
+      (setf selected-pos (mod (1+ selected-pos) (max (length child) 1))))
     (show-all-children)))
 
 
@@ -1380,7 +1380,7 @@ For window: set current child to window or its parent according to window-parent
   "Select the previous child in the current frame"
   (when (frame-p (current-child))
     (with-slots (child selected-pos) (current-child)
-      (setf selected-pos (mod (1- selected-pos) (length child))))
+      (setf selected-pos (mod (1- selected-pos) (max (length child) 1))))
     (show-all-children)))
 
 

commit ba634984f136240ae13c4511c6c75948a8f2af11
Author: Michael Raitza <spacefrogg-clfswm at meterriblecrew.net>
Date:   Fri Oct 12 12:50:38 2012 +0200

    Changed frame-select-*-child to wrap around.

diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index 964f4b9..8924624 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -1372,8 +1372,7 @@ For window: set current child to window or its parent according to window-parent
   "Select the next child in the current frame"
   (when (frame-p (current-child))
     (with-slots (child selected-pos) (current-child)
-      (unless (>= selected-pos (length child))
-	(incf selected-pos)))
+      (setf selected-pos (mod (1+ selected-pos) (length child))))
     (show-all-children)))
 
 
@@ -1381,8 +1380,7 @@ For window: set current child to window or its parent according to window-parent
   "Select the previous child in the current frame"
   (when (frame-p (current-child))
     (with-slots (child selected-pos) (current-child)
-      (unless (< selected-pos 1)
-	(decf selected-pos)))
+      (setf selected-pos (mod (1- selected-pos) (length child))))
     (show-all-children)))
 
 

commit d624e8bf0cf67142e6a46cc57185a6fe53c04aed
Author: Michael Raitza <spacefrogg-clfswm at meterriblecrew.net>
Date:   Fri Oct 12 12:40:42 2012 +0200

    Added select-previous-child-simple.

diff --git a/load.lisp b/load.lisp
index d8e063d..826997d 100644
--- a/load.lisp
+++ b/load.lisp
@@ -23,21 +23,40 @@
 ;;;
 ;;; --------------------------------------------------------------------------
 
-;;;;;; Uncomment lines above to build the default documentation.
-;;(pushnew :BUILD-DOC *features*)
+(pushnew :clfswm-build *features*)
+(pushnew :clfswm-dump *features*)
+(pushnew :clfswm-start *features*)
+(pushnew :clfswm-install *features*)
 
+;;;;;; Uncomment lines above to build the default documentation.
+;;(pushnew :clfswm-build-doc *features*)
 
-;;(load (compile-file "metering.cl"))
 
 (defparameter *base-dir* (directory-namestring *load-truename*))
 (export '*base-dir*)
 
+
 #+CMU
 (setf ext:*gc-verbose* nil)
 
+
+;;;; Loading ASDF
 #+(or SBCL ECL)
 (require :asdf)
 
+
+#-ASDF
+(load (make-pathname :host (pathname-host *base-dir*)
+		     :device (pathname-device *base-dir*)
+		     :directory (append (pathname-directory *base-dir*) (list "contrib"))
+		     :name "asdf" :type "lisp"))
+
+(push *base-dir* asdf:*central-registry*)
+
+
+
+
+
 #+(or CMU ECL)
 (require :clx)
 
@@ -63,12 +82,12 @@
 
 (in-package :clfswm)
 
-#-:BUILD-DOC
+#-:clfswm-build-doc
 (ignore-errors
   (main :read-conf-file-p t))
 
 
-#+:BUILD-DOC
+#+:clfswm-build-doc
 (ignore-errors
   (main :read-conf-file-p nil)
   (produce-all-docs))
diff --git a/src/clfswm-circulate-mode.lisp b/src/clfswm-circulate-mode.lisp
index 973976a..bc8ea8b 100644
--- a/src/clfswm-circulate-mode.lisp
+++ b/src/clfswm-circulate-mode.lisp
@@ -280,6 +280,12 @@
       (setf child (rotate-list child)))
     (show-all-children)))
 
+(defun select-previous-child-simple ()
+  "Select the previous child (do not enter circulate mode)"
+  (when (frame-p (current-child))
+    (with-slots (child) (current-child)
+      (setf child (anti-rotate-list child)))
+    (show-all-children)))
 
 
 (defun reorder-brother-simple (reorder-fun)

-----------------------------------------------------------------------

Summary of changes:
 load.lisp                      |   29 ++++++++++++++++++++++++-----
 src/clfswm-circulate-mode.lisp |    6 ++++++
 src/clfswm-internal.lisp       |    6 ++----
 3 files changed, 32 insertions(+), 9 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager