Rework Custom

Change the names of high-order functoins
Remove named keybindings
Add check executable for keybindings
Expand xmonad-ng library
Bump to 0.15.1

1 files changed, 4 insertions, 4 deletions

diff --git a/src/XMonad/Custom/Startup.hs b/src/XMonad/Custom/Startup.hs
index 68b8fd3..3738f6a 100644
--- a/src/XMonad/Custom/Startup.hs
+++ b/src/XMonad/Custom/Startup.hs
@@ -11,12 +11,12 @@
 -----------------------------------------------------------------------------
 
 module XMonad.Custom.Startup
-    ( startupHook'
+    ( startupHook
     ) where
 
 import           Control.Monad
 import           Data.Maybe
-import           XMonad
+import           XMonad                     hiding (startupHook)
 import           XMonad.Hooks.ManageDocks
 import           XMonad.Hooks.SetWMName
 import           XMonad.Util.Cursor
@@ -49,8 +49,8 @@ addEWMHFullscreen = do
     s <- mapM getAtom atomsToFullscreen
     mapM_ addNETSupported s
 
-startupHook' :: X ()
-startupHook' = do
+startupHook :: X ()
+startupHook = do
     spawnNamedPipe "xmobar ~/.xmonad/xmobarrcTop.hs" "xmobarTop"
     spawnNamedPipe "xmobar ~/.xmonad/xmobarrcBot.hs" "xmobarBot"
     docksStartupHook