[XMonad] Tweaks

This commit is contained in:
Ivan Malison 2022-01-27 21:45:58 -07:00
parent 9956590b4a
commit c8a6045954
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
3 changed files with 4 additions and 3 deletions

@ -1 +1 @@
Subproject commit 33a86c0cdb9aa481e23cc5527a997adef5e32d42 Subproject commit a4fbe5a5557a51cb52a14593b0ca78154b086f91

@ -1 +1 @@
Subproject commit 98ef7dda40f39fd50f1a2e4539798e6e5dec0417 Subproject commit fab8e2de73470b29e8d700f0820d44e397126521

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