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

feat: leader key + modal keybinds

Browse source
This commit is contained in:
♥ Minnie ♥ 2025-05-10 00:05:58 +08:00
parent f840b1d49e
commit 49219f255e
Signed by: jasmine
GPG key ID: 8563E358D4E8040E
2 changed files with 104 additions and 71 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

174
src/xmonad.hs
View file

@ -1,16 +1,20 @@
import Data.Map qualified as M
import XMonad import XMonad
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
import XMonad.Actions.Navigation2D import XMonad.Actions.Navigation2D
import XMonad.Actions.Submap
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.Modal
import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar
import XMonad.Layout.BinarySpacePartition import XMonad.Layout.BinarySpacePartition
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.StackSet qualified as W import XMonad.StackSet qualified as W
import XMonad.Util.EZConfig (additionalKeys) import XMonad.Util.EZConfig (additionalKeysP)
import XMonad.Util.Loggers
import Graphics.X11.ExtraTypes.XF86 import Graphics.X11.ExtraTypes.XF86
@ -40,7 +44,7 @@ myConfig = def
, focusedBorderColor = myFocusedBorderColor , focusedBorderColor = myFocusedBorderColor
, workspaces = myWorkspaces , workspaces = myWorkspaces
, manageHook = myManageHook , manageHook = myManageHook
} `additionalKeys` myKeybindings } `additionalKeysP` myKeybindings
-- --
@ -54,6 +58,7 @@ myNormalBorderColor = "#32302f"
myFocusedBorderColor = "#32302f" myFocusedBorderColor = "#32302f"
myWorkspaces = ["code", "chat", "web", "games", "misc"] myWorkspaces = ["code", "chat", "web", "games", "misc"]
myLauncher = "rofi -modi run,calc -show run" myLauncher = "rofi -modi run,calc -show run"
myFileManager = "thunar"
myScrot = "scrot -s '%Y%m%d_%H%M%S.png' -e 'mv $f ~/Pictures/scrots/'" myScrot = "scrot -s '%Y%m%d_%H%M%S.png' -e 'mv $f ~/Pictures/scrots/'"
volumeDown = "pactl set-sink-volume @DEFAULT_SINK@ -10%" volumeDown = "pactl set-sink-volume @DEFAULT_SINK@ -10%"
volumeUp = "pactl set-sink-volume @DEFAULT_SINK@ +10%" volumeUp = "pactl set-sink-volume @DEFAULT_SINK@ +10%"
@ -65,94 +70,120 @@ volumeUp = "pactl set-sink-volume @DEFAULT_SINK@ +10%"
myKeybindings = myKeybindings =
-- --
-- Launching and killing programs -- LeaderKey
-- --
[ ((myModMask, xK_Return), spawn myTerminal) -- spawning programs
, ((myModMask, xK_Tab ), spawn myLauncher) [ ("M-a s t", spawn myTerminal )
, ((myModMask, xK_s ), spawn myScrot ) , ("M-a s d", spawn myLauncher )
, ((myModMask, xK_Escape), kill ) , ("M-a s f", spawn myFileManager)
, ((myModMask .|. shiftMask, xK_q ), io exitSuccess ) , ("M-a s s", spawn myScrot )
-- kill/exit
, ("M-a c", kill )
, ("M-a 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)
-- 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" )
-- focus master window
, ("M-a <Space>", 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" )
--
-- Modifier Keys
--
-- directional navigation of windows
, ("M-<Up>" , windowGo U False)
, ("M-<Left>" , windowGo L False)
, ("M-<Down>" , windowGo D False)
, ("M-<Right>" , windowGo R False)
-- swap adjacent windows
, ("M-S-<Up>" , windowSwap U False)
, ("M-S-<Left>" , windowSwap L False)
, ("M-S-<Down>" , windowSwap D False)
, ("M-S-<Right>", windowSwap R False)
-- enable edit mode
, ("M1-<Space>", setMode "edit")
-- --
-- Multimedia -- Multimedia
-- --
, ((noModMask, xF86XK_AudioPlay ), spawn "mpc toggle") , ("<XF86AudioPlay>" , spawn "mpc toggle")
, ((noModMask, xF86XK_AudioStop ), spawn "mpc stop" ) , ("<XF86AudioStop>" , spawn "mpc stop" )
, ((noModMask, xF86XK_AudioNext ), spawn "mpc next" ) , ("<XF86AudioNext>" , spawn "mpc next" )
, ((noModMask, xF86XK_AudioPrev ), spawn "mpc prev" ) , ("<XF86AudioPrev>" , spawn "mpc prev" )
, ((noModMask, xF86XK_AudioLowerVolume), spawn volumeDown ) , ("<XF86AudioLowerVolume>", spawn volumeDown )
, ((noModMask, xF86XK_AudioRaiseVolume), spawn volumeUp ) , ("<XF86AudioRaiseVolume>", spawn volumeUp )
]
-- --
-- Navigation -- Modal keybindings
-- --
editMode :: Mode
editMode = mode "edit" $ mkKeysEz
-- directional navigation of windows -- directional navigation of windows
, ((myModMask, xK_Right), windowGo R False) [ ("o", windowGo U False)
, ((myModMask, xK_Left ), windowGo L False) , ("n", windowGo L False)
, ((myModMask, xK_Up ), windowGo U False) , ("e", windowGo D False)
, ((myModMask, xK_Down ), windowGo D False) , ("i", windowGo R False)
-- swap adjacent windows -- swap adjacent windows
, ((myModMask .|. shiftMask, xK_Right), windowSwap R False) , ("S-o", windowSwap U False)
, ((myModMask .|. shiftMask, xK_Left ), windowSwap L False) , ("S-n", windowSwap L False)
, ((myModMask .|. shiftMask, xK_Up ), windowSwap U False) , ("S-e", windowSwap D False)
, ((myModMask .|. shiftMask, xK_Down ), windowSwap D False) , ("S-i", windowSwap R False)
-- workspaces
, ((myModMask, xK_Page_Up ), moveTo Prev hiddenWS)
, ((myModMask, xK_Page_Down), moveTo Next hiddenWS)
-- layouts
, ((myModMask, xK_t), sendMessage $ JumpToLayout "dynamic tiling" )
, ((myModMask, xK_b), sendMessage $ JumpToLayout "binary space partition")
, ((myModMask, xK_m), sendMessage $ JumpToLayout "maximised" )
, ((myModMask, xK_f), sendMessage $ JumpToLayout "fullscreen" )
, ((myModMask .|. shiftMask, xK_t), withFocused $ windows . W.sink )
--
-- DynamicTiling
--
-- move/swap focus of master
, ((myModMask, xK_BackSpace), windows W.focusMaster)
, ((myModMask .|. shiftMask, xK_BackSpace), windows W.swapMaster )
-- shrink/expand the master area
, ((myModMask, xK_Home), sendMessage Shrink)
, ((myModMask, xK_End ), sendMessage Expand)
-- number of windows in the master area
, ((myModMask .|. shiftMask, xK_Home), sendMessage (IncMasterN 1) )
, ((myModMask .|. shiftMask, xK_End ), sendMessage (IncMasterN (-1)))
--
-- BinarySpacePartition
--
-- expand windows -- expand windows
, ((myModMask .|. mod1Mask, xK_Right), sendMessage $ ExpandTowardsBy R 0.01) , ("M1-o", sendMessage $ ExpandTowardsBy U 0.01)
, ((myModMask .|. mod1Mask, xK_Left ), sendMessage $ ExpandTowardsBy L 0.01) , ("M1-n", sendMessage $ ExpandTowardsBy L 0.01)
, ((myModMask .|. mod1Mask, xK_Down ), sendMessage $ ExpandTowardsBy D 0.01) , ("M1-e", sendMessage $ ExpandTowardsBy D 0.01)
, ((myModMask .|. mod1Mask, xK_Up ), sendMessage $ ExpandTowardsBy U 0.01) , ("M1-i", sendMessage $ ExpandTowardsBy R 0.01)
-- shrink windows -- shrink windows
, ((myModMask .|. mod1Mask .|. controlMask, xK_Right), sendMessage $ ShrinkFromBy R 0.01) , ("M1-C-o", sendMessage $ ShrinkFromBy U 0.01)
, ((myModMask .|. mod1Mask .|. controlMask, xK_Left ), sendMessage $ ShrinkFromBy L 0.01) , ("M1-C-n", sendMessage $ ShrinkFromBy L 0.01)
, ((myModMask .|. mod1Mask .|. controlMask, xK_Down ), sendMessage $ ShrinkFromBy D 0.01) , ("M1-C-e", sendMessage $ ShrinkFromBy D 0.01)
, ((myModMask .|. mod1Mask .|. controlMask, xK_Up ), sendMessage $ ShrinkFromBy U 0.01) , ("M1-C-i", sendMessage $ ShrinkFromBy R 0.01)
-- layout manipulation -- shrink/expand the master area
, ((myModMask .|. mod1Mask, xK_Return ), sendMessage Rotate ) , ("M-f", sendMessage Shrink)
, ((myModMask .|. mod1Mask, xK_BackSpace), sendMessage Swap ) , ("M-u", sendMessage Expand)
, ((myModMask .|. mod1Mask, xK_Home ), sendMessage $ SplitShift Prev)
, ((myModMask .|. mod1Mask, xK_End ), sendMessage $ SplitShift Next) -- number of windows in the master area
, ("S-f", sendMessage (IncMasterN 1) )
, ("S-u", sendMessage (IncMasterN (-1)))
-- swap/rotate
, ("M1-r", sendMessage Rotate)
, ("M1-s", sendMessage Swap )
-- split shift
, ("M1-f", sendMessage $ SplitShift Prev)
, ("M1-u", sendMessage $ SplitShift Next)
] ]
@ -191,6 +222,7 @@ myXmobarPP = def
, ppUrgent = red . wrap " " "" , ppUrgent = red . wrap " " ""
, ppLayout = aqua . wrap (grey0 " <fn=1>[</fn> ") (grey0 " <fn=1>]</fn> ") , ppLayout = aqua . wrap (grey0 " <fn=1>[</fn> ") (grey0 " <fn=1>]</fn> ")
, ppOrder = \[ws, l, _] -> [ws, l] , ppOrder = \[ws, l, _] -> [ws, l]
, ppExtras = [logMode]
} }

1
xmonad-config.cabal
View file

@ -66,6 +66,7 @@ executable xmobar
executable xmonad executable xmonad
import: shared import: shared
build-depends: build-depends:
, containers
, X11 , X11
, xmonad , xmonad
, xmonad-contrib , xmonad-contrib