[sawfish: 37/42] ChangeLog & NEWS bump minimum librep to 0.92.0

[Christopher Bratusek <chrisb src gnome org>]

commit c1d8b58ccddc91af7d949f51c5df141914a3123b
Author: Christopher Roy Bratusek <nano tuxfamily org>
Date:   Sat Apr 16 07:20:03 2011 +0200

    ChangeLog & NEWS
    bump minimum librep to 0.92.0

 ChangeLog                         |   39 +++++++++++++++++++++++++++++++++++++
 configure.in                      |    2 +-
 lisp/sawfish/wm/edge/actions.jl   |    2 +
 lisp/sawfish/wm/edge/conf.jl      |    8 +++---
 lisp/sawfish/wm/edge/hot-spots.jl |   38 ++++++++++++++++++++++++++++++++++-
 lisp/sawfish/wm/windows.jl        |   11 ++++++++++
 man/news.texi                     |   10 ++++++++-
 7 files changed, 102 insertions(+), 8 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index be2a99a..ea12451 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,42 @@
+2011-04-16  Christopher Roy Bratusek <nano tuxfamily org>
+	* configure.in: bump minimum rep to 0.92.0
+
+2011-04-15  Christopher Roy Bratusek <nano tuxfamily org>
+	* sawfish.desktop
+	* sawfish-wm.desktop
+	* sawfish-ksm.desktop: unified order
+	                       spec compliance
+			       -- Kim B. Heino
+
+2011-04-14  Christopher Roy Bratusek <nano tuxfamily org>
+	* configure.in
+	* Makefile.in
+	* sounds/Makefile.in
+	* themes/Makefile.in: remove version from install-paths
+
+	* debian/**: merged more stuff from Ian Zimmermann
+
+2011-04-13  Christopher Roy Bratusek <nano tuxfamily org>
+	* Makefile.in: added debclean rule
+	               improved distclean rule
+		       improved gitclean rule
+
+	* config.h.in: removed from GIT
+
+	* config.guess
+	* config.sub: added
+
+	* Makedefs.in
+	* Makefile.in
+	* build-info
+	* sawfish.pc.in
+	* configure.in: removed architecture from install-paths
+
+	* sounds/Makefile.in
+	* src/Makefile.in: minor clean-ups -- Ian Zimmermann
+
+	* debian/**: merged scripts from Ian Zimmermann 
+
 2011-04-12  Christopher Roy Bratusek <nano tuxfamily org>
 	* Makefile.in: don't remove NEWSâ??upon clean or distclean
 
diff --git a/configure.in b/configure.in
index 5eeedbf..57d30f6 100644
--- a/configure.in
+++ b/configure.in
@@ -212,7 +212,7 @@ else FONT_LOADER="X.Org"
 fi
 
 dnl Check for librep
-REP_MIN_VER="0.91.0"
+REP_MIN_VER="0.92.0"
 
 PKG_CHECK_MODULES(LIBREP, librep >= ${REP_MIN_VER}
 		  ,REP_EXECDIR="`pkg-config --variable=repcommonexecdir librep`"
diff --git a/lisp/sawfish/wm/edge/actions.jl b/lisp/sawfish/wm/edge/actions.jl
index 2700086..333d811 100644
--- a/lisp/sawfish/wm/edge/actions.jl
+++ b/lisp/sawfish/wm/edge/actions.jl
@@ -46,6 +46,8 @@
        (edge-flip-invoke edge 'viewport))
       ((none/hot-spot)
        (hot-spot-invoke edge))
+      ((none/hot-move)
+       (hot-move-invoke edge))
       (t nil)))
 
   ;; Entry point without dragging 
diff --git a/lisp/sawfish/wm/edge/conf.jl b/lisp/sawfish/wm/edge/conf.jl
index 08a3d38..2319339 100644
--- a/lisp/sawfish/wm/edge/conf.jl
+++ b/lisp/sawfish/wm/edge/conf.jl
@@ -39,20 +39,20 @@
     :group edge-actions
     :type (choice none/hot-spot viewport-drag flip-workspace flip-viewport))
 
-  (defcustom left-right-edge-move-action 'none
+  (defcustom left-right-edge-move-action 'none/hot-move
     "Action for the left and right screen-edge while moving a window."
     :group edge-actions
-    :type  (choice none viewport-drag flip-workspace flip-viewport))
+    :type  (choice none/hot-move viewport-drag flip-workspace flip-viewport))
 
   (defcustom top-bottom-edge-action 'none/hot-spot
     "Action for the top and bottom screen-edge."
     :group edge-actions
     :type (choice none/hot-spot viewport-drag flip-workspace flip-viewport))
 
-  (defcustom top-bottom-edge-move-action 'none
+  (defcustom top-bottom-edge-move-action 'none/hot-move
     "Action for the top and bottom screen-edge while moving a window."
     :group edge-actions
-    :type  (choice none viewport-drag flip-workspace flip-viewport))
+    :type  (choice none/hot-move viewport-drag flip-workspace flip-viewport))
 
   (defcustom edge-flip-delay 250
     "Delay (in milliseconds) of flipping of viewport / workspace."
diff --git a/lisp/sawfish/wm/edge/hot-spots.jl b/lisp/sawfish/wm/edge/hot-spots.jl
index e88c7ac..b8c722a 100644
--- a/lisp/sawfish/wm/edge/hot-spots.jl
+++ b/lisp/sawfish/wm/edge/hot-spots.jl
@@ -20,7 +20,8 @@
 
 (define-structure sawfish.wm.edge.hot-spots
 
-    (export hot-spot-invoke)
+    (export hot-spot-invoke
+            hot-move-invoke)
 
     (open rep
 	  rep.system
@@ -82,5 +83,38 @@
 		      (mod hot-spot-delay 1000))
 	(when func
 	  ;; non-nil, but not a function?
-	  (error "In hot-spot, you configuration of `%s' is wrong; it should be a function." spot))
+	  (error "In hot-spot, you configuration of spot `%s' is wrong; it should be a function." spot))
+	)))
+
+  (defvar left-edge-move-function nil
+    "The function launched when hitting the left-edge.")
+
+  (defvar top-edge-move-function nil
+    "The function launched when hitting the top-edge.")
+
+  (defvar right-edge-move-function nil
+    "The function launched when hitting the right-edge.")
+
+  (defvar bottom-edge-move-function nil
+    "The function launched when hitting the bottom-edge.")
+
+  (define (hot-move-invoke spot)
+    (let ((func (case spot
+		  ((left)
+		   left-edge-move-function)
+		  ((top)
+		   top-edge-move-function)
+		  ((right)
+		   right-edge-move-function)
+		  ((bottom)
+		   bottom-edge-move-function))))
+      (if (functionp func)
+	  (make-timer (lambda ()
+			(allow-events 'async-both)
+			(funcall func))
+		      (quotient hot-spot-delay 1000)
+		      (mod hot-spot-delay 1000))
+	(when func
+	  ;; non-nil, but not a function?
+	  (error "In hot-spot, you configuration of spot `%s' is wrong; it should be a function." spot))
 	))))
diff --git a/lisp/sawfish/wm/windows.jl b/lisp/sawfish/wm/windows.jl
index 8d3cdf4..022fc99 100644
--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -60,6 +60,7 @@
 	     call-after-property-changed
 	     call-after-state-changed
 	     rename-window
+	     release-windows
 	     toggle-fixed-postion))
 
     (open rep
@@ -575,6 +576,16 @@ STATES has been changed. STATES may also be a single symbol."
   (define-command 'rename-window rename-window
     #:spec "%W\nsEnter new window name:")
 
+  (define (release-windows #!key warp center)
+    "Release all windows (commonly used for hot-spot while moving)."
+    (synthesize-event (lookup-event "ESC") 'root)
+    (if warp
+        (warp-cursor-to-window warp))
+    (if center
+        (progn
+	  (require 'sawfish.wm.commands.move-cursor)
+          (move-cursor-center))))
+
   (define (toggle-fixed-postion w)
     "Toggle the window property `fixed-position'."
      (if (window-get w 'fixed-position)
diff --git a/man/news.texi b/man/news.texi
index b972381..5b86be0 100644
--- a/man/news.texi
+++ b/man/news.texi
@@ -14,7 +14,7 @@ Each release lists incompatible changes at its top.
 @c @heading x.y.z ``Code name''
 @c @itemize @bullet
 
- c @item Update dependencies
+ c @item Updated or New dependencies
 @c @itemize @minus
 @c @end itemize
 
@@ -42,6 +42,12 @@ Each release lists incompatible changes at its top.
 @heading 1.8.1 "Sharp As A Knife"
 @itemize @bullet
 
+ item Updated or New dependencies
+ itemize @minus
+
+ item librep 0.91.0 -> 0.92.0
+ end itemize
+
 @item Bug Fixes
 @itemize @minus
 
@@ -79,6 +85,8 @@ classes from command definitions [Christopher Bratusek]
 
 @item Improved Requires in sawfish.pc [Christopher Bratusek]
 
+ item Improved debian packaging-scripts [Ian Zimmermann, Christopher Bratusek]
+
 @item Updated translations:
 @itemize +