diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-17 22:29:53 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-17 22:29:53 +0200 |
| commit | 0086b0439b4d0c484a61c889216d7c88c04638fe (patch) | |
| tree | b0e67036b1baecb970759b65558ebcc227fb8e27 | |
| parent | ca073e31c40e2ef5b1495b4f968574287120a432 (diff) | |
| download | XMonadContrib-0086b0439b4d0c484a61c889216d7c88c04638fe.tar.gz XMonadContrib-0086b0439b4d0c484a61c889216d7c88c04638fe.tar.xz XMonadContrib-0086b0439b4d0c484a61c889216d7c88c04638fe.zip | |
Don't toLower the layout description.
If we'd really like lower case layout descriptions, the 'description' method
in the LayoutClass instances should be changed instead.
darcs-hash:20071017202953-a5988-ba32d2aa4e9dbbfe9d93e8e35545ffc5004a4de9.gz
| -rw-r--r-- | DynamicLog.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/DynamicLog.hs b/DynamicLog.hs index 698feb9..3c06881 100644 --- a/DynamicLog.hs +++ b/DynamicLog.hs @@ -42,7 +42,6 @@ import Data.Ord ( comparing ) import qualified StackSet as S import Data.Monoid import XMonadContrib.NamedWindows -import Data.Char -- $usage -- @@ -87,7 +86,7 @@ dynamicLog :: X () dynamicLog = withWindowSet $ \ws -> do let ld = description . S.layout . S.workspace . S.current $ ws wn = pprWindowSet ws - io . putStrLn $ concat [wn ," : " ,map toLower ld] + io . putStrLn $ concat [wn ," : " ,ld] -- | Appends title of currently focused window to log output, and the -- current layout mode, to the normal dynamic log format. |