mirror of
https://codeberg.org/frosty/dotfiles.git
synced 2024-09-19 11:47:09 -04:00
(xmonad): add some key binds, change workspace names
This commit is contained in:
parent
78ee7af9a0
commit
1ced208069
|
@ -17,7 +17,9 @@ import XMonad.Hooks.Place
|
||||||
import XMonad.Hooks.StatusBar
|
import XMonad.Hooks.StatusBar
|
||||||
import XMonad.Hooks.WindowSwallowing
|
import XMonad.Hooks.WindowSwallowing
|
||||||
import XMonad.Layout.Grid
|
import XMonad.Layout.Grid
|
||||||
|
import XMonad.Layout.NoBorders
|
||||||
import XMonad.Layout.Renamed (named)
|
import XMonad.Layout.Renamed (named)
|
||||||
|
import XMonad.Layout.Spacing
|
||||||
import XMonad.StackSet qualified as W
|
import XMonad.StackSet qualified as W
|
||||||
import XMonad.Util.NamedScratchpad
|
import XMonad.Util.NamedScratchpad
|
||||||
|
|
||||||
|
@ -26,7 +28,7 @@ myTerminal = "st"
|
||||||
myEditor = "nvim"
|
myEditor = "nvim"
|
||||||
|
|
||||||
myWorkspaces :: [String]
|
myWorkspaces :: [String]
|
||||||
myWorkspaces = ["1", "2", "3", "4", "5", "6", "7", "8", "9"]
|
myWorkspaces = ["1:term", "2:www", "3:mus", "4:chat", "5:file", "6:dev", "7:vol", "8:sys", "9"]
|
||||||
|
|
||||||
myBorderWidth :: Dimension
|
myBorderWidth :: Dimension
|
||||||
myBorderWidth = 1
|
myBorderWidth = 1
|
||||||
|
@ -56,11 +58,10 @@ myKeys (XConfig {XMonad.modMask = modMask, XMonad.workspaces = workspaces}) =
|
||||||
((modMask .|. controlMask, xK_semicolon), spawn "simplescreenrecorder"),
|
((modMask .|. controlMask, xK_semicolon), spawn "simplescreenrecorder"),
|
||||||
((modMask .|. controlMask, xK_apostrophe), spawn "obs"),
|
((modMask .|. controlMask, xK_apostrophe), spawn "obs"),
|
||||||
((modMask .|. controlMask, xK_o), spawnTerminal "cava"),
|
((modMask .|. controlMask, xK_o), spawnTerminal "cava"),
|
||||||
((modMask .|. controlMask, xK_l), spawn "run-i3lock"),
|
|
||||||
((modMask .|. controlMask, xK_d), spawn "arandr"),
|
((modMask .|. controlMask, xK_d), spawn "arandr"),
|
||||||
((modMask .|. controlMask, xK_v), spawn "screenlayouts-open"),
|
((modMask .|. controlMask, xK_v), spawn "screenlayouts-open"),
|
||||||
((modMask .|. controlMask, xK_w), spawn "wallpapers-open"),
|
((modMask .|. controlMask, xK_w), spawn "wallpapers-open"),
|
||||||
((modMask .|. controlMask, xK_bracketright), spawn "find ~/pictures/screenshots -type f | nsxiv -ti"),
|
((modMask .|. controlMask, xK_bracketright), spawn "find ~/pictures/screenshots -type f | sort -r | nsxiv -ti"),
|
||||||
-- Screenshotting
|
-- Screenshotting
|
||||||
((0, xK_Print), spawn "epicshot -cs select"),
|
((0, xK_Print), spawn "epicshot -cs select"),
|
||||||
((controlMask, xK_Print), spawn "epicshot -cs full"),
|
((controlMask, xK_Print), spawn "epicshot -cs full"),
|
||||||
|
@ -96,6 +97,7 @@ myKeys (XConfig {XMonad.modMask = modMask, XMonad.workspaces = workspaces}) =
|
||||||
((modMask, xK_y), sendMessage $ JumpToLayout "Wide"),
|
((modMask, xK_y), sendMessage $ JumpToLayout "Wide"),
|
||||||
((modMask, xK_g), sendMessage $ JumpToLayout "Grid"),
|
((modMask, xK_g), sendMessage $ JumpToLayout "Grid"),
|
||||||
((modMask, xK_f), sendMessage $ JumpToLayout "Full"),
|
((modMask, xK_f), sendMessage $ JumpToLayout "Full"),
|
||||||
|
((modMask, xK_s), sendMessage $ JumpToLayout "Spiral"),
|
||||||
((modMask, xK_a), sendMessage NextLayout)
|
((modMask, xK_a), sendMessage NextLayout)
|
||||||
]
|
]
|
||||||
),
|
),
|
||||||
|
@ -120,8 +122,9 @@ myKeys (XConfig {XMonad.modMask = modMask, XMonad.workspaces = workspaces}) =
|
||||||
((modMask .|. controlMask, xK_Return), namedScratchpadAction myScratchPads "terminal"),
|
((modMask .|. controlMask, xK_Return), namedScratchpadAction myScratchPads "terminal"),
|
||||||
((modMask .|. controlMask, xK_c), namedScratchpadAction myScratchPads "ncmpcpp"),
|
((modMask .|. controlMask, xK_c), namedScratchpadAction myScratchPads "ncmpcpp"),
|
||||||
-- Session
|
-- Session
|
||||||
((modMask .|. controlMask, xK_Delete), io exitSuccess),
|
((modMask .|. controlMask, xK_l), spawn "xscreensaver-command -lock"),
|
||||||
((modMask .|. controlMask, xK_s), spawn "xmonad --restart && notify-send 'xmonad' 'Successfully recompiled and restarted.'")
|
((modMask .|. controlMask, xK_s), spawn "xmonad --restart && notify-send 'xmonad' 'Successfully recompiled and restarted.'"),
|
||||||
|
((modMask .|. controlMask, xK_Delete), io exitSuccess)
|
||||||
]
|
]
|
||||||
-- Workspace viewing and shifting
|
-- Workspace viewing and shifting
|
||||||
++ [ ((modMask .|. m, k), windows $ f i)
|
++ [ ((modMask .|. m, k), windows $ f i)
|
||||||
|
@ -148,11 +151,11 @@ myMouseBindings :: XConfig Layout -> M.Map (KeyMask, Button) (Window -> X ())
|
||||||
myMouseBindings (XConfig {XMonad.modMask = modMask}) =
|
myMouseBindings (XConfig {XMonad.modMask = modMask}) =
|
||||||
M.fromList
|
M.fromList
|
||||||
[ -- Float and move window
|
[ -- Float and move window
|
||||||
((modMask, button1), \w -> focus w >> mouseMoveWindow w),
|
((modMask, button1), \w -> focus w >> mouseMoveWindow w >> windows W.shiftMaster),
|
||||||
-- Shift window to master
|
-- Shift window to master
|
||||||
((modMask, button2), \w -> focus w >> windows W.shiftMaster),
|
((modMask, button2), \w -> focus w >> windows W.shiftMaster),
|
||||||
-- Float and resize window
|
-- Float and resize window
|
||||||
((modMask, button3), \w -> focus w >> mouseResizeWindow w),
|
((modMask, button3), \w -> focus w >> mouseResizeWindow w >> windows W.shiftMaster),
|
||||||
-- Go to previous workspace
|
-- Go to previous workspace
|
||||||
((modMask, button4), const prevWS),
|
((modMask, button4), const prevWS),
|
||||||
-- Go to next workspace
|
-- Go to next workspace
|
||||||
|
@ -164,8 +167,10 @@ myMouseBindings (XConfig {XMonad.modMask = modMask}) =
|
||||||
]
|
]
|
||||||
|
|
||||||
myLayoutHook =
|
myLayoutHook =
|
||||||
avoidStruts $
|
lessBorders OnlyScreenFloat $
|
||||||
tall ||| wide ||| grid ||| full
|
spacing 8 $
|
||||||
|
avoidStruts $
|
||||||
|
tall ||| wide ||| grid ||| full
|
||||||
where
|
where
|
||||||
tall =
|
tall =
|
||||||
named "Tall" $
|
named "Tall" $
|
||||||
|
|
Loading…
Reference in a new issue