diff options
| author | Azat Bahawi <azahi@teknik.io> | 2020-02-19 20:57:30 +0300 |
|---|---|---|
| committer | Azat Bahawi <azahi@teknik.io> | 2020-02-19 20:57:30 +0300 |
| commit | 277837c7eeec53aa973ad437a1b3575b3a693092 (patch) | |
| tree | 1dd47e23d9da5837417ae22be1631d878caad8b4 /src/XMonad/Custom | |
| parent | Update 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 '')
| -rw-r--r-- | src/XMonad/Custom/Log.hs | 4 | ||||
| -rw-r--r-- | src/XMonad/Custom/Startup.hs | 3 |
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 |