hektor
/
dots
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add magnifier keybindings

master
Hektor Misplon 2022-09-24 16:18:01 +02:00
parent ba751e369f
commit 668b4c7e27
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
.xmonad/xmonad.hs
View File

@ -4,6 +4,7 @@ import XMonad.Hooks.ManageDocks
import XMonad.Layout.NoBorders (smartBorders) import XMonad.Layout.NoBorders (smartBorders)
import XMonad.Layout.Magnifier import XMonad.Layout.Magnifier
import qualified XMonad.Layout.Magnifier as Mag (MagnifyMsg (..))
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.Layout.Tabbed (Theme (..), shrinkText, import XMonad.Layout.Tabbed (Theme (..), shrinkText,
tabbedAlways) tabbedAlways)
@ -112,8 +113,11 @@ myKeysP = [
, ("M-S-b", spawn "firefox --fullscreen") , ("M-S-b", spawn "firefox --fullscreen")
-- Magnify window using arrow keys -- Magnify window using arrow keys
, ("M-<Up>", sendMessage MagnifyMore) , ("M-=", sendMessage MagnifyMore >> sendMessage Mag.ToggleOn)
, ("M-<Down>", sendMessage MagnifyLess) , ("M--", sendMessage MagnifyLess >> sendMessage Mag.ToggleOn)
-- Reset magnification
, ("M-S-=", sendMessage Mag.ToggleOff)
] ]
-- Keybindings to be removed -- Keybindings to be removed