twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-07 07:21:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

add NoUrgencyHook, for shachaf's sake

Browse Source
This commit is contained in:
Devin Mullins
2007-11-10 23:58:57 +00:00
parent 6a3e6d787f
commit 899bb99fad
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Hooks/UrgencyHook.hs
View File

@@ -22,6 +22,7 @@ module XMonad.Hooks.UrgencyHook (
withUrgencyHook, withUrgencyHook,
focusUrgent, focusUrgent,
readUrgents, withUrgents, readUrgents, withUrgents,
NoUrgencyHook(..),
dzenUrgencyHook, DzenUrgencyHook(..), dzenUrgencyHook, DzenUrgencyHook(..),
seconds seconds
) where ) where
@@ -144,6 +145,11 @@ withUrgencyHook theHook = ModifiedLayout $ WithUrgencyHook theHook
class (Read h, Show h) => UrgencyHook h a where class (Read h, Show h) => UrgencyHook h a where
urgencyHook :: h -> a -> X () urgencyHook :: h -> a -> X ()
data NoUrgencyHook = NoUrgencyHook deriving (Read, Show)
instance UrgencyHook NoUrgencyHook Window where
urgencyHook _ _ = return ()
data DzenUrgencyHook = DzenUrgencyHook { duration :: Int, args :: [String] } data DzenUrgencyHook = DzenUrgencyHook { duration :: Int, args :: [String] }
deriving (Read, Show) deriving (Read, Show)