about summary refs log tree commit diff
path: root/src
diff options
context:
space:
mode:
authorAzat Bahawi <azahi@teknik.io>2020-02-19 20:57:30 +0300
committerAzat Bahawi <azahi@teknik.io>2020-02-19 20:57:30 +0300
commit277837c7eeec53aa973ad437a1b3575b3a693092 (patch)
tree1dd47e23d9da5837417ae22be1631d878caad8b4 /src
parentUpdate upstream, remove junk from xmobar (diff)
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).
Diffstat (limited to 'src')
-rw-r--r--src/XMonad/Custom/Log.hs4
-rw-r--r--src/XMonad/Custom/Startup.hs3
2 files changed, 2 insertions, 5 deletions
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
-        }
diff --git a/src/XMonad/Custom/Startup.hs b/src/XMonad/Custom/Startup.hs
index aa9340f..85d52ad 100644
--- a/src/XMonad/Custom/Startup.hs
+++ b/src/XMonad/Custom/Startup.hs
@@ -18,6 +18,7 @@ import           XMonad.Hooks.ManageDocks
 import           XMonad.Hooks.SetWMName
 import           XMonad.Util.Cursor
 import           XMonad.Util.SpawnNamedPipe
+import           XMonad.Util.SpawnOnce
 
 atomsToFullscreen :: [String]
 atomsToFullscreen =
@@ -49,7 +50,7 @@ addEWMHFullscreen = do
 startupHook :: X ()
 startupHook = do
     spawnNamedPipe "xmobar ~/.xmonad/xmobarrc/top.hs" "xmobarTop"
-    spawnNamedPipe "xmobar ~/.xmonad/xmobarrc/bot.hs" "xmobarBot"
+    spawnOnce "xmobar ~/.xmonad/xmobarrc/bot.hs"
     docksStartupHook
     addEWMHFullscreen
     setDefaultCursor xC_left_ptr

Consider giving Nix/NixOS a try! <3