diff options
| -rw-r--r-- | XMonad/Util/Timer.hs | 62 | ||||
| -rw-r--r-- | xmonad-contrib.cabal | 1 |
2 files changed, 63 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 diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal index 58fac94..9bf336d 100644 --- a/xmonad-contrib.cabal +++ b/xmonad-contrib.cabal @@ -137,6 +137,7 @@ library XMonad.Util.Invisible XMonad.Util.NamedWindows XMonad.Util.Run + XMonad.Util.Timer XMonad.Util.WorkspaceCompare XMonad.Util.XSelection XMonad.Util.XUtils |