First commit.

lisp/ux/server.el

@@ -0,0 +1,35 @@
+;;; server.el --- Emacs server setup -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(defun user/server-save ()
+  "Save and quickly exit from server edit mode."
+  (interactive)
+  (save-buffer)
+  (server-edit))
+
+
+(defun user--server-after-init-hook ()
+  "Initialize Emacs server after init has completed."
+  (with-feature 'server
+    (unless (server-running-p)
+      (server-start)
+
+      (when (and (display-graphic-p)
+                 (feature-p 'edit-server))
+        (edit-server-start)))))
+
+
+(use-package server
+  ;; Emacs clients regularly causes Emacs to crash on Darwin.
+  :disabled
+  :if (not (eq system-type 'darwin))
+  :ensure nil
+  :hook (after-init-hook . user--server-after-init-hook)
+  :config
+  (use-package edit-server
+    :if window-system))
+
+
+(provide 'ux/server)
+;;; server.el ends here