diff options
author | Michal Minář <miminar@redhat.com> | 2016-07-31 10:18:19 +0200 |
---|---|---|
committer | Michal Minář <miminar@redhat.com> | 2016-07-31 10:18:51 +0200 |
commit | c787e154247614489ece175acd7860a8d6d3d95e (patch) | |
tree | f004bafeb46a0037f229dfe360be099e54bd0cd2 /src/XMonad/Local | |
parent | 73f06ff11eed2e6dad977071cd9d15851410acd5 (diff) | |
download | xminad-c787e154247614489ece175acd7860a8d6d3d95e.tar.gz xminad-c787e154247614489ece175acd7860a8d6d3d95e.tar.xz xminad-c787e154247614489ece175acd7860a8d6d3d95e.zip |
Use st as a guake
Signed-off-by: Michal Minář <miminar@redhat.com>
Diffstat (limited to 'src/XMonad/Local')
-rw-r--r-- | src/XMonad/Local/NamedScratchpad.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/XMonad/Local/NamedScratchpad.hs b/src/XMonad/Local/NamedScratchpad.hs index 4af37b5..5fe2843 100644 --- a/src/XMonad/Local/NamedScratchpad.hs +++ b/src/XMonad/Local/NamedScratchpad.hs @@ -1,6 +1,5 @@ module XMonad.Local.NamedScratchpad (namedScratchpads) where -import Data.String.Utils (startswith) import XMonad.ManageHook import qualified XMonad.StackSet as W import XMonad.Util.NamedScratchpad @@ -20,9 +19,8 @@ namedScratchpads = , 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") - (className =? "Mate-terminal" <&&> (startsWith title "Guake")) cBottomFloat + , NS "guake" (terminal ++ " -c st-guake tmux -c 'tmuxinator start guake'") + (appName =? "st-guake") cBottomFloat , NS "tabsoutliner" ("google-chrome-stable --profile-directory=Default" ++ " --app-id=" ++ tabsOutlinerAppID) (className =? "google-chrome" <&&> appName =? tabsOutlinerAppName) cBigFloat @@ -33,5 +31,4 @@ namedScratchpads = 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 |