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/Log.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/XMonad/Custom/Log.hs') diff --git a/src/XMonad/Custom/Log.hs b/src/XMonad/Custom/Log.hs index 4102f6f..461634e 100644 --- a/src/XMonad/Custom/Log.hs +++ b/src/XMonad/Custom/Log.hs @@ -16,11 +16,11 @@ ----------------------------------------------------------------------------- module XMonad.Custom.Log - ( logHook' + ( logHook ) where import System.IO -import XMonad +import XMonad hiding (logHook) import XMonad.Actions.CopyWindow import XMonad.Custom.Theme import XMonad.Hooks.CurrentWorkspaceOnTop @@ -66,8 +66,8 @@ botBarPP = topBarPP safePrintToPipe :: Maybe Handle -> String -> IO () safePrintToPipe = maybe (\_ -> return ()) hPutStrLn -logHook' :: X () -logHook' = do +logHook :: X () +logHook = do currentWorkspaceOnTop ewmhDesktopsLogHook t <- getNamedPipe "xmobarTop" -- cgit 1.4.1