[sawfish/edge-actions] simplified edge-action-init

[Christopher Bratusek <chrisb src gnome org>]

commit 001a2701f9fabf5adc55e317ec2e8667d1511fc3
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Nov 6 12:07:48 2010 +0100

    simplified edge-action-init

 lisp/sawfish/wm/edge/actions.jl |   37 ++++++++++++++++---------------------
 1 files changed, 16 insertions(+), 21 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/actions.jl b/lisp/sawfish/wm/edge/actions.jl
index e9d0c1a..82154cd 100644
--- a/lisp/sawfish/wm/edge/actions.jl
+++ b/lisp/sawfish/wm/edge/actions.jl
@@ -103,27 +103,22 @@
 
   (define (edge-action-init)
     (unless no-enter
-    (let ((corner (get-active-corner))
-	  (edge (get-active-edge)))
-      (if corner
-	  (hot-spot-activate corner)
-	(setq func nil)
-	(cond ((eq edge 'left)
-	       (make-timer (lambda () (edge-action-call left-edge-func edge))
-		  (quotient edge-actions-delay 1000)
-		  (mod edge-actions-delay 1000)))
-	      ((eq edge 'right)
-               (make-timer (lambda () (edge-action-call right-edge-func edge))
-		  (quotient edge-actions-delay 1000)
-		  (mod edge-actions-delay 1000)))
-	      ((eq edge 'top)
-	       (make-timer (lambda () (edge-action-call top-edge-func edge))
-		  (quotient edge-actions-delay 1000)
-		  (mod edge-actions-delay 1000)))
-	      ((eq edge 'bottom)
-	       (make-timer (lambda () (edge-action-call bottom-edge-func edge))
-		  (quotient edge-actions-delay 1000)
-		  (mod edge-actions-delay 1000))))))))
+      (let ((corner (get-active-corner))
+	    (edge (get-active-edge)))
+	(make-timer (lambda ()
+	    (if corner
+		(hot-spot-activate corner)
+	      (setq func nil)
+	      (cond ((eq edge 'left)
+		    (edge-action-call left-edge-func edge))
+		    ((eq edge 'right)
+		    (edge-action-call right-edge-func edge))
+		    ((eq edge 'top)
+		    (edge-action-call top-edge-func edge))
+		    ((eq edge 'bottom)
+		    (edge-action-call bottom-edge-func edge)))))
+	    (quotient edge-actions-delay 1000)
+	    (mod edge-actions-delay 1000)))))
 
   (define (edge-action-move-init)
     (setq func nil)