From d624e8bf0cf67142e6a46cc57185a6fe53c04aed Mon Sep 17 00:00:00 2001
From: Michael Raitza <spacefrogg-clfswm@meterriblecrew.net>
Date: Fri, 12 Oct 2012 12:40:42 +0200
Subject: [PATCH] Added select-previous-child-simple.

---
 load.lisp                      | 29 ++++++++++++++++++++++++-----
 src/clfswm-circulate-mode.lisp |  6 ++++++
 2 files changed, 30 insertions(+), 5 deletions(-)

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)
-- 
2.11.4.GIT