diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-03-13 11:26:43 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-03-13 11:26:43 +0100 |
| commit | ff9990faf84840ffea4289e7c3edcc3b4065307b (patch) | |
| tree | 1431991fabd0ec5120153a4a403fe77475d5896a /XMonad/Hooks/DynamicLog.hs | |
| parent | b7d880c5a784fe0429996e290de7d6903608a298 (diff) | |
| download | XMonadContrib-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
Diffstat (limited to 'XMonad/Hooks/DynamicLog.hs')
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 4 |
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 |