refactor: remove deprecated xmonad library

This commit is contained in:
Max Hohlfeld 2024-03-16 21:30:41 +01:00
parent 04a8f1fd14
commit 7ddf3da777

View File

@ -35,7 +35,7 @@ import XMonad.Prompt.FuzzyMatch
import XMonad.Prompt.Shell import XMonad.Prompt.Shell
import XMonad.Prompt.Workspace import XMonad.Prompt.Workspace
import XMonad.Hooks.WorkspaceHistory (workspaceHistoryHook) import XMonad.Hooks.WorkspaceHistory (workspaceHistoryHook)
import XMonad.Hooks.DynamicProperty import XMonad.Hooks.OnPropertyChange
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import qualified Data.Map as M import qualified Data.Map as M
import Text.Regex.Posix import Text.Regex.Posix
@ -177,7 +177,7 @@ myAdditionalKeys =
-- open terminal -- open terminal
, ("M-S-<Return>", spawnShell) , ("M-S-<Return>", spawnShell)
, ("M-b", spawn "firefox") , ("M-b", spawn "librewolf")
-- layout -- layout
, ("M-t t", switchToLayout "Tall") , ("M-t t", switchToLayout "Tall")
@ -250,7 +250,7 @@ myManageHook = composeAll . concat $
-- return (All True) if the default handler is to be run afterwards. To -- return (All True) if the default handler is to be run afterwards. To
-- combine event hooks use mappend or mconcat from Data.Monoid. -- combine event hooks use mappend or mconcat from Data.Monoid.
-- --
myEventHook = dynamicPropertyChange "WM_NAME" (title =? "Database.kdbx - KeePassXC" <||> title =? "Database.kdbx [Gesperrt] - KeePassXC" --> floating) myEventHook = onXPropertyChange "WM_NAME" (title =? "Database.kdbx - KeePassXC" <||> title =? "Database.kdbx [Gesperrt] - KeePassXC" --> floating)
where floating = customFloating $ W.RationalRect (1/8) (1/8) (3/4) (3/4) where floating = customFloating $ W.RationalRect (1/8) (1/8) (3/4) (3/4)
------------------------------------------------------------------------ ------------------------------------------------------------------------