From b0e3b4402bb46f8fad14f6c06106677968d28554 Mon Sep 17 00:00:00 2001
From: Azat Bahawi <azahi@teknik.io>
Date: Sun, 26 Jul 2020 16:57:46 +0300
Subject: Revert xmobar behaviour

---
 src/XMonad/Custom/Log.hs     | 4 ++++
 src/XMonad/Custom/Startup.hs | 3 +--
 2 files changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/XMonad/Custom')

diff --git a/src/XMonad/Custom/Log.hs b/src/XMonad/Custom/Log.hs
index 34934d9..b10fcdf 100644
--- a/src/XMonad/Custom/Log.hs
+++ b/src/XMonad/Custom/Log.hs
@@ -61,6 +61,7 @@ logHook = do
     currentWorkspaceOnTop
     ewmhDesktopsLogHook
     t <- getNamedPipe "xmobarTop"
+    b <- getNamedPipe "xmobarBot"
     c <- wsContainingCopies
     let copiesCurrent ws | ws `elem` c = xmobarColor yellow2 "" . xmobarFont 2 . wrap "*" "=" $ ws
                          | otherwise   = xmobarColor white2  "" . xmobarFont 2 . wrap "=" "=" $ ws
@@ -74,3 +75,6 @@ logHook = do
         , ppUrgent  = copiesUrgent
         , ppOutput  = safePrintToPipe t
         }
+    dynamicLogWithPP $ botBarPP
+        { ppOutput  = safePrintToPipe b
+        }
diff --git a/src/XMonad/Custom/Startup.hs b/src/XMonad/Custom/Startup.hs
index 85d52ad..aa9340f 100644
--- a/src/XMonad/Custom/Startup.hs
+++ b/src/XMonad/Custom/Startup.hs
@@ -18,7 +18,6 @@ import           XMonad.Hooks.ManageDocks
 import           XMonad.Hooks.SetWMName
 import           XMonad.Util.Cursor
 import           XMonad.Util.SpawnNamedPipe
-import           XMonad.Util.SpawnOnce
 
 atomsToFullscreen :: [String]
 atomsToFullscreen =
@@ -50,7 +49,7 @@ addEWMHFullscreen = do
 startupHook :: X ()
 startupHook = do
     spawnNamedPipe "xmobar ~/.xmonad/xmobarrc/top.hs" "xmobarTop"
-    spawnOnce "xmobar ~/.xmonad/xmobarrc/bot.hs"
+    spawnNamedPipe "xmobar ~/.xmonad/xmobarrc/bot.hs" "xmobarBot"
     docksStartupHook
     addEWMHFullscreen
     setDefaultCursor xC_left_ptr
-- 
cgit 1.4.1