diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2012-12-26 02:37:25 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2012-12-26 02:37:25 +0100 |
| commit | 4de8bd8f16645933fa995557b2cf4c5b9d64d520 (patch) | |
| tree | 163584e98303f018729b498d98118a8f9e121fce | |
| parent | 6e2264cb5804b64381d61b50be6b839fa375e1b5 (diff) | |
| download | XMonadContrib-4de8bd8f16645933fa995557b2cf4c5b9d64d520.tar.gz XMonadContrib-4de8bd8f16645933fa995557b2cf4c5b9d64d520.tar.xz XMonadContrib-4de8bd8f16645933fa995557b2cf4c5b9d64d520.zip | |
Describe arguments for X.A.ShowText.flashText
Ignore-this: 7f00a11196115ebf814c616aaf8e96f
darcs-hash:20121226013725-1499c-9817853c36bf4bb9bffff8fd465cf6fded22b27e.gz
| -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 |