From 026dc0ddde4363eca4d5da5653767fe7fde626a7 Mon Sep 17 00:00:00 2001
From: MikunoNaka <bokuwakanojogahoshii@yahoo.com>
Date: Sun, 21 Mar 2021 17:52:45 +0530
Subject: added mouse keybindinga
---
.config/XMonad/xmonad.hs | 25 ++++++++++++++++++-------
1 file changed, 18 insertions(+), 7 deletions(-)
diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs
index 25bad15..d403231 100644
--- a/.config/XMonad/xmonad.hs
+++ b/.config/XMonad/xmonad.hs
@@ -49,7 +49,7 @@ import XMonad.Hooks.DynamicLog
-- utilities
import XMonad.Util.SpawnOnce
-import XMonad.Util.EZConfig (additionalKeys)
+import XMonad.Util.EZConfig
import XMonad.Util.Cursor
import XMonad.Util.Paste
import XMonad.Util.Run
@@ -211,10 +211,11 @@ myScratchpads = [
-- keybindings
myKeys = [
((myModMask, xK_Return), spawn (myTerminal))
- , ((myModMask .|. shiftMask, xK_p), spawn (myLauncher))
+ , ((myModMask .|. shiftMask, xK_p), spawn (myLauncher)) -- Doesn't work
, ((myModMask .|. shiftMask, xK_Return), spawn (myScreenshot))
, ((myModMask, xK_q), spawn (myLockscreen))
- , ((myModMask, xK_c), spawn (myColorPicker))
+ , ((myModMask, xK_c), spawn (myColorPicker)) -- Doesn't work
+ , ((myModMask, xK_n), spawn ("dunstctl close-all"))
, ((altMask, xK_w), kill1)
, ((altMask .|. shiftMask, xK_k), kill1)
@@ -234,7 +235,7 @@ myKeys = [
-- launch/copy apps
, ((myModMask .|. shiftMask, xK_o), runOrCopy "pcmanfm" (className =? "Pcmanfm"))
- , ((myModMask, xK_i), runOrCopy "brave" (className =? "Brave-browser"))
+ , ((myModMask, xK_i), runOrCopy "firefox" (className =? "Firefox"))
, ((myModMask, xK_m), runOrCopy "vlc" (className =? "vlc"))
-- volume
@@ -335,7 +336,17 @@ myKeys = [
((myModMask, xK_v), windows copyToAll) -- make window visible on all screens
, ((myModMask .|. shiftMask, xK_v), killAllOtherCopies)
]
-
+-- mouse keybindings
+-- 1, 2, 3 = left, middle, right
+myMouseBindings = [((altMask, 2), \w -> kill1)
+ , ((altMask, 1), \w -> spawn "pcmanfm")
+ , ((altMask, 3), \w -> spawn "konqueror")
+ , ((altMask, 4), \w -> prevWS)
+ , ((altMask, 5), \w -> nextWS)
+ , ((myModMask, 2), \w -> spawn myVolMute)
+ , ((myModMask, 4), \w -> spawn myVolDown)
+ , ((myModMask, 5), \w -> spawn myVolUp)
+ ]
-- tabs config
myTabTheme = def { fontName = "roboto"
@@ -409,11 +420,11 @@ main = do
workspaces = myWorkspaces,
normalBorderColor = nBorder,
focusedBorderColor = fBorder,
- -- mouseBindings = myMouseBindings,
+ -- mouseBindings = additionalMouseBindings myMouseBindings,
layoutHook = myLayoutHook,
manageHook = namedScratchpadManageHook myScratchpads <+> fullscreenManageHook,
handleEventHook = fullscreenEventHook,
-- logHook = dynamicLogWithPP (myLemonbarPP dbus),
logHook = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn notXMobar x},
startupHook = myStartupHook
-} `additionalKeys` myKeys
+} `additionalMouseBindings` myMouseBindings `additionalKeys` myKeys
--
cgit v1.2.3