diff options
| author | azahi <azahi@teknik.io> | 2018-08-11 03:40:50 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2018-08-11 03:40:50 +0300 |
| commit | cf10110043ffd857fa12e26486dd53a38ff432b6 (patch) | |
| tree | 0a5be1bf26842fe58b36ab1c31544b639620317a /src/XMonad/Custom/Startup.hs | |
| parent | Add XMobar configuration (diff) | |
Minor fixes and code refactoring
Diffstat (limited to '')
| -rw-r--r-- | src/XMonad/Custom/Startup.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/XMonad/Custom/Startup.hs b/src/XMonad/Custom/Startup.hs index f2c0af0..b862b69 100644 --- a/src/XMonad/Custom/Startup.hs +++ b/src/XMonad/Custom/Startup.hs @@ -8,7 +8,7 @@ -- Stability : unstable -- Portability : unportable -- ------------------------------------------------------------------------- +----------------------------------------------------------------------------- module XMonad.Custom.Startup ( startupHook' @@ -41,7 +41,7 @@ addNETSupported x = withDisplay $ \d -> do n <- getAtom "_NET_SUPPORTED" a <- getAtom "ATOM" liftIO $ do - p <- (join . maybeToList) <$> getWindowProperty32 d n r + p <- join . maybeToList <$> getWindowProperty32 d n r when (fromIntegral x `notElem` p) $ changeProperty32 d r n a propModeAppend [fromIntegral x] addEWMHFullscreen :: X () @@ -51,8 +51,8 @@ addEWMHFullscreen = do startupHook' :: X () startupHook' = do - spawnNamedPipe "/usr/bin/xmobar ~/.xmonad/xmobarrcTop.hs" "xmobarTop" - spawnNamedPipe "/usr/bin/xmobar ~/.xmonad/xmobarrcBot.hs" "xmobarBot" + spawnNamedPipe "/usr/bin/xmobar ~/work/xmonad-ng/xmobarrcTop.hs" "xmobarTop" + spawnNamedPipe "/usr/bin/xmobar ~/work/xmonad-ng/xmobarrcBot.hs" "xmobarBot" docksStartupHook addEWMHFullscreen setDefaultCursor xC_left_ptr |