From 277837c7eeec53aa973ad437a1b3575b3a693092 Mon Sep 17 00:00:00 2001
From: Azat Bahawi <azahi@teknik.io>
Date: Wed, 19 Feb 2020 20:57:30 +0300
Subject: Fix xmobar overlap error

Fix xmobar's issue with not restarting itself if the process is not strictly
bound to XMonad with StdinReader. Now we will only launch the bottom bar once
(on initial startup).
---
 src/XMonad/Custom/Log.hs | 4 ----
 1 file changed, 4 deletions(-)

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

diff --git a/src/XMonad/Custom/Log.hs b/src/XMonad/Custom/Log.hs
index b10fcdf..34934d9 100644
--- a/src/XMonad/Custom/Log.hs
+++ b/src/XMonad/Custom/Log.hs
@@ -61,7 +61,6 @@ 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
@@ -75,6 +74,3 @@ logHook = do
         , ppUrgent  = copiesUrgent
         , ppOutput  = safePrintToPipe t
         }
-    dynamicLogWithPP $ botBarPP
-        { ppOutput  = safePrintToPipe b
-        }
-- 
cgit 1.4.1