aboutsummaryrefslogtreecommitdiff
path: root/.config/XMonad/xmonad.hs
diff options
context:
space:
mode:
authorVidhu Kant Sharma <vidhukant@protonmail.ch>2022-05-21 03:57:45 +0530
committerVidhu Kant Sharma <vidhukant@protonmail.ch>2022-05-21 03:57:45 +0530
commitb914af343344e9e8301008aa62e48c6fc534db80 (patch)
tree50a733a7cdaa98c464da0e54ca6cabe5d392bd58 /.config/XMonad/xmonad.hs
parentadb06a286531abbf556432699832a9198b99e4e9 (diff)
somehow got lemonbar to at least work
Diffstat (limited to '.config/XMonad/xmonad.hs')
-rw-r--r--.config/XMonad/xmonad.hs8
1 files changed, 6 insertions, 2 deletions
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