From 499bb6a2d9f08c3fad40297a13d63c35c42ec260 Mon Sep 17 00:00:00 2001 From: Vidhu Kant Sharma Date: Sat, 23 Mar 2024 12:48:35 +0530 Subject: added a TreeSelect Menu --- .config/XMonad/lib/Scratchpads.hs | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to '.config/XMonad/lib/Scratchpads.hs') diff --git a/.config/XMonad/lib/Scratchpads.hs b/.config/XMonad/lib/Scratchpads.hs index d0055c7..a2b6e30 100644 --- a/.config/XMonad/lib/Scratchpads.hs +++ b/.config/XMonad/lib/Scratchpads.hs @@ -10,14 +10,10 @@ import Defaults myScratchpad :: String -> X () myScratchpad x = namedScratchpadAction myScratchpads x --- if I try to concatinate strings directly --- it won't compile for some reason term0Cmd = myTerminal' ++ " -t 'Term U'" term1Cmd = myTerminal' ++ " -t 'Term I'" term2Cmd = myTerminal' ++ " -t 'Term O'" term3Cmd = myTerminal' ++ " -t 'Term P'" -lfCmd = myTerminal' ++ " -t 'lf' -e 'lf'" -nmtuiCmd = myTerminal' ++ " -t 'nmtui' -e 'nmtui'" bpytopCmd = myTerminal' ++ " -t 'BPYTOP' -e 'bpytop'" playerCmd = myTerminal' ++ " -t 'NCMPCPP' -e 'ncmpcpp'" @@ -26,12 +22,10 @@ myScratchpads = , NS "Term 1" term1Cmd (title =? "Term I") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) , NS "Term 2" term2Cmd (title =? "Term O") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) , NS "Term 3" term3Cmd (title =? "Term P") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) - , NS "lf" lfCmd (title =? "lf") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) , NS "BPYTOP" bpytopCmd (title =? "BPYTOP") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) , NS "musicplayer" playerCmd (title =? "NCMPCPP") (customFloating $ W.RationalRect (1/16) (1/16) (7/8) (7/8)) - , NS "nmtui" nmtuiCmd (title =? "nmtui") (customFloating $ W.RationalRect (1/4) (1/8) (1/2) (3/4)) , NS "arandr" "arandr" (className =? "Arandr") (customFloating $ W.RationalRect (1/4) (1/4) (1/2) (1/2)) - , NS "calc" "galculator" (className =? "Galculator") (customFloating $ W.RationalRect (5/13) (4/13) (3/13) (6/13)) + , NS "calc" myCalculator (className =? "Galculator") (customFloating $ W.RationalRect (5/13) (4/13) (3/13) (6/13)) , NS "blueman" "blueman-manager" (className =? "Blueman-manager") (customFloating $ W.RationalRect (5.5/16) (4/13) (5/16) (6/13)) , NS "pavucontrol" "pavucontrol" (className =? "Pavucontrol") (customFloating $ W.RationalRect (3/12) (1/12) (3/6) (5/6)) , NS "wallpaper" "nitrogen" (className =? "Nitrogen") (customFloating $ W.RationalRect (3/12) (1/12) (3/6) (5/6)) -- cgit v1.2.3