From 425a965910949349a813afce86e753c5fc00ee51 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <vidhukant@vidhukant.xyz>
Date: Fri, 9 Sep 2022 00:04:28 +0530
Subject: moved workspace info to lemonbar as polybar was kinda broken

---
 .config/XMonad/lib/Defaults.hs | 17 ++++++++++++++++-
 .config/XMonad/xmonad.hs       |  5 ++++-
 2 files changed, 20 insertions(+), 2 deletions(-)

(limited to '.config/XMonad')

diff --git a/.config/XMonad/lib/Defaults.hs b/.config/XMonad/lib/Defaults.hs
index e132b09..e4b40eb 100644
--- a/.config/XMonad/lib/Defaults.hs
+++ b/.config/XMonad/lib/Defaults.hs
@@ -6,7 +6,8 @@ import XMonad.Layout.Tabbed
 import XMonad.Actions.GridSelect
 import XMonad.Util.Loggers
 
-
+import XMonad.Hooks.StatusBar
+import XMonad.Hooks.StatusBar.PP
 myBorder          = "#120F23"
 myBorder'         = "#C44CF2"
 
@@ -96,3 +97,17 @@ myGSConfig colorizer = (buildDefaultGSConfig myGSColorizer)
   }
 
 myGridSelect = myGSConfig myGSColorizer
+
+myLemonbarCmd = "lemonbar -g 445x28+1475+0 -f 'SauceCodePro:style=Regular:size=11' -f 'Source Han Sans JP Normal:size=11' -B '#e6100b13' -F '#9d00ff'"
+
+myLemonbarPP = def {
+  -- wrap "%{B#}  %{F#}" "  %{F-}%{B-}"
+  ppCurrent            = wrap "%{B#ff0aa3}   %{F#FFFFFF}" "   %{F-}%{B-}"
+  , ppVisible          = wrap "%{B#83ddc3}   %{F#FFFFFF}" "   %{F-}%{B-}"
+  , ppHidden           = wrap "%{B#9b1bed}   %{F#FFFFFF}" "   %{F-}%{B-}"
+  , ppHiddenNoWindows  = wrap "   " "   "
+  --, ppVisibleNoWindows = wrap "%{B#ffffff}  %{F#9b1bed}" "  %{F-}%{B-}"
+  , ppWsSep            = ""
+  , ppSep              = ""
+  , ppOrder  = \(ws:l:t:ex) -> [ws]++[]++[]++ex
+  }
diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs
index ad75f9d..3b1c995 100644
--- a/.config/XMonad/xmonad.hs
+++ b/.config/XMonad/xmonad.hs
@@ -8,13 +8,16 @@ import XMonad.Hooks.EwmhDesktops
 import XMonad.Util.EZConfig
 import XMonad.Util.Run
 
+import XMonad.Hooks.StatusBar
+
 import Keybindings
 import Defaults
 import Hooks
 
 main :: IO ()
 main = do
-  xmonad $ ewmhFullscreen $ ewmh $ docks def {
+  myLemonbar <- statusBarPipe myLemonbarCmd (pure myLemonbarPP)
+  xmonad $ withSB myLemonbar $ ewmhFullscreen $ ewmh $ docks def {
     focusFollowsMouse    = True
     , terminal           = myTerminal
     , borderWidth        = myBorderWidth
-- 
cgit v1.2.3