blob: ebe0cd0c3ef883a32eca56f42619ec7acb79224c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(setq server-use-tcp t)
(require 'server)
(unless (server-running-p)
(server-start))
(let ((server (daemonp)))
(cond
((string= server "default")
(global-set-key (kbd "C-x m") nil)
(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)
|