diff options
| -rw-r--r-- | XMonad/Actions/ShowText.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/XMonad/Actions/ShowText.hs b/XMonad/Actions/ShowText.hs index bc8bc00..3d9bff5 100644 --- a/XMonad/Actions/ShowText.hs +++ b/XMonad/Actions/ShowText.hs @@ -53,7 +53,7 @@ import qualified XMonad.Util.ExtensibleState as ES -- > ((modMask, xK_Right), flashText defaultSTConfig 1 "->" >> nextWS) -- --- ShowText contains the map with timers as keys and created windows as values +-- | ShowText contains the map with timers as keys and created windows as values newtype ShowText = ShowText (Map Atom Window) deriving (Read,Show,Typeable) @@ -87,7 +87,10 @@ handleTimerEvent (ClientMessageEvent _ _ _ dis _ mtyp d) = do handleTimerEvent _ = return () -- | Shows a window in the center of the screen with the given text -flashText :: ShowTextConfig -> Rational -> String -> X () +flashText :: ShowTextConfig + -> Rational -- ^ number of seconds + -> String -- ^ text to display + -> X () flashText c i s = do f <- initXMF (st_font c) d <- asks display |