From dd5780040a99086cd3a3b361d4d0afaceb923c4a Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@galois.com>
Date: Wed, 7 Nov 2007 09:55:14 +0100
Subject: DynamicLog: Add makeSimpleDzenConfig function

This function serves as an example for spawning a dzen2 instance and printing
the defaultPP to it.

darcs-hash:20071107085514-b49f3-cefc0b026964d545f8ef746762654fe0d6a8654e.gz
---
 XMonad/Hooks/DynamicLog.hs | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'XMonad/Hooks')

diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index 96782fb..546622d 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -31,7 +31,8 @@ module XMonad.Hooks.DynamicLog (
 
     PP(..), defaultPP, dzenPP, sjanssenPP,
     wrap, pad, shorten,
-    xmobarColor, dzenColor, dzenEscape
+    xmobarColor, dzenColor, dzenEscape,
+    makeSimpleDzenConfig
   ) where
 
 -- 
@@ -44,7 +45,9 @@ import Data.List
 import Data.Ord ( comparing )
 import qualified XMonad.StackSet as S
 import Data.Monoid
+import System.IO
 import XMonad.Util.NamedWindows
+import XMonad.Util.Run
 
 -- $usage 
 --
@@ -57,6 +60,14 @@ import XMonad.Util.NamedWindows
 -- %def -- comment out default logHook definition above if you uncomment any of these:
 -- %def logHook = dynamicLog
 
+-- | An example xmonad config that spawns a new dzen toolbar and uses the default
+-- dynamic log output
+makeSimpleDzenConfig :: IO XConfig
+makeSimpleDzenConfig = do
+  h <- spawnPipe "dzen2"
+  return defaultConfig
+           { logHook = dynamicLogWithPP defaultPP
+                                          { ppOutput = hPutStrLn h } }
 
 -- |
 -- An example log hook, print a status bar output to stdout, in the form:
-- 
cgit v1.2.3