diff options
| author | Anders Engstrom <ankaan@gmail.com> | 2009-11-15 14:07:07 +0100 |
|---|---|---|
| committer | Anders Engstrom <ankaan@gmail.com> | 2009-11-15 14:07:07 +0100 |
| commit | bef594c93f7a5fee333b202c2cc1c6748c677b4a (patch) | |
| tree | 47fd9290c09e0493968e32adb23cc3e5e87262e9 /XMonad/Hooks | |
| parent | fb4befe3374159197c2b8196e77c470a4a0e6a7e (diff) | |
| download | XMonadContrib-bef594c93f7a5fee333b202c2cc1c6748c677b4a.tar.gz XMonadContrib-bef594c93f7a5fee333b202c2cc1c6748c677b4a.tar.xz XMonadContrib-bef594c93f7a5fee333b202c2cc1c6748c677b4a.zip | |
X.H.DynamicLog fix minor indentation oddness
Ignore-this: 7f2c49eae5527874ca4499767f4167c4
darcs-hash:20091115130707-8978f-fc8f41e624d9c8ab5ec2a06a89429ab9612c31aa.gz
Diffstat (limited to 'XMonad/Hooks')
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs index e7baee5..0c82d2e 100644 --- a/XMonad/Hooks/DynamicLog.hs +++ b/XMonad/Hooks/DynamicLog.hs @@ -463,21 +463,21 @@ defaultPP = PP { ppCurrent = wrap "[" "]" -- | Settings to emulate dwm's statusbar, dzen only. dzenPP :: PP dzenPP = defaultPP { ppCurrent = dzenColor "white" "#2b4f98" . pad - , ppVisible = dzenColor "black" "#999999" . pad - , ppHidden = dzenColor "black" "#cccccc" . pad - , ppHiddenNoWindows = const "" - , ppUrgent = dzenColor "red" "yellow" . pad - , ppWsSep = "" - , ppSep = "" - , ppLayout = dzenColor "black" "#cccccc" . - (\ x -> case x of - "TilePrime Horizontal" -> " TTT " - "TilePrime Vertical" -> " []= " - "Hinted Full" -> " [ ] " - _ -> pad x - ) - , ppTitle = ("^bg(#324c80) " ++) . dzenEscape - } + , ppVisible = dzenColor "black" "#999999" . pad + , ppHidden = dzenColor "black" "#cccccc" . pad + , ppHiddenNoWindows = const "" + , ppUrgent = dzenColor "red" "yellow" . pad + , ppWsSep = "" + , ppSep = "" + , ppLayout = dzenColor "black" "#cccccc" . + (\ x -> case x of + "TilePrime Horizontal" -> " TTT " + "TilePrime Vertical" -> " []= " + "Hinted Full" -> " [ ] " + _ -> pad x + ) + , ppTitle = ("^bg(#324c80) " ++) . dzenEscape + } -- | Some nice xmobar defaults. xmobarPP :: PP |