diff options
| author | Eric Mertens <emertens@galois.com> | 2007-11-07 06:58:05 +0100 |
|---|---|---|
| committer | Eric Mertens <emertens@galois.com> | 2007-11-07 06:58:05 +0100 |
| commit | 39cf1c8869bb6d4bc2553ba78433ef33df8316f0 (patch) | |
| tree | 107b2e413e2e0ed643a2f458aa07647e688a387a /XMonad/Hooks/DynamicLog.hs | |
| parent | 4164d461e92fcf6d702b8136e9ec609aaf7b0cf0 (diff) | |
| download | XMonadContrib-39cf1c8869bb6d4bc2553ba78433ef33df8316f0.tar.gz XMonadContrib-39cf1c8869bb6d4bc2553ba78433ef33df8316f0.tar.xz XMonadContrib-39cf1c8869bb6d4bc2553ba78433ef33df8316f0.zip | |
DynamicLog: add ppOutput field to PP
This allows the user to specify an alternate destination for logging output
instead of outputing to stdout (which is still the default).
darcs-hash:20071107055805-b49f3-c6ea1520a3c35f590b338e74b94f02762ec9593d.gz
Diffstat (limited to 'XMonad/Hooks/DynamicLog.hs')
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs index 16f036a..96782fb 100644 --- a/XMonad/Hooks/DynamicLog.hs +++ b/XMonad/Hooks/DynamicLog.hs @@ -81,7 +81,7 @@ dynamicLogWithPP pp = do -- window title wt <- withWindowSet $ maybe (return "") (fmap show . getName) . S.peek - io . putStrLn . sepBy (ppSep pp) . ppOrder pp $ + io . ppOutput pp . sepBy (ppSep pp) . ppOrder pp $ [ ws , ppLayout pp ld , ppTitle pp wt @@ -171,7 +171,9 @@ data PP = PP { ppCurrent, ppVisible , ppSep, ppWsSep :: String , ppTitle :: String -> String , ppLayout :: String -> String - , ppOrder :: [String] -> [String] } + , ppOrder :: [String] -> [String] + , ppOutput :: String -> IO () + } -- | The default pretty printing options, as seen in dynamicLog defaultPP :: PP @@ -183,7 +185,9 @@ defaultPP = PP { ppCurrent = wrap "[" "]" , ppWsSep = " " , ppTitle = shorten 80 , ppLayout = id - , ppOrder = id } + , ppOrder = id + , ppOutput = putStrLn + } -- | Settings to emulate dwm's statusbar, dzen only dzenPP :: PP |