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 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/XMonad/Custom/Log.hs')

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
+        }
-- 
cgit 1.4.1