[sawfish/edge-actions] simplified hot-spots (now only takes funcs)

[Christopher Bratusek <chrisb src gnome org>]

commit 6b3b9da9885be84ad27f419f777dccb93a84fd05
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Nov 13 19:09:14 2010 +0100

    simplified hot-spots (now only takes funcs)

 ChangeLog.EA                      |    3 ++
 lisp/sawfish/wm/edge/hot-spots.jl |   39 +++++++-----------------------------
 2 files changed, 11 insertions(+), 31 deletions(-)
---
diff --git a/ChangeLog.EA b/ChangeLog.EA
index b4b37e7..f40ce99 100644
--- a/ChangeLog.EA
+++ b/ChangeLog.EA
@@ -1,3 +1,6 @@
+2010-11-13  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/edge/hot-spots.jl: simplified hot-spots (now only takes funcs)
+
 2010-11-06  Christopher Bratusek <zanghar freenet de>
 	* src/flippers.c: build into sawfish and rename module to sawfish.wm.edge.subrs
 
diff --git a/lisp/sawfish/wm/edge/hot-spots.jl b/lisp/sawfish/wm/edge/hot-spots.jl
index 8779900..061dbe0 100644
--- a/lisp/sawfish/wm/edge/hot-spots.jl
+++ b/lisp/sawfish/wm/edge/hot-spots.jl
@@ -60,41 +60,18 @@
   (define (hot-spot-activate spot)
     (case spot
       ((top-left)
-	    (if (functionp top-left-corner-program)
-		(funcall top-left-corner-program)
-	      (system (concat top-left-corner-program " &"))))
-
+       (funcall top-left-corner-program))
       ((top-right)
-	    (if (functionp top-right-corner-program)
-		(funcall top-right-corner-program)
-	      (system (concat top-right-corner-program " &"))))
-
+       (funcall top-right-corner-program))
       ((bottom-right)
-	    (if (functionp bottom-right-corner-program)
-		(funcall bottom-right-corner-program)
-	      (system (concat bottom-right-corner-program " &"))))
-
+       (funcall bottom-right-corner-program))
       ((bottom-left)
-	    (if (functionp bottom-left-corner-program)
-		(funcall bottom-left-corner-program)
-	      (system (concat bottom-left-corner-program " &"))))
-
+       (funcall bottom-left-corner-program))
       ((left)
-       (if (functionp left-edge-program)
-	   (funcall left-edge-program)
-	(system (concat left-edge-program " &"))))
-
+       (funcall left-edge-program))
       ((top)
-	   (if (functionp top-edge-program)
-	       (funcall top-edge-program)
-	     (system (concat top-edge-program " &"))))
-
+       (funcall top-edge-program))
       ((right)
-	   (if (functionp right-edge-program)
-	       (funcall right-edge-program)
-	     (system (concat right-edge-program " &"))))
-
+       (funcall right-edge-program))
       ((bottom)
-	   (if (functionp bottom-edge-program)
-	       (funcall bottom-edge-program)
-	     (system (concat bottom-edge-program " &")))))))
\ No newline at end of file
+       (funcall bottom-edge-program)))))