1. -- Named Scratchpads
2. scratchpads :: [NamedScratchpad]
3. scratchpads = [ NS "terminal"
4. ("alacritty --class \"Alacritty\",\"scratchTerm\")
5. (appName =? "scratchTerm")
6. (topFloat (9/10) (5/8))
7. , NS "emacs"
8. ("emacsclient -c -a 'emacs' --frame-parameters='(quote (name . \"scratchmacs\"))'")
9. (appName =? "scratchmacs")
10. (centerFloat (3/4) (3/4))
11. ]
12. where
13. centerFloat w h = customFloating $ W.RationalRect ((1-w)/2) ((1-h)/2) w h
14. topFloat w h = customFloating $ W.RationalRect ((1-w)/2) 0 w h
15. ​
16. -- Set _WM_ClASS if needed
17. myTerminal :: Maybe String -> String
18. myTerminal Nothing = "alacritty"
19. myTerminal (Just s) = "alacritty --class \"Alacritty\",\"" ++ s ++ "\""
20. ​
21. -- Make Emacs keybindings easier to type
22. myEmacs :: String
23. myEmacs = "emacsclient -c -a 'emacs'"
24. ​
25. -- Keymap
26. -- I use additionalKeysP later on
27. myKeys :: [(String, X ())]
28. myKeys =
29. -- Scratchpads
30. [ ("M-z", namedScratchpadAction scratchpads "terminal")
31. , ("M-x", namedScratchpadAction scratchpads "emacs")
32. ]