[clfswm-cvs] r124 - in clfswm: . doc src

[pbrochard at common-lisp.net]

Author: pbrochard
Date: Mon May 12 16:59:33 2008
New Revision: 124

Modified:
   clfswm/ChangeLog
   clfswm/doc/keys.html
   clfswm/doc/keys.txt
   clfswm/src/bindings-second-mode.lisp
   clfswm/src/bindings.lisp
   clfswm/src/clfswm-internal.lisp
Log:
In *.lisp: Rename 'brother' frames to 'sister' frames.

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Mon May 12 16:59:33 2008
@@ -1,5 +1,7 @@
 2008-05-12  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/*.lisp: Rename 'brother' frames to 'sister' frames.
+
 	* src/bindings-second-mode.lisp (define-second-key #\a): New
 	binding on 'add-default-frame'.
 

Modified: clfswm/doc/keys.html
==============================================================================
--- clfswm/doc/keys.html	(original)
+++ clfswm/doc/keys.html	Mon May 12 16:59:33 2008
@@ -60,7 +60,7 @@
           Right
         </td>
         <td style="color:#0000ff" nowrap>
-          Select the next brother frame
+          Select the next sister frame
         </td>
       </tr>
       <tr>
@@ -71,7 +71,7 @@
           Left
         </td>
         <td style="color:#0000ff" nowrap>
-          Select the previous brother frame
+          Select the previous sister frame
         </td>
       </tr>
       <tr>
@@ -723,7 +723,7 @@
           Right
         </td>
         <td style="color:#0000ff" nowrap>
-          Select the next brother frame
+          Select the next sister frame
         </td>
       </tr>
       <tr>
@@ -734,7 +734,7 @@
           Left
         </td>
         <td style="color:#0000ff" nowrap>
-          Select the previous brother frame
+          Select the previous sister frame
         </td>
       </tr>
       <tr>

Modified: clfswm/doc/keys.txt
==============================================================================
--- clfswm/doc/keys.txt	(original)
+++ clfswm/doc/keys.txt	Mon May 12 16:59:33 2008
@@ -8,8 +8,8 @@
 
 Mod-1                F1              Open the help and info window
 Mod-1 Control Shift  Home            Quit clfswm
-Mod-1                Right           Select the next brother frame
-Mod-1                Left            Select the previous brother frame
+Mod-1                Right           Select the next sister frame
+Mod-1                Left            Select the previous sister frame
 Mod-1                Down            Select the previous level in frame
 Mod-1                Up              Select the next level in frame
 Mod-1                Tab             Select the next child
@@ -75,8 +75,8 @@
                      Escape          Leave second mode
                      T               Tile with spaces the current frame
 Mod-1 Control Shift  Home            Quit clfswm
-Mod-1                Right           Select the next brother frame
-Mod-1                Left            Select the previous brother frame
+Mod-1                Right           Select the next sister frame
+Mod-1                Left            Select the previous sister frame
 Mod-1                Down            Select the previous level in frame
 Mod-1                Up              Select the next level in frame
 Mod-1                Tab             Select the next child

Modified: clfswm/src/bindings-second-mode.lisp
==============================================================================
--- clfswm/src/bindings-second-mode.lisp	(original)
+++ clfswm/src/bindings-second-mode.lisp	Mon May 12 16:59:33 2008
@@ -102,8 +102,8 @@
 
 (define-second-key ("Home" :mod-1 :control :shift) 'quit-clfswm)
 
-(define-second-key ("Right" :mod-1) 'select-next-brother)
-(define-second-key ("Left" :mod-1) 'select-previous-brother)
+(define-second-key ("Right" :mod-1) 'select-next-sister)
+(define-second-key ("Left" :mod-1) 'select-previous-sister)
 
 (define-second-key ("Down" :mod-1) 'select-previous-level)
 (define-second-key ("Up" :mod-1) 'select-next-level)

Modified: clfswm/src/bindings.lisp
==============================================================================
--- clfswm/src/bindings.lisp	(original)
+++ clfswm/src/bindings.lisp	Mon May 12 16:59:33 2008
@@ -39,8 +39,8 @@
 
 (define-main-key ("Home" :mod-1 :control :shift) 'quit-clfswm)
 
-(define-main-key ("Right" :mod-1) 'select-next-brother)
-(define-main-key ("Left" :mod-1) 'select-previous-brother)
+(define-main-key ("Right" :mod-1) 'select-next-sister)
+(define-main-key ("Left" :mod-1) 'select-previous-sister)
 
 (define-main-key ("Down" :mod-1) 'select-previous-level)
 (define-main-key ("Up" :mod-1) 'select-next-level)

Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp	(original)
+++ clfswm/src/clfswm-internal.lisp	Mon May 12 16:59:33 2008
@@ -629,8 +629,8 @@
 
 
 
-(defun select-next/previous-brother (fun-rotate)
-  "Select the next/previous brother frame"
+(defun select-next/previous-sister (fun-rotate)
+  "Select the next/previous sister frame"
   (let ((frame-is-root? (and (equal *current-root* *current-child*)
 			     (not (equal *current-root* *root-frame*)))))
     (if frame-is-root?
@@ -646,13 +646,13 @@
     (show-all-children *current-root*)))
 
 
-(defun select-next-brother ()
-  "Select the next brother frame"
-  (select-next/previous-brother #'anti-rotate-list))
-
-(defun select-previous-brother ()
-  "Select the previous brother frame"
-  (select-next/previous-brother #'rotate-list))
+(defun select-next-sister ()
+  "Select the next sister frame"
+  (select-next/previous-sister #'anti-rotate-list))
+
+(defun select-previous-sister ()
+  "Select the previous sister frame"
+  (select-next/previous-sister #'rotate-list))
 
 
 (defun select-next-level ()