From ff9990faf84840ffea4289e7c3edcc3b4065307b Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 13 Mar 2008 11:26:43 +0100 Subject: DynamicLog: add support for UTF-8 locales when compiled with XFT or UFT-8 support darcs-hash:20080313102643-32816-e74a67dc512a001a766aa955f9a25915354c6e1e.gz --- XMonad/Hooks/DynamicLog.hs | 4 +--- 1 file changed, 1 insertion(+), 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 -- cgit v1.2.3