diff options
Diffstat (limited to 'src/XMonad/Local/NamedScratchpad.hs')
-rw-r--r-- | src/XMonad/Local/NamedScratchpad.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/XMonad/Local/NamedScratchpad.hs b/src/XMonad/Local/NamedScratchpad.hs index 0fbd9f5..4af37b5 100644 --- a/src/XMonad/Local/NamedScratchpad.hs +++ b/src/XMonad/Local/NamedScratchpad.hs @@ -13,20 +13,24 @@ namedScratchpads = [ NS "htop" (terminal ++ " -t htop -e htop") (title =? "htop") cTopFloat , NS "stardict" "qstardict" (className =? "Qstardict") cFloating - , NS "notes" "gvim --role notes ~/notes.txt" (role =? "notes") - cFloating + , NS "notes" "gvim --role notes ~/notes.txt" (role =? "notes") cFloating , NS "charmap" "charmap" (className =? "Gucharmap") cFloating , NS "alarm" "alarm-clock-applet" (className =? "Alarm-clock-applet") cFloating , NS "calculator" (terminal ++ " -e python --title PCalculator") (title =? "PCalculator") cFloating , NS "volctl" "mate-volume-control" (className =? "Mate-volume-control") cFloating - , NS "guake" (terminal ++ " --window-with-profile=Guake-normal --tab-with-profile=Guake-root") + , NS "guake" (terminal ++ " --window-with-profile=Guake-normal" ++ + " --tab-with-profile=Guake-root") (className =? "Mate-terminal" <&&> (startsWith title "Guake")) cBottomFloat + , NS "tabsoutliner" ("google-chrome-stable --profile-directory=Default" ++ + " --app-id=" ++ tabsOutlinerAppID) + (className =? "google-chrome" <&&> appName =? tabsOutlinerAppName) cBigFloat ] where role = stringProperty "WM_WINDOW_ROLE" cFloating = customFloating $ W.RationalRect (1/3) (1/9) (1/3) (1/3) + cBigFloat = customFloating $ tabsOutlinerFloatRect cTopFloat = customFloating $ W.RationalRect (1/5) (1/32) (3/5) (1/2) cBottomFloat = customFloating $ W.RationalRect (1/5) (6/11) (3/5) (4/11) startsWith q x = fmap (startswith x) q |