diff options
author | Devin Mullins <me@twifkak.com> | 2007-10-18 03:29:10 +0200 |
---|---|---|
committer | Devin Mullins <me@twifkak.com> | 2007-10-18 03:29:10 +0200 |
commit | d8d003eb6621245e59430ecfd5de27dcd6bcccda (patch) | |
tree | a3773cf297a2d192a0abec3b2f05503a122b255f /Run.hs | |
parent | 54507995ebec87397635f8033c483d5ed07e6f8e (diff) | |
download | XMonadContrib-d8d003eb6621245e59430ecfd5de27dcd6bcccda.tar.gz XMonadContrib-d8d003eb6621245e59430ecfd5de27dcd6bcccda.tar.xz XMonadContrib-d8d003eb6621245e59430ecfd5de27dcd6bcccda.zip |
fixed Dzen and gave it a configurable timeout
darcs-hash:20071018012910-78224-804cedb28d826ddfc3d1a8177aa8460b38fe6591.gz
Diffstat (limited to 'Run.hs')
-rw-r--r-- | Run.hs | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -20,7 +20,8 @@ module XMonadContrib.Run ( -- $usage runInXTerm, runProcessWithInput, - runProcessWithInputAndWait + runProcessWithInputAndWait, + seconds ) where import XMonad @@ -82,3 +83,8 @@ runInXTerm com = do c <- io $ catch (getEnv "XTERMCMD") (const $ return "xterm") spawn ("exec " ++ c ++ " -e " ++ com) +-- | Multiplies by ONE MILLION, for use with runProcessWithInputAndWait. +-- Use like: +-- > (5.5 `seconds`) +seconds :: Rational -> Int +seconds = fromEnum . (* 1000000) |