From d8d003eb6621245e59430ecfd5de27dcd6bcccda Mon Sep 17 00:00:00 2001
From: Devin Mullins <me@twifkak.com>
Date: Thu, 18 Oct 2007 03:29:10 +0200
Subject: fixed Dzen and gave it a configurable timeout

darcs-hash:20071018012910-78224-804cedb28d826ddfc3d1a8177aa8460b38fe6591.gz
---
 Dzen.hs | 33 +++++++++++++++++++--------------
 Run.hs  |  8 +++++++-
 2 files changed, 26 insertions(+), 15 deletions(-)

diff --git a/Dzen.hs b/Dzen.hs
index 4e63bfb..0438a68 100644
--- a/Dzen.hs
+++ b/Dzen.hs
@@ -8,28 +8,33 @@
 -- Stability   :  unstable
 -- Portability :  unportable
 --
--- Handy wrapper for dzen.
+-- Handy wrapper for dzen. Requires dzen >= 0.2.4.
 --
 -----------------------------------------------------------------------------
 
-module XMonadContrib.Dzen (dzen, dzenScreen) where
+module XMonadContrib.Dzen (dzen, dzenScreen, seconds) where
 
-import Control.Monad.State
-import qualified StackSet as W
 import XMonad
-import XMonadContrib.Run
-
-curScreen :: X ScreenId
-curScreen =  (W.screen . W.current) `liftM` gets windowset
+import XMonadContrib.Run (runProcessWithInputAndWait, seconds)
 
 toXineramaArg :: ScreenId -> String
 toXineramaArg n = show ( ((fromIntegral n)+1)::Int )
 
--- Requires dzen >= 0.2.4.
+-- | @dzen str timeout@ pipes @str@ to dzen2 for @timeout@ microseconds.
+-- Example usage:
+-- > dzen "Hi, mom!" (5 `seconds`)
+dzen :: String -> Int -> X ()
+dzen str timeout = dzenWithArgs str [] timeout
 
-dzen :: String -> X ()
-dzen str = curScreen >>= \sc -> dzenScreen sc str
+-- | @dzenScreen sc str timeout@ pipes @str@ to dzen2 for @timeout@ microseconds, and on screen @sc@.
+-- Requires dzen to be compiled with Xinerama support.
+dzenScreen :: ScreenId -> String -> Int -> X()
+dzenScreen sc str timeout = dzenWithArgs str ["-xs", screen] timeout
+    where screen  = toXineramaArg sc
 
-dzenScreen :: ScreenId -> String -> X()
-dzenScreen sc str = io $ (runProcessWithInputAndWait "dzen2" ["-xs", screen] str 5000000)
-    where screen = toXineramaArg sc
+dzenWithArgs :: String -> [String] -> Int -> X ()
+dzenWithArgs str args timeout = io $ runProcessWithInputAndWait "dzen2" args (unchomp str) timeout
+  -- dzen seems to require the input to terminate with exactly one newline.
+  where unchomp s@['\n'] = s
+        unchomp []       = ['\n']
+        unchomp (c:cs)   = c : unchomp cs
diff --git a/Run.hs b/Run.hs
index 051750d..98da796 100644
--- a/Run.hs
+++ b/Run.hs
@@ -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)
-- 
cgit v1.2.3