emacs: Start a server if none is running

1 files changed, 9 insertions, 0 deletions

diff --git a/emacs/init.el b/emacs/init.el
index 637e775..b90aea5 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -49,6 +49,15 @@
 
 (use-package marginalia :config (marginalia-mode 1) :ensure t)
 
+(advice-add #'server-start :around
+            #'(lambda (orig &rest args)
+                (let ((socket (expand-file-name server-name server-socket-dir)))
+                  (unless (and (boundp 'server-process)
+                               (file-readable-p socket))
+                    (apply orig args)))))
+
+(add-hook 'after-init-hook #'server-start)
+
 
 ;; Buffer Management