From 668b4c7e276b0ee9d643b448539e11629d17f584 Mon Sep 17 00:00:00 2001 From: Hektor Misplon Date: Sat, 24 Sep 2022 16:18:01 +0200 Subject: [PATCH] Add magnifier keybindings --- .xmonad/xmonad.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 92b04f6..c8ea6a0 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -4,6 +4,7 @@ import XMonad.Hooks.ManageDocks import XMonad.Layout.NoBorders (smartBorders) import XMonad.Layout.Magnifier +import qualified XMonad.Layout.Magnifier as Mag (MagnifyMsg (..)) import XMonad.Layout.Spacing import XMonad.Layout.Tabbed (Theme (..), shrinkText, tabbedAlways) @@ -112,8 +113,11 @@ myKeysP = [ , ("M-S-b", spawn "firefox --fullscreen") -- Magnify window using arrow keys - , ("M-", sendMessage MagnifyMore) - , ("M-", sendMessage MagnifyLess) + , ("M-=", sendMessage MagnifyMore >> sendMessage Mag.ToggleOn) + , ("M--", sendMessage MagnifyLess >> sendMessage Mag.ToggleOn) + -- Reset magnification + , ("M-S-=", sendMessage Mag.ToggleOff) + ] -- Keybindings to be removed