blob: 939617f42e7ddd80149640bf5b9479e30a64ec83 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(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 save-abbrevs nil))))
(provide 'init-server)
|