From 2154c36e34e7084ec65f4dd7f2759fee838aaa00 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Thu, 13 Feb 2020 19:57:19 -0500
Subject: [PATCH] ADD stdout to xmobar for workspaces

---
 xmonad.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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