[XMonad] Tweaks

This commit is contained in:
2022-01-27 21:45:58 -07:00
parent 9956590b4a
commit c8a6045954
3 changed files with 4 additions and 3 deletions

View File

@@ -57,6 +57,7 @@ import XMonad.Core (getDirectories)
import XMonad.Hooks.DynamicProperty import XMonad.Hooks.DynamicProperty
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.FadeInactive import XMonad.Hooks.FadeInactive
import XMonad.Hooks.Focus hiding (currentWorkspace)
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.Minimize import XMonad.Hooks.Minimize
@@ -105,7 +106,6 @@ myConfig = def
<> toggleFadeInactiveLogHook 0.9 <> toggleFadeInactiveLogHook 0.9
<> workspaceHistoryHook <> workspaceHistoryHook
<> setWorkspaceNames <> setWorkspaceNames
<> activateLogHook (reader W.focusWindow >>= doF)
<> logHook def <> logHook def
, handleEventHook , handleEventHook
= followIfNoMagicFocus = followIfNoMagicFocus
@@ -141,6 +141,7 @@ main =
xmonad xmonad
. docks . docks
. pagerHints . pagerHints
. setEwmhActivateHook activateSwitchWs
. ewmh . ewmh
. ewmhFullscreen . ewmhFullscreen
. withNavigation2DConfig myNavigation2DConfig $ myConfig . withNavigation2DConfig myNavigation2DConfig $ myConfig