diff options
Diffstat (limited to 'src/XMonad/Custom/Startup.hs')
| -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 |