From cf10110043ffd857fa12e26486dd53a38ff432b6 Mon Sep 17 00:00:00 2001
From: azahi <azahi@teknik.io>
Date: Sat, 11 Aug 2018 03:40:50 +0300
Subject: Minor fixes and code refactoring

---
 src/XMonad/Custom/Startup.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/XMonad/Custom/Startup.hs')

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
-- 
cgit 1.4.1