From aa1e80d0113585a8b63c2c2181848150351616ed Mon Sep 17 00:00:00 2001 From: Vidhu Kant Sharma Date: Thu, 18 Feb 2021 21:25:54 +0530 Subject: played around with XMonad TreeSelect --- XMonad/xmonad.hs | 31 ++++++++++++++++++++++++++++--- 1 file changed, 28 insertions(+), 3 deletions(-) (limited to 'XMonad') diff --git a/XMonad/xmonad.hs b/XMonad/xmonad.hs index 3092b7da..c6724517 100644 --- a/XMonad/xmonad.hs +++ b/XMonad/xmonad.hs @@ -173,11 +173,35 @@ myTSConfig = TS.TSConfig { TS.ts_hidechildren = False myPowerMenu :: TS.TSConfig (X ()) -> X () myPowerMenu a = TS.treeselectAction a - [Node (TS.TSNode "SHUTDOWN" "It's not like I'm gonna miss you, b- baka!" (spawn "xmessage bye!")) [] - , Node (TS.TSNode "REBOOT" "Be quick, okay?" (spawn "st")) [] + [Node (TS.TSNode "SHUTDOWN" "It's not like I'm gonna miss you, b- baka!" (spawn "shutdown now")) [] + , Node (TS.TSNode "REBOOT" "Be quick, okay?" (spawn "reboot")) [] , Node (TS.TSNode "CANCEL" "Do nothing" (return ())) [] ] +myTreeMenu :: TS.TSConfig (X ()) -> X () +myTreeMenu a = TS.treeselectAction a + [ Node (TS.TSNode "Section Screenshot" "Take screenshot of a section on the screen" (spawn "scrot -s /zt/Screenshots/Screenshot-%Y-%d-%m--%T.png")) [] + , Node (TS.TSNode "Terminals" "Launch terminals for various tasks" (return())) + [ Node (TS.TSNode "Web dev" "for websites" (return())) + [ Node (TS.TSNode "KE-Site" "Kalawati Enterprises Site" (spawn "launch_terminals_ke-site")) [] + ] + ] + , Node (TS.TSNode "GUI Apps" "Shitty apps that require a mouse" (return())) + [ Node (TS.TSNode "Torrents" "" (spawn "qbittorrent")) [] + , Node (TS.TSNode "Pavucontrol" "" (spawn "Pavucontrol")) [] + , Node (TS.TSNode "Discord" "" (spawn "discord-canary")) [] + , Node (TS.TSNode "LibreOffice" "" (spawn "libreoffice")) [] + , Node (TS.TSNode "Vivaldi" "" (spawn "vivaldi-stable")) [] + , Node (TS.TSNode "Firefox" "" (spawn "firefox")) [] + ] + , Node (TS.TSNode "Terminal Apps" "Command line apps" (return())) + [ Node (TS.TSNode "Htop" "" (spawn "st -e htop")) [] + , Node (TS.TSNode "Bashtop" "" (spawn "st -e bashtop")) [] + , Node (TS.TSNode "Ranger" "" (spawn "st -e ranger")) [] + ] + ] + + -- scratchpad config myScratchpads = [ @@ -200,7 +224,8 @@ myKeys = [ , ((myModMask, xK_a), withFocused $ windows . W.sink) -- unfloat windows -- TreeSelect - , ((mod1Mask, xK_F4), myPowerMenu myTSConfig) + , ((altMask, xK_F4), myPowerMenu myTSConfig) + , ((myModMask, xK_n), myTreeMenu myTSConfig) -- launch apps/execute scripts -- , ((myModMask, xK_i), spawn (myBrowser)) -- cgit v1.2.3