From 8210d1d6f72daa3a95dac7be71f3d3358dfe1191 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Fri, 9 Nov 2012 02:27:52 +0100 Subject: Add missing type signatures. Ignore-this: f54f5d9907ae48d58c98de7f8eb1f8a For whatever reason, some patches applied were missing these signatures. While haddock has been able to include inferred signatures for a while, including type signatures makes it easier to see if and when types have been changed. darcs-hash:20121109012752-1499c-8ae303fbd7b4590f10d1c34ff9aed23c1be5c117.gz --- XMonad/Hooks/EwmhDesktops.hs | 1 + XMonad/Hooks/UrgencyHook.hs | 4 ++++ 2 files changed, 5 insertions(+) (limited to 'XMonad') diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index 060079a..f7f19c3 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -118,6 +118,7 @@ ewmhDesktopsLogHookCustom f = withWindowSet $ \s -> do -- * _NET_WM_DESKTOP (move windows to other desktops) -- -- * _NET_ACTIVE_WINDOW (activate another window, changing workspace if needed) +ewmhDesktopsEventHook :: Event -> X All ewmhDesktopsEventHook = ewmhDesktopsEventHookCustom id -- | diff --git a/XMonad/Hooks/UrgencyHook.hs b/XMonad/Hooks/UrgencyHook.hs index 495c576..c4c7f8e 100644 --- a/XMonad/Hooks/UrgencyHook.hs +++ b/XMonad/Hooks/UrgencyHook.hs @@ -424,6 +424,7 @@ instance UrgencyHook DzenUrgencyHook where > withUrgencyHook FocusHook $ myconfig { ... -} +focusHook :: Window -> X () focusHook = urgencyHook FocusHook data FocusHook = FocusHook deriving (Read, Show) @@ -441,6 +442,7 @@ instance UrgencyHook FocusHook where -- @borderColor@ breaks anyone using 'XPConfig' from "XMonad.Prompt". We need to -- think a bit more about namespacing issues, maybe.) +borderUrgencyHook :: String -> Window -> X () borderUrgencyHook = urgencyHook . BorderUrgencyHook data BorderUrgencyHook = BorderUrgencyHook { urgencyBorderColor :: !String } deriving (Read, Show) @@ -465,6 +467,7 @@ dzenUrgencyHook = DzenUrgencyHook { duration = seconds 5, args = [] } -- | Spawn a commandline thing, appending the window id to the prefix string -- you provide. (Make sure to add a space if you need it.) Do your crazy -- xcompmgr thing. +spawnUrgencyHook :: String -> Window -> X () spawnUrgencyHook = urgencyHook . SpawnUrgencyHook newtype SpawnUrgencyHook = SpawnUrgencyHook String deriving (Read, Show) @@ -472,6 +475,7 @@ instance UrgencyHook SpawnUrgencyHook where urgencyHook (SpawnUrgencyHook prefix) w = spawn $ prefix ++ show w -- | For debugging purposes, really. +stdoutUrgencyHook :: Window -> X () stdoutUrgencyHook = urgencyHook StdoutUrgencyHook data StdoutUrgencyHook = StdoutUrgencyHook deriving (Read, Show) -- cgit v1.2.3