From fcdc939572cfece0a8ce99f9164aa85f217ef369 Mon Sep 17 00:00:00 2001
From: Alexander Polakov <plhk@sdf.org>
Date: Thu, 7 Feb 2013 16:08:56 +0400
Subject: Introduce Actions

 Actions are event re-actions.
 Currently only ButtonPress event is handled by Actions and only
 one action is defined, which is called Spawn (run external command).
 Type (and parser) can be extended to EWMH actions (switch to desktop,
 close window, whatever).
---
 src/Signal.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Signal.hs')

diff --git a/src/Signal.hs b/src/Signal.hs
index 8b3b325..34d8cd7 100644
--- a/src/Signal.hs
+++ b/src/Signal.hs
@@ -22,6 +22,7 @@ import Data.Typeable (Typeable)
 import Control.Concurrent.STM
 import Control.Exception hiding (handle)
 import System.Posix.Signals
+import Graphics.X11.Xlib.Types (Position)
 
 #ifdef DBUS
 import DBus (IsVariant(..))
@@ -40,6 +41,7 @@ data SignalType = Wakeup
                 | Reveal Int
                 | Toggle Int
                 | TogglePersistent
+                | Action Position
     deriving (Read, Show)
 
 #ifdef DBUS
-- 
cgit v1.2.3