diff options
| author | azahi <azahi@teknik.io> | 2018-10-08 21:18:13 +0300 |
|---|---|---|
| committer | azahi <azahi@teknik.io> | 2018-10-08 21:18:13 +0300 |
| commit | d7176233da673ea5d92eadcbf52323b5d8419cfd (patch) | |
| tree | f603bee246db9a0ca0d5c89933b34064f76495cf /src/XMonad/Custom/Log.hs | |
| parent | Clean up Actions (diff) | |
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
Diffstat (limited to 'src/XMonad/Custom/Log.hs')
| -rw-r--r-- | src/XMonad/Custom/Log.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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" |