Initial commit

src/XMonad/XMobar.hs

@@ -0,0 +1,35 @@
+module XMonad.XMobar (zenburnPP) where
+
+-- import XMonad.Util.Loggers
+import XMonad.Hooks.DynamicLog (
+    PP(..)
+  , xmobarColor
+  , shorten
+  , xmobarPP
+  , dzenStrip)
+
+
+myUrgencyHintFgColor :: String
+myUrgencyHintFgColor = "#333333"
+
+myUrgencyHintBgColor :: String
+myUrgencyHintBgColor = "#F18C96"
+
+
+-- Xmobar pretty printer. Color scheme zenburn
+zenburnPP :: PP
+zenburnPP = xmobarPP {
+      ppTitle = xmobarColor "#DCA3A3" "" . shorten 70
+    , ppCurrent = xmobarColor "#CEFFAC" ""
+    , ppHidden = const ""
+    , ppSep = " | "
+    , ppLayout = id
+    , ppUrgent = xmobarColor myUrgencyHintFgColor myUrgencyHintBgColor . dzenStrip
+    , ppOrder = \(ws:_layout:_title:_) -> [ws]
+    , ppExtras = []
+  }
+
+-- xmobar :: IO (X ())
+-- xmobar = do
+--   xmproc <- spawnPipe "xmobar ~/.xmonad/xmobar"
+--   return $ dynamicLogWithPP $ zenburnPP xmproc