diff options
| author | Vidhu Kant Sharma <vidhukant@protonmail.ch> | 2022-05-21 03:57:45 +0530 |
|---|---|---|
| committer | Vidhu Kant Sharma <vidhukant@protonmail.ch> | 2022-05-21 03:57:45 +0530 |
| commit | b914af343344e9e8301008aa62e48c6fc534db80 (patch) | |
| tree | 50a733a7cdaa98c464da0e54ca6cabe5d392bd58 /.config/XMonad/lib/Hooks.hs | |
| parent | adb06a286531abbf556432699832a9198b99e4e9 (diff) | |
somehow got lemonbar to at least work
Diffstat (limited to '.config/XMonad/lib/Hooks.hs')
| -rw-r--r-- | .config/XMonad/lib/Hooks.hs | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/.config/XMonad/lib/Hooks.hs b/.config/XMonad/lib/Hooks.hs index 45eb6e0..99bb530 100644 --- a/.config/XMonad/lib/Hooks.hs +++ b/.config/XMonad/lib/Hooks.hs @@ -13,6 +13,8 @@ import XMonad.Layout.Tabbed import XMonad.Hooks.SetWMName import XMonad.Hooks.ManageDocks +import XMonad.Hooks.ManageHelpers +import XMonad.Hooks.StatusBar.PP import XMonad.Util.SpawnOnce import XMonad.Util.Cursor @@ -21,10 +23,23 @@ import XMonad.Util.NamedScratchpad import Defaults import Scratchpads +myLemonbarPP = def { + ppCurrent = wrap ("%{B" ++ wsVisibleOccupiedBG ++ "}%{F" ++ wsVisibleOccupiedFG ++ "} ") " %{B-}%{F-}" + -- , ppVisibleNoWindows = wrap ("%{B" ++ wsVisibleBG ++ "}%{F" ++ wsVisibleFG ++ "} ") " %{B-}%{F-}" + -- , ppVisibleNoWindows = wrap "" "" + -- , ppVisible = wrap ("%{B" ++ wsVisibleBG ++ "}%{F" ++ wsVisibleFG ++ "} ") " %{B-}%{F-}" + , ppHidden = wrap ("%{B" ++ wsOccupiedBG ++ "}%{F" ++ wsOccupiedFG ++ "} ") " %{B-}%{F-}" + , ppHiddenNoWindows = wrap ("%{B" ++ wsEmptyBG ++ "}%{F" ++ wsEmptyFG ++ "} ") " %{B-}%{F-}" + , ppTitle = wrap ("%{B" ++ titleBG ++ "}%{F" ++ titleFG ++ "} ") " %{B-}%{F-}" + , ppWsSep = "" + , ppSep = "" + , ppOrder = \(ws:_:t:_) -> ["%{l}"++t++"","%{r}"++ws++""] + } + myManageHook = namedScratchpadManageHook myScratchpads <+> manageDocks <+> composeAll [ className =? "discord" --> doShift ( myWorkspaces !! 9 ) - , className =? "vlc" --> doShift ( myWorkspaces !! 6 ) + , isFullscreen --> doFullFloat ] myLayoutHook = avoidStruts $ maximize $ windowNavigation $ smartBorders $ myGap $ @@ -39,3 +54,4 @@ myStartupHook = do spawnOnce "cbatticon" setWMName "LG3D" setDefaultCursor xC_left_ptr + |