From 6cfd65e05f64fca4ada9268d29d4a2e129c09562 Mon Sep 17 00:00:00 2001
From: lithis <xmonad@selg.hethrael.org>
Date: Sat, 29 Mar 2008 04:15:37 +0100
Subject: Encode the entire DynamicLog output, instead of just window title.

darcs-hash:20080329031537-1c3cf-c68bcb7e9296b98cedbed1e18ceba05548122512.gz
---
 XMonad/Hooks/DynamicLog.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Hooks/DynamicLog.hs')

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
-- 
cgit v1.2.3