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

Add magnifier keybindings

Browse Source
This commit is contained in:
Hektor Misplon
2022-09-24 16:18:01 +02:00
parent fd15126606
commit 416a8fe570
1 changed files with 6 additions and 2 deletions
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