sawfish r4315 - in trunk: . lisp/sawfish/wm lisp/sawfish/wm/placement man

[chrisb svn gnome org]

Author: chrisb
Date: Wed Dec 17 18:51:29 2008
New Revision: 4315
URL: http://svn.gnome.org/viewvc/sawfish?rev=4315&view=rev

Log:
Expose the smart placement modes


Modified:
   trunk/ChangeLog
   trunk/lisp/sawfish/wm/autoload.jl
   trunk/lisp/sawfish/wm/placement/smart.jl
   trunk/man/news.texi

Modified: trunk/lisp/sawfish/wm/autoload.jl
==============================================================================
--- trunk/lisp/sawfish/wm/autoload.jl	(original)
+++ trunk/lisp/sawfish/wm/autoload.jl	Wed Dec 17 18:51:29 2008
@@ -130,9 +130,9 @@
 (defgroup match-window "Matched Windows" :layout single :require sawfish.wm.ext.match-window)
 (defgroup tooltips "Tooltips" :group misc :require sawfish.wm.ext.tooltips)
 (autoload-placement-mode 'first-fit 'sawfish.wm.placement.smart #:for-normal t)
-(autoload-placement-mode 'best-fit 'sawfish.wm.placement.smart)
-(autoload-placement-mode 'best-fit-group 'sawfish.wm.placement.smart)
-(autoload-placement-mode 'first-fit-or-interactive 'sawfish.wm.placement.smart)
+(autoload-placement-mode 'best-fit 'sawfish.wm.placement.smart #:for-normal t)
+(autoload-placement-mode 'best-fit-group 'sawfish.wm.placement.smart #:for-normal t)
+(autoload-placement-mode 'first-fit-or-interactive 'sawfish.wm.placement.smart #:for-normal t)
 (autoload-command (quote maximize-window) (quote sawfish.wm.state.maximize))
 (autoload-command (quote unmaximize-window) (quote sawfish.wm.state.maximize))
 (autoload-command (quote maximize-window-vertically) (quote sawfish.wm.state.maximize))

Modified: trunk/lisp/sawfish/wm/placement/smart.jl
==============================================================================
--- trunk/lisp/sawfish/wm/placement/smart.jl	(original)
+++ trunk/lisp/sawfish/wm/placement/smart.jl	Wed Dec 17 18:51:29 2008
@@ -416,6 +416,6 @@
 
   ;;###autoload
   (define-placement-mode 'first-fit place-window-first-fit #:for-normal t)
-  (define-placement-mode 'best-fit place-window-best-fit)
-  (define-placement-mode 'best-fit-group place-window-best-fit-group)
-  (define-placement-mode 'first-fit-or-interactive place-window-first-fit-or-interactive))
+  (define-placement-mode 'best-fit place-window-best-fit #:for-normal t)
+  (define-placement-mode 'best-fit-group place-window-best-fit-group #:for-normal t)
+  (define-placement-mode 'first-fit-or-interactive place-window-first-fit-or-interactive #:for-normal t))

Modified: trunk/man/news.texi
==============================================================================
--- trunk/man/news.texi	(original)
+++ trunk/man/news.texi	Wed Dec 17 18:51:29 2008
@@ -42,6 +42,8 @@
 @item Also expose the "Stagger" and "Off-Center" placement-modes
 
 @item Add a new hook: "before-slide-hook" by Andrea Vettorello
+
+ item Expose all smart placement-modes, "Best-Fit", "Best-Fit-Group", "First-Fit-Or-Interactively" by Christopher Bratusek
 @end itemize
 
 @item Bugfixes: