diff options
| author | azahi <azahi@teknik.io> | 2018-10-03 14:30:31 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2018-10-03 14:30:31 +0300 |
| commit | 7e19bd16b48bd009a3b4d0f029c445bb49d95615 (patch) | |
| tree | ff4fc89baaef3a684294463e18569fd56996f3bd /src/XMonad/Custom/Log.hs | |
| parent | Release 0.2.1.1 (diff) | |
Move to 0.15
Fix windows not showing with fullscreen hooks Add misc directory with stuff that should be moved to ~/.xmonad Switch indentation style Add submodules
Diffstat (limited to '')
| -rw-r--r-- | src/XMonad/Custom/Log.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/XMonad/Custom/Log.hs b/src/XMonad/Custom/Log.hs index 1bf05f1..4102f6f 100644 --- a/src/XMonad/Custom/Log.hs +++ b/src/XMonad/Custom/Log.hs @@ -1,3 +1,5 @@ +{-# LANGUAGE LambdaCase #-} + ----------------------------------------------------------------------------- -- | -- Module : XMonad.Custom.Log @@ -42,10 +44,9 @@ topBarPP = def , ppWsSep = " " , ppTitle = xmobarColor white1 "" . shorten 50 , ppTitleSanitize = xmobarStrip - , ppLayout = xmobarColor white1 "" . \x -> case x of -- TODO Generalize string conversion - "Spacing 12 Tabbed Hidden BSP" -> "Omni.Gaps" - "Tabbed Hidden BSP" -> "Omni" - _ -> "Misc" + , ppLayout = xmobarColor white1 "" . \case "Spacing 12 Tabbed Hidden BSP" -> "Omni.Gaps" + "Tabbed Hidden BSP" -> "Omni" + _ -> "Misc" , ppOrder = id , ppSort = (namedScratchpadFilterOutWorkspace .) <$> getSortByIndex , ppExtras = [] |