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/xmonad.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to '.config/XMonad/xmonad.hs')

diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs
index 45e0c25..6286115 100644
--- a/.config/XMonad/xmonad.hs
+++ b/.config/XMonad/xmonad.hs
@@ -1,11 +1,15 @@
+import System.IO
+
 import XMonad
 
 import XMonad.Layout.Fullscreen
 
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.EwmhDesktops
+import XMonad.Hooks.StatusBar.PP
 
 import XMonad.Util.EZConfig
+import XMonad.Util.Run
 
 import Keybindings
 import Defaults
@@ -13,7 +17,7 @@ import Hooks
 
 main :: IO ()
 main = do
-  -- lemonBar <- spawnPipe myLemonbar
+  lemonBar <- spawnPipe myLemonbar
   xmonad $ ewmh $ docks $ fullscreenSupport def {
     focusFollowsMouse  = True
     , borderWidth        = myBorderWidth
@@ -24,7 +28,7 @@ main = do
     , layoutHook         = myLayoutHook
     , startupHook        = myStartupHook
     , manageHook         = myManageHook
-    -- , logHook            = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn lemonBar x}
+    , logHook            = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn lemonBar x}
   }
     `additionalKeys`  myKeybindings
     `additionalKeysP` myKeybindingsP
-- 
cgit v1.2.3