From d7176233da673ea5d92eadcbf52323b5d8419cfd Mon Sep 17 00:00:00 2001 From: azahi Date: Mon, 8 Oct 2018 21:18:13 +0300 Subject: 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 --- 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 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 -- cgit 1.4.1