From cfb5e86f9fd3a61ef49585b06c13fcb774e7bd71 Mon Sep 17 00:00:00 2001 From: Derek Taylor Date: Mon, 17 Oct 2022 15:20:48 -0500 Subject: [PATCH] Minor edits to xmonad. --- .config/xmonad/README.org | 3 ++- .config/xmonad/xmonad.hs | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/.config/xmonad/README.org b/.config/xmonad/README.org index 81fb7ed..60025cb 100644 --- a/.config/xmonad/README.org +++ b/.config/xmonad/README.org @@ -108,6 +108,7 @@ import qualified XMonad.Layout.MultiToggle as MT (Toggle(..)) -- Utilities import XMonad.Util.Dmenu import XMonad.Util.EZConfig (additionalKeysP, mkNamedKeymap) +import XMonad.Util.Hacks (windowedFullscreenFixEventHook, javaHack, trayerAboveXmobarEventHook, trayAbovePanelEventHook, trayerPaddingXmobarEventHook, trayPaddingXmobarEventHook, trayPaddingEventHook) import XMonad.Util.NamedActions import XMonad.Util.NamedScratchpad import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe) @@ -849,7 +850,7 @@ main = do -- the xmonad, ya know...what the WM is named after! xmonad $ addDescrKeys' ((mod4Mask, xK_F1), showKeybindings) myKeys $ ewmh $ docks $ def { manageHook = myManageHook <+> manageDocks - , handleEventHook = swallowEventHook (className =? "Alacritty" <||> className =? "st-256color" <||> className =? "XTerm") (return True) + , handleEventHook = windowedFullscreenFixEventHook <> swallowEventHook (className =? "Alacritty" <||> className =? "st-256color" <||> className =? "XTerm") (return True) <> trayerPaddingXmobarEventHook , modMask = myModMask , terminal = myTerminal , startupHook = myStartupHook diff --git a/.config/xmonad/xmonad.hs b/.config/xmonad/xmonad.hs index 6ef6761..e754634 100644 --- a/.config/xmonad/xmonad.hs +++ b/.config/xmonad/xmonad.hs @@ -62,9 +62,9 @@ import qualified XMonad.Layout.ToggleLayouts as T (toggleLayouts, ToggleLayout(T import qualified XMonad.Layout.MultiToggle as MT (Toggle(..)) -- Utilities -import XMonad.Util.Hacks (windowedFullscreenFixEventHook, javaHack, trayerAboveXmobarEventHook, trayAbovePanelEventHook, trayerPaddingXmobarEventHook, trayPaddingXmobarEventHook, trayPaddingEventHook) import XMonad.Util.Dmenu import XMonad.Util.EZConfig (additionalKeysP, mkNamedKeymap) +import XMonad.Util.Hacks (windowedFullscreenFixEventHook, javaHack, trayerAboveXmobarEventHook, trayAbovePanelEventHook, trayerPaddingXmobarEventHook, trayPaddingXmobarEventHook, trayPaddingEventHook) import XMonad.Util.NamedActions import XMonad.Util.NamedScratchpad import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe) @@ -698,7 +698,7 @@ main = do -- the xmonad, ya know...what the WM is named after! xmonad $ addDescrKeys' ((mod4Mask, xK_F1), showKeybindings) myKeys $ ewmh $ docks $ def { manageHook = myManageHook <+> manageDocks - , handleEventHook = windowedFullscreenFixEventHook <> swallowEventHook (className =? "Alacritty" <||> className =? "st-256color" <||> className =? "XTerm") (return True) <> trayerPaddingXmobarEventHook + , handleEventHook = windowedFullscreenFixEventHook <> swallowEventHook (className =? "Alacritty" <||> className =? "st-256color" <||> className =? "XTerm") (return True) <> trayerPaddingXmobarEventHook , modMask = myModMask , terminal = myTerminal , startupHook = myStartupHook