From b914af343344e9e8301008aa62e48c6fc534db80 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <vidhukant@protonmail.ch>
Date: Sat, 21 May 2022 03:57:45 +0530
Subject: somehow got lemonbar to at least work

---
 .config/XMonad/lib/Hooks.hs | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

(limited to '.config/XMonad/lib/Hooks.hs')

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
+
-- 
cgit v1.2.3