blob: bd11a48e4a47b672fbd73fabba59be14f9b9b5b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(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)
(add-hook 'kill-emacs-hook #'km/pydoc-save-names-file)
(setq save-abbrevs 'silently
bookmark-save-flag 1))
((string= server "mail")
(setq mode-line-misc-info
(cons (propertize " [Mail] " 'face 'font-lock-doc-face)
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)
|