diff options
| author | Adrian Kummerlaender | 2020-02-25 21:44:21 +0100 |
|---|---|---|
| committer | Adrian Kummerlaender | 2020-02-25 21:44:21 +0100 |
| commit | d5bf025a4db2f8b06b89429203042aad15dc1a5a (patch) | |
| tree | 6622dd32605457b429a96c0db390402408fb1485 /gui/conf | |
| parent | 903a184d5f5eb2e3a6bdf5d1e685eee1a6f31235 (diff) | |
| download | nixos_home-d5bf025a4db2f8b06b89429203042aad15dc1a5a.tar nixos_home-d5bf025a4db2f8b06b89429203042aad15dc1a5a.tar.gz nixos_home-d5bf025a4db2f8b06b89429203042aad15dc1a5a.tar.bz2 nixos_home-d5bf025a4db2f8b06b89429203042aad15dc1a5a.tar.lz nixos_home-d5bf025a4db2f8b06b89429203042aad15dc1a5a.tar.xz nixos_home-d5bf025a4db2f8b06b89429203042aad15dc1a5a.tar.zst nixos_home-d5bf025a4db2f8b06b89429203042aad15dc1a5a.zip | |
Add Emacs scratchpad to XMonad
Diffstat (limited to 'gui/conf')
| -rw-r--r-- | gui/conf/init.el | 3 | ||||
| -rw-r--r-- | gui/conf/xmonad.hs | 8 |
2 files changed, 9 insertions, 2 deletions
diff --git a/gui/conf/init.el b/gui/conf/init.el index fc16d5d..32453b8 100644 --- a/gui/conf/init.el +++ b/gui/conf/init.el @@ -1,3 +1,6 @@ +(setq inhibit-startup-message t) +(setq initial-scratch-message nil) + (setq backup-directory-alist `(("." . "~/.emacs.d/backup"))) (require 'package) 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'] |