blob: 976e8b89426487cd773fc35613d4a6acdcaedb52 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(setq server-use-tcp t)
(require 'server)
(unless (server-running-p)
(server-start))
(let ((server (daemonp)))
(cond
((string= server "default")
;; Remove all mail map bindings except notmuch.
(global-set-key (kbd "C-x m") nil)
(global-set-key (kbd "C-x m n") 'notmuch)
(setq save-abbrevs 'silently
bookmark-save-flag 1))
((string= server "mail")
(setq mode-line-misc-info (cons " [Mail] " mode-line-misc-info))
(key-chord-define-global "jg" 'km/mail-map)
(setq recentf-save-file "~/.emacs.d/cache/recentf-mail")
(setq save-abbrevs nil))))
(provide 'init-server)
|