aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Util
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-01-13 10:01:40 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-01-13 10:01:40 +0100
commit9efcb9c2ba1df87f7c95fc27d831d829373f7b0e (patch)
tree7f5ea9abf6cdc07e926347834a91bfa2d3b05ca6 /XMonad/Util
parent37c2aeba2203df2ad5d92521144c545f92c9d22b (diff)
downloadXMonadContrib-9efcb9c2ba1df87f7c95fc27d831d829373f7b0e.tar.gz
XMonadContrib-9efcb9c2ba1df87f7c95fc27d831d829373f7b0e.tar.xz
XMonadContrib-9efcb9c2ba1df87f7c95fc27d831d829373f7b0e.zip
Add XMonad.Util.Timer, a module to set up timers and to handle them
darcs-hash:20080113090140-32816-8b407ee62d132e547232f674756c7c27c0f5c76b.gz
Diffstat (limited to 'XMonad/Util')
-rw-r--r--XMonad/Util/Timer.hs62
1 files changed, 62 insertions, 0 deletions
diff --git a/XMonad/Util/Timer.hs b/XMonad/Util/Timer.hs
new file mode 100644
index 0000000..65ed65c
--- /dev/null
+++ b/XMonad/Util/Timer.hs
@@ -0,0 +1,62 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module : XMonad.Util.Timer
+-- Copyright : (c) Andrea Rossato and David Roundy 2007
+-- License : BSD-style (see xmonad/LICENSE)
+--
+-- Maintainer : andrea.rossato@unibz.it
+-- Stability : unstable
+-- Portability : unportable
+--
+-- A module for setting up timers
+-----------------------------------------------------------------------------
+
+module XMonad.Util.Timer
+ ( -- * Usage
+ -- $usage
+ startTimer
+ , handleTimer
+ , TimerId
+ ) where
+
+import XMonad
+import Control.Applicative
+import Control.Concurrent
+import Data.Unique
+import System.Environment
+import System.Posix.Process
+
+-- $usage
+-- This module can be used to setup a timer to handle deferred events.
+-- See 'XMonad.Layout.ShowWName' for an usage example.
+
+type TimerId = Int
+
+-- | Start a timer, which will send a ClientMessageEvent after some
+-- time (in seconds).
+startTimer :: Rational -> X TimerId
+startTimer s = io $ do
+ dpy <- catch (getEnv "DISPLAY") (const $ return [])
+ d <- openDisplay dpy
+ rw <- rootWindow d $ defaultScreen d
+ u <- hashUnique <$> newUnique
+ forkProcess $ do
+ threadDelay (fromEnum $ s * 1000000)
+ a <- internAtom d "XMONAD_TIMER" False
+ allocaXEvent $ \e -> do
+ setEventType e clientMessage
+ setClientMessageEvent e rw a 32 (fromIntegral u) currentTime
+ sendEvent d rw False structureNotifyMask e
+ sync d False
+ return u
+
+-- | Given a 'TimerId' and an 'Event', run an action when the 'Event'
+-- has been sent by the timer specified by the 'TimerId'
+handleTimer :: TimerId -> Event -> X (Maybe a) -> X (Maybe a)
+handleTimer ti (ClientMessageEvent {ev_message_type = mt, ev_data = dt}) action = do
+ d <- asks display
+ a <- io $ internAtom d "XMONAD_TIMER" False
+ if dt /= [] && fromIntegral (head dt) == ti && mt == a
+ then action
+ else return Nothing
+handleTimer _ _ _ = return Nothing