colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Add command to make the current server the main emacs server

Browse Source
This commit is contained in:
Ivan Malison 2017-09-08 00:06:25 -07:00
parent 27ec812fff
commit 3c10e85909
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/emacs.d/README.org
View File

@ -1402,11 +1402,17 @@ Paradox is a package.el extension. I have no use for it now that I use straight.
(use-package server (use-package server
:config :config
(progn (progn
(defun imalison:make-main-emacs-server ()
(interactive)
(when (not (equal server-name "server"))
(shell-command-to-string
(format "cd ~/.emacs.d/server/ && rm -f server && ln -s %s server" server-name))))
(defun imalison:get-server-filepath () (defun imalison:get-server-filepath ()
(let ((server-dir (if server-use-tcp server-auth-dir server-socket-dir))) (let ((server-dir (if server-use-tcp server-auth-dir server-socket-dir)))
(expand-file-name server-name server-dir))) (expand-file-name server-name server-dir)))
(setq server-use-tcp t) (setq server-use-tcp t)
(unless (server-running-p) (server-start)))) (unless (server-running-p) (server-start))
(imalison:make-main-emacs-server)))
#+END_SRC #+END_SRC
** list-environment ** list-environment
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp