Only start server if not already running

2021-03-09 09:24:07 -05:00 · 2021-03-09 09:24:07 -05:00 · a887714a78
commit a887714a78
parent a13bd4d283
1 changed files with 5 additions and 1 deletions
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@ -12,7 +12,11 @@
                  file-name-handler-alist file-name-handler-alist-backup)))

 ;; Start the server after init
-(add-hook 'emacs-startup-hook #'server-start)
+(autoload 'server-running-p "server")
+(defun server-start-if-not-running ()
+  (unless (server-running-p)
+    (server-start)))
+(add-hook 'emacs-startup-hook #'server-start-if-not-running)

 ;; Bootstrap the straight.el package manager
 (defvar bootstrap-version)