From 3885658d98c2c3e3b0679fa90bb4d9f01b01b497 Mon Sep 17 00:00:00 2001 From: MikunoNaka Date: Thu, 10 Jun 2021 16:16:19 +0530 Subject: added favourites section to TS menu --- .config/XMonad/xmonad.hs | 47 ++++++++++++++++++++++++++--------------------- 1 file changed, 26 insertions(+), 21 deletions(-) (limited to '.config') diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs index 24fabc1..edef085 100644 --- a/.config/XMonad/xmonad.hs +++ b/.config/XMonad/xmonad.hs @@ -92,6 +92,11 @@ myTSConfig = TS.TSConfig { TS.ts_hidechildren = False myTreeMenu :: TS.TSConfig (X ()) -> X () myTreeMenu a = TS.treeselectAction a [ Node (TS.TSNode "Section Screenshot" "" (spawn "scrot -s /home/zt/Media/Screenshots/Screenshot-%m-%d-%Y-%T.png")) [] + , Node (TS.TSNode "Favourites" "" (return())) + [ Node (TS.TSNode "VirtualBox" "" (spawn "virtualbox")) [] + , Node (TS.TSNode "Discord" "" (spawn "discord")) [] + , Node (TS.TSNode "pavucintrol" "" (spawn "pavucontrol")) [] + ] , Node (TS.TSNode "Accessories" "" (return())) [ Node (TS.TSNode "Scrcpy" "" (spawn "scrcpy")) [] , Node (TS.TSNode "Pcmanfm" "" (spawn "pcmanfm")) [] @@ -239,24 +244,24 @@ main = do , manageHook = namedScratchpadManageHook myScratchpads <+> manageDocks , startupHook = myStartupHook } `additionalMouseBindings` [ - ((altMask, 2), \w -> kill1) - , ((myModMask, 4), \w -> prevWS) - , ((myModMask, 5), \w -> nextWS) - ] `additionalKeys` myKeys `additionalKeysP` [ - ("M-i f", runOrCopy "librewolf" (className =? "Firefox")) - , ("M-i S-f", spawn "librewolf") - , ("M-i b", spawn "brave") - , ("M-i S-b", spawn "brave --incognito") - -- this doesn't work when in myKeys - , ("M-c", spawn myColorPicker) - -- Launchers - , ("M-p", myTreeMenu myTSConfig) - , ("M-S-p", spawn "dmenu_run") - -- GridSelect - , ("M-g g", goToSelected defaultGSConfig) - , ("M-g b", bringSelected defaultGSConfig) - -- volume - , ("", spawn (myVolMute)) - , ("", spawn (myVolDown)) - , ("", spawn (myVolUp)) - ] + ((altMask, 2), \w -> kill1) + , ((myModMask, 4), \w -> prevWS) + , ((myModMask, 5), \w -> nextWS) + ] `additionalKeys` myKeys `additionalKeysP` [ + ("M-i f", runOrCopy "librewolf" (className =? "Firefox")) + , ("M-i S-f", spawn "librewolf") + , ("M-i b", spawn "brave") + , ("M-i S-b", spawn "brave --incognito") + -- this doesn't work when in myKeys + , ("M-c", spawn myColorPicker) + -- Launchers + , ("M-p", myTreeMenu myTSConfig) + , ("M-S-p", spawn "dmenu_run") + -- GridSelect + , ("M-g g", goToSelected defaultGSConfig) + , ("M-g b", bringSelected defaultGSConfig) + -- volume + , ("", spawn (myVolMute)) + , ("", spawn (myVolDown)) + , ("", spawn (myVolUp)) + ] -- cgit v1.2.3