diff options
| author | lithis <xmonad@selg.hethrael.org> | 2008-03-29 04:15:37 +0100 |
|---|---|---|
| committer | lithis <xmonad@selg.hethrael.org> | 2008-03-29 04:15:37 +0100 |
| commit | 6cfd65e05f64fca4ada9268d29d4a2e129c09562 (patch) | |
| tree | 021281f350f150d8d7d21da66d830d0244367da6 /XMonad/Hooks/DynamicLog.hs | |
| parent | ff9990faf84840ffea4289e7c3edcc3b4065307b (diff) | |
| download | XMonadContrib-6cfd65e05f64fca4ada9268d29d4a2e129c09562.tar.gz XMonadContrib-6cfd65e05f64fca4ada9268d29d4a2e129c09562.tar.xz XMonadContrib-6cfd65e05f64fca4ada9268d29d4a2e129c09562.zip | |
Encode the entire DynamicLog output, instead of just window title.
darcs-hash:20080329031537-1c3cf-c68bcb7e9296b98cedbed1e18ceba05548122512.gz
Diffstat (limited to 'XMonad/Hooks/DynamicLog.hs')
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs index bba09e4..9bc3b55 100644 --- a/XMonad/Hooks/DynamicLog.hs +++ b/XMonad/Hooks/DynamicLog.hs @@ -219,12 +219,12 @@ dynamicLogString pp = do let ws = pprWindowSet sort' urgents pp winset -- window title - wt <- maybe (return "") (fmap (encodeOutput . show) . getName) . S.peek $ winset + wt <- maybe (return "") (fmap show . getName) . S.peek $ winset -- run extra loggers, ignoring any that generate errors. extras <- sequence $ map (flip catchX (return Nothing)) $ ppExtras pp - return $ sepBy (ppSep pp) . ppOrder pp $ + return $ encodeOutput . sepBy (ppSep pp) . ppOrder pp $ [ ws , ppLayout pp ld , ppTitle pp wt |