From 901522fc103a2048c8212d831d2ab419faa6057c Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@galois.com>
Date: Wed, 7 Nov 2007 18:31:07 +0000
Subject: [PATCH] add higher order 'dzen' function
The intent is that:
main = dzen xmonad
should just work, and indeed it does now, for launching a cool status
bar with minimal effort.
---
XMonad/Config/Dons.hs | 15 ++++++---------
XMonad/Hooks/DynamicLog.hs | 25 ++++++++++++++++++++++++-
2 files changed, 30 insertions(+), 10 deletions(-)
diff --git a/XMonad/Config/Dons.hs b/XMonad/Config/Dons.hs
index ef5ccefc..b8d62a10 100644
--- a/XMonad/Config/Dons.hs
+++ b/XMonad/Config/Dons.hs
@@ -13,15 +13,12 @@
module XMonad.Config.Dons where
import XMonad
-import XMonad.Config
import XMonad.Hooks.DynamicLog
-config :: XConfig
-config = defaultConfig
- { borderWidth = 2
- , defaultGaps = [(18,0,0,0)]
- , terminal = "term"
- , normalBorderColor = "#cccccc"
- , focusedBorderColor = "#cd8b00"
- , logHook = dynamicLogDzen }
+donsMain :: IO ()
+donsMain = dzen $ \conf -> xmonad $ conf
+ { borderWidth = 2
+ , terminal = "term"
+ , normalBorderColor = "#cccccc"
+ , focusedBorderColor = "#cd8b00" }
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index 02fa34d8..2164080c 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -25,6 +25,7 @@ module XMonad.Hooks.DynamicLog (
dynamicLogDzen,
dynamicLogWithPP,
dynamicLogXinerama,
+ dzen,
pprWindowSet,
pprWindowSetXinerama,
@@ -67,9 +68,31 @@ makeSimpleDzenConfig = do
h <- spawnPipe "dzen2"
return defaultConfig
{ defaultGaps = [(18,0,0,0)]
- , logHook = dynamicLogWithPP defaultPP
+ , logHook = dynamicLogWithPP dzenPP
{ ppOutput = hPutStrLn h } }
+-- |
+--
+-- Run xmonad with a dzen status bar set to some nice defaults. Output
+-- it taken fromthe dynamicLogWithPP hook.
+--
+-- > main = dzen xmonad
+--
+-- The intent is that the avove config file should provide a nice status
+-- bar with minimal effort.
+--
+dzen :: (XConfig -> IO ()) -> IO ()
+dzen f = do
+ h <- spawnPipe ("dzen2" ++ " " ++ flags)
+ f $ defaultConfig
+ { defaultGaps = [(18,0,0,0)]
+ , logHook = dynamicLogWithPP dzenPP
+ { ppOutput = hPutStrLn h } }
+ where
+ fg = "'#a8a3f7'" -- n.b quoting
+ bg = "'#3f3c6d'"
+ flags = "-e '' -w 400 -ta l -fg " ++ fg ++ " -bg " ++ bg
+
-- |
-- An example log hook, print a status bar output to stdout, in the form:
--