[clfswm-cvs] r284 - in clfswm: . src

[Philippe Brochard]

Author: pbrochard
Date: Wed Jul 21 16:39:30 2010
New Revision: 284

Log:
src/package.lisp: Add a placement configuration group.

Modified:
   clfswm/ChangeLog
   clfswm/src/package.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Wed Jul 21 16:39:30 2010
@@ -1,5 +1,7 @@
 2010-07-21  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/package.lisp: Add a placement configuration group.
+
 	* src/binding*.lisp: Bind control+g to escape the current action
 	like emacs.
 

Modified: clfswm/src/package.lisp
==============================================================================
--- clfswm/src/package.lisp	(original)
+++ clfswm/src/package.lisp	Wed Jul 21 16:39:30 2010
@@ -243,7 +243,7 @@
   "Config(Hook group): Hook executed when keys/buttons are bounds")
 
 (defparameter *loop-hook* nil
-  "Config(Hook group): Kook executed on each event loop")
+  "Config(Hook group): Hook executed on each event loop")
 
 
 (defparameter *in-second-mode* nil)
@@ -262,11 +262,16 @@
 ;;; middle-left  middle-middle  middle-right
 ;;; bottom-left  bottom-middle  bottom-right
 ;;;
-(defparameter *banish-pointer-placement* 'bottom-right-placement)
-(defparameter *second-mode-placement* 'top-middle-placement)
-(defparameter *info-mode-placement* 'top-left-placement)
-(defparameter *query-mode-placement* 'top-left-placement)
-(defparameter *circulate-mode-placement* 'bottom-middle-placement)
+(defparameter *banish-pointer-placement* 'bottom-right-placement
+  "Config(Placement group): Pointer banishment placement")
+(defparameter *second-mode-placement* 'top-middle-placement
+  "Config(Placement group): Second mode window placement")
+(defparameter *info-mode-placement* 'top-left-placement
+  "Config(Placement group): Info mode window placement")
+(defparameter *query-mode-placement* 'top-left-placement
+  "Config(Placement group): Query mode window placement")
+(defparameter *circulate-mode-placement* 'bottom-middle-placement
+  "Config(Placement group): Circulate mode window placement")