aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-03-13 11:26:43 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-03-13 11:26:43 +0100
commitff9990faf84840ffea4289e7c3edcc3b4065307b (patch)
tree1431991fabd0ec5120153a4a403fe77475d5896a
parentb7d880c5a784fe0429996e290de7d6903608a298 (diff)
downloadXMonadContrib-ff9990faf84840ffea4289e7c3edcc3b4065307b.tar.gz
XMonadContrib-ff9990faf84840ffea4289e7c3edcc3b4065307b.tar.xz
XMonadContrib-ff9990faf84840ffea4289e7c3edcc3b4065307b.zip
DynamicLog: add support for UTF-8 locales when compiled with XFT or UFT-8 support
darcs-hash:20080313102643-32816-e74a67dc512a001a766aa955f9a25915354c6e1e.gz
-rw-r--r--XMonad/Hooks/DynamicLog.hs4
1 files changed, 1 insertions, 3 deletions
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index ef4cfd8..bba09e4 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -58,8 +58,6 @@ import System.IO
import XMonad.Util.WorkspaceCompare
import XMonad.Util.NamedWindows
import XMonad.Util.Run
-
-import XMonad.Layout.LayoutModifier
import XMonad.Hooks.UrgencyHook
import XMonad.Hooks.ManageDocks
@@ -221,7 +219,7 @@ dynamicLogString pp = do
let ws = pprWindowSet sort' urgents pp winset
-- window title
- wt <- maybe (return "") (fmap show . getName) . S.peek $ winset
+ wt <- maybe (return "") (fmap (encodeOutput . show) . getName) . S.peek $ winset
-- run extra loggers, ignoring any that generate errors.
extras <- sequence $ map (flip catchX (return Nothing)) $ ppExtras pp