[sawfish: 11/42] add edge.conf module for storing all edge-action options

[Christopher Bratusek <chrisb src gnome org>]

commit d56fd5ceb153fa8943bc89a157aa358b1f866836
Author: Christopher Roy Bratusek <nano tuxfamily org>
Date:   Sun Apr 10 09:32:26 2011 +0200

    add edge.conf module for storing all edge-action options

 lisp/sawfish/wm/edge/conf.jl |   87 ++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 87 insertions(+), 0 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/conf.jl b/lisp/sawfish/wm/edge/conf.jl
new file mode 100644
index 0000000..f51502e
--- /dev/null
+++ b/lisp/sawfish/wm/edge/conf.jl
@@ -0,0 +1,87 @@
+;; edge/conf.jl -- configuration for EdgeActions
+
+;; Copyright (C) 2011 Christopher Roy Bratusek <zanghar freenet de>
+
+;; This file is part of sawfish.
+
+;; sawfish is free software; you can redistribute it and/or modify it
+;; under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; sawfish is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with sawfish; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+(define-structure sawfish.wm.edge.conf
+
+    (export)
+
+    (open rep
+	  sawfish.wm.custom
+	  sawfish.wm.edge.actions)
+
+  (define-structure-alias edge-actions sawfish.wm.edge.conf)
+
+  (defcustom edge-actions-enabled nil
+    "Activate edges to perform various actions."
+    :group edge-actions
+    :type boolean
+    :after-set (lambda () (activate-edges-after-set)))
+
+  (defcustom left-right-edge-action 'none/hot-spot
+    "Action for the left and right screen-edge."
+    :group edge-actions
+    :type (choice none/hot-spot viewport-drag flip-workspace flip-viewport))
+
+  (defcustom left-right-edge-move-action 'none
+    "Action for the left and right screen-edge while moving a window."
+    :group edge-actions
+    :type  (choice none 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
+    "Action for the top and bottom screen-edge while moving a window."
+    :group edge-actions
+    :type  (choice none viewport-drag flip-workspace flip-viewport))
+
+    (defcustom edge-flip-delay 250
+    "Delay (in milliseconds) of flipping of viewport / workspace."
+    :group edge-actions
+    :type number
+    :range (0 . nil))
+
+    (defcustom hot-spot-delay 250
+    "Delay (in milliseconds) before activating a hot-spot."
+    :group edge-actions
+    :type number
+    :range (0 . nil))
+
+    (defcustom hot-spots-corner-length 50
+    "The size portion of the screen-border recognized as \"corners\",
+in pixels. Applies to both x and y direction."
+    :type number
+    :range (5 . 500)
+    :group edge-actions)
+
+  (defcustom viewport-drag-distance 64
+    "Amount to drag the viewport (in pixel) each time the pointer hits the
+screen edge."
+    :group edge-actions
+    :type number
+    :range (1 . nil))
+
+  (defcustom viewport-drag-cursor-distance 32
+    "Amount to pull back the cursor (in pixel) after dragging the viewport."
+    :group edge-actions
+    :type number
+    :range (1 . nil)))