ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ADD stdout to xmobar for workspaces

This commit is contained in:
Nathan Dwarshuis 2020-02-13 19:57:19 -05:00
parent d67b9c202b
commit 2154c36e34
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
xmonad.hs
View File

@ -16,7 +16,7 @@ import XMonad.Actions.CopyWindow
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
import XMonad.Actions.Volume import XMonad.Actions.Volume
-- import XMonad.Config.Desktop -- import XMonad.Config.Desktop
-- import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
-- import XMonad.Layout.IndependentScreens -- import XMonad.Layout.IndependentScreens
@ -37,7 +37,7 @@ import qualified XMonad.StackSet as W
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
main = do main = do
spawn "xmobar" h <- spawnPipe "xmobar"
xmonad xmonad
$ ewmh $ ewmh
$ addDescrKeys' ((myModMask, xK_F1), showKeybindings) myKeys $ addDescrKeys' ((myModMask, xK_F1), showKeybindings) myKeys
@ -48,6 +48,10 @@ main = do
, handleEventHook = docksEventHook <+> handleEventHook def , handleEventHook = docksEventHook <+> handleEventHook def
, startupHook = docksStartupHook <+> startupHook def , startupHook = docksStartupHook <+> startupHook def
, workspaces = myWorkspaces , workspaces = myWorkspaces
, logHook = dynamicLogWithPP $
def { ppOutput = hPutStrLn h
, ppTitle = const ""
, ppLayout = const "" }
} }
-- Start xmonad using the main desktop configuration with a few -- Start xmonad using the main desktop configuration with a few