diff options
| -rw-r--r-- | xmonad.hs | 15 |
1 files changed, 9 insertions, 6 deletions
@@ -227,23 +227,26 @@ mHook = MH.composeOne dlgs <+> composeAll (emf:cl) simplePP = SBP.def { SBP.ppLayout = const "" , SBP.ppHidden = const "" - , SBP.ppCurrent = SBP.xmobarColor "orangered4" "" - , SBP.ppTitle = take 25 + , SBP.ppCurrent = SBP.xmobarColor "gray40" "" + , SBP.ppTitle = ellipsis 25 , SBP.ppSep = " " , SBP.ppUrgent = const (SBP.xmobarColor "orangered3" "" "*") } + where ellipsis n s | length s > n = take (n - 3) s ++ " ..." + | otherwise = s + main = do scheme <- lookupEnv "JAO_COLOR_SCHEME" let dark = Just "dark" == scheme popCfg = if dark then darkPopConfig else lightPopConfig - defBorder = if dark then "grey80" else "grey70" - defFBorder = if dark then "grey85" else "grey20" + defBorder = if dark then "grey30" else "grey95" + defFBorder = if dark then "grey35" else "grey95" ehook = SM.serverModeEventHook <+> UH.trayerPaddingXmobarEventHook lyt = NB.smartBorders layouts localStartupHook = spawn "xmobars.sh" >> runOrRaiseEmacs - sb = SB.statusBarProp "xmobar" (pure simplePP) + sb = SB.withSB $ SB.statusBarProp "xmobar" (pure simplePP) uhook = U.withUrgencyHook U.NoUrgencyHook - xmonad . uhook . (SB.withSB sb) . MD.docks . Ewm.ewmh $ def { + xmonad . uhook . sb . MD.docks . Ewm.ewmh $ def { manageHook = scratchpad <+> mHook <+> manageHook def , handleEventHook = ehook , layoutHook = MD.avoidStruts lyt |