From 87bdf289ad385fd9c4f7eb6ad98f658b9736592a Mon Sep 17 00:00:00 2001
From: Grégoire Duchêne <gduchene@awhk.org>
Date: Sat, 27 Jul 2024 10:38:22 +0100
Subject: emacs: Start a server if none is running

---
 emacs/init.el | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'emacs')

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
 
-- 
cgit v1.2.3-70-g09d2