jasmine/xmonad-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

chore: fix keybinds

Browse source
This commit is contained in:
♥ Minnie ♥ 2025-05-10 08:50:45 +08:00
parent 2e94d2bf96
commit 7df3b6bfa4
Signed by: jasmine
GPG key ID: 8563E358D4E8040E
1 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/xmonad.hs
View file

@ -13,7 +13,7 @@ import XMonad.Layout.NoBorders
import XMonad.Layout.Renamed
import XMonad.Layout.Spacing
import XMonad.StackSet qualified as W
import XMonad.Util.EZConfig (additionalKeysP)
import XMonad.Util.EZConfig
import XMonad.Util.Loggers
import Graphics.X11.ExtraTypes.XF86
@ -32,6 +32,7 @@ main = xmonad
. ewmhFullscreen
. ewmh
. withNavigation2DConfig def
. modal [editMode]
. withSB myXmobar
$ myConfig
@ -80,30 +81,30 @@ myKeybindings =
, ("M-a s s", spawn myScrot )
-- kill/exit
, ("M-a c", kill )
, ("M-a q", io exitSuccess)
, ("M-a s c", kill )
, ("M-a s q", io exitSuccess)
-- directional navigation of windows
, ("M-a o", windowGo U False)
, ("M-a n", windowGo L False)
, ("M-a e", windowGo D False)
, ("M-a i", windowGo R False)
, ("M-a g o", windowGo U False)
, ("M-a g n", windowGo L False)
, ("M-a g e", windowGo D False)
, ("M-a g i", windowGo R False)
-- switch workspaces
, ("M-a j", windows $ W.greedyView "code" )
, ("M-a v", windows $ W.greedyView "chat" )
, ("M-a d", windows $ W.greedyView "web" )
, ("M-a r", windows $ W.greedyView "games")
, ("M-a s", windows $ W.greedyView "misc" )
, ("M-a g j", windows $ W.greedyView "code" )
, ("M-a g v", windows $ W.greedyView "chat" )
, ("M-a g d", windows $ W.greedyView "web" )
, ("M-a g r", windows $ W.greedyView "games")
, ("M-a g s", windows $ W.greedyView "misc" )
-- focus master window
, ("M-a <Space>", windows W.focusMaster)
, ("M-a g m", windows W.focusMaster)
-- toggling layouts
, ("M-a t", sendMessage $ JumpToLayout "dynamic tiling" )
, ("M-a b", sendMessage $ JumpToLayout "binary space partition")
, ("M-a m", sendMessage $ JumpToLayout "maximised" )
, ("M-a f", sendMessage $ JumpToLayout "fullscreen" )
, ("M-a j t", sendMessage $ JumpToLayout "dynamic tiling" )
, ("M-a j b", sendMessage $ JumpToLayout "binary space partition")
, ("M-a j m", sendMessage $ JumpToLayout "maximised" )
, ("M-a j f", sendMessage $ JumpToLayout "fullscreen" )
--