aboutsummaryrefslogtreecommitdiff
path: root/gui/conf/xmonad.hs
diff options
context:
space:
mode:
Diffstat (limited to 'gui/conf/xmonad.hs')
-rw-r--r--gui/conf/xmonad.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs
index a7167c0..5038f48 100644
--- a/gui/conf/xmonad.hs
+++ b/gui/conf/xmonad.hs
@@ -117,7 +117,10 @@ scratchpads host =
, NS "calculator" "speedcrunch" (className =? "SpeedCrunch")
(customFloating $ hideScreenBorder host sideBarLeft)
, NS "messaging" "telegram-desktop" ((className =? "TelegramDesktop") <&&> (title /=? "Media viewer"))
- (customFloating $ hideScreenBorder host sideBarRight) ]
+ (customFloating $ hideScreenBorder host sideBarRight)
+ , NS "notes" "emacs --title=notemacs ~/org/org.org" (title =? "notemacs")
+ (customFloating $ hideScreenBorder host dropDownLarge)
+ ]
hudMonitor host = monitor
{ prop = Title "hud"
@@ -198,7 +201,8 @@ commonKeybindings host =
, ("M-t" , namedScratchpadAction (scratchpads host) "thesaurus")
, ("M-z" , namedScratchpadAction (scratchpads host) "literature")
, ("M-r" , namedScratchpadAction (scratchpads host) "calculator")
- , ("M-m" , namedScratchpadAction (scratchpads host) "messaging") ] ++
+ , ("M-m" , namedScratchpadAction (scratchpads host) "messaging")
+ , ("M-n" , namedScratchpadAction (scratchpads host) "notes") ] ++
-- workspace selection
[ (p ++ [k] , windows $ f i) | (i, k) <- zip Main.workspaces ['1' .. '9']