diff options
| author | tdback <tyler@tdback.net> | 2025-02-02 21:18:10 -0500 |
|---|---|---|
| committer | tdback <tyler@tdback.net> | 2025-02-02 21:18:10 -0500 |
| commit | 93f86940f52fde7a12073119fb9bf20edd4f3df9 (patch) | |
| tree | d7b0b4247d27507b597c38b8651648756aa1f45a /lib/KeyBindings.hs | |
here be dragons
Diffstat (limited to 'lib/KeyBindings.hs')
| -rw-r--r-- | lib/KeyBindings.hs | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/lib/KeyBindings.hs b/lib/KeyBindings.hs new file mode 100644 index 0000000..a4b26d3 --- /dev/null +++ b/lib/KeyBindings.hs @@ -0,0 +1,57 @@ +module KeyBindings where + +import Defaults +import Graphics.X11.ExtraTypes.XF86 +import XMonad +import XMonad.Actions.CycleWS +import XMonad.Actions.FindEmptyWorkspace +import XMonad.Layout.Gaps +import XMonad.Layout.MultiToggle +import XMonad.Layout.MultiToggle.Instances +import XMonad.Util.Paste +import XMonad.Util.Run + +import qualified Data.Map as M +import qualified WindowState as WS +import qualified XMonad.StackSet as W + +myKeys :: XConfig Layout -> M.Map (KeyMask, KeySym) (X ()) +myKeys conf@(XConfig{XMonad.modMask = modm}) = + M.fromList $ + [ ((modm .|. shiftMask, xK_Return), safeSpawn (XMonad.terminal conf) []) + , ((modm, xK_b), safeSpawn myBrowser []) + , ((modm .|. shiftMask, xK_c), kill) + , ((modm, xK_n), refresh) + , ((modm, xK_q), spawn "xmonad --recompile; xmonad --restart") + , ((modm, xK_f), sendMessage $ Toggle FULL) + , ((modm .|. shiftMask, xK_f), withFocused WS.toggleFloat) + , ((modm, xK_space), sendMessage NextLayout) + , ((modm, xK_Tab), windows W.focusDown) + , ((modm, xK_j), windows W.focusDown) + , ((modm, xK_k), windows W.focusUp) + , ((modm, xK_m), windows W.focusMaster) + , ((modm .|. shiftMask, xK_j), windows W.swapDown) + , ((modm .|. shiftMask, xK_k), windows W.swapUp) + , ((modm, xK_Return), windows W.swapMaster) + , ((modm, xK_h), sendMessage Expand) + , ((modm, xK_l), sendMessage Shrink) + , ((modm, xK_Tab), toggleWS) + , ((modm, xK_e), viewEmptyWorkspace) + , ((modm .|. shiftMask, xK_e), tagToEmptyWorkspace) + , ((modm, xK_t), withFocused $ windows . W.sink) + , ((modm, xK_r), spawn "rofi -show drun") + , ((altMask, xK_Tab), spawn "rofi -show window") + , ((modm, xK_p), spawn "snapshot -f") + , ((modm .|. shiftMask, xK_p), spawn "snapshot") + , ((0, xF86XK_AudioPrev), spawn "mpc prev") + , ((0, xF86XK_AudioNext), spawn "mpc next") + , ((0, xF86XK_AudioPlay), spawn "mpc toggle") + , ((0, xF86XK_AudioRaiseVolume), spawn "pamixer -i 5") + , ((0, xF86XK_AudioLowerVolume), spawn "pamixer -d 5") + , ((0, xF86XK_AudioMute), spawn "pamixer -t") + ] + ++ + [ ((m .|. modm, k), windows $ f i) + | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9] + , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] + ] |