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/Startup.hs | |
| 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/Startup.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |