From 70fb19b96b30c27e4162d1419737fd57c825fab9 Mon Sep 17 00:00:00 2001
From: John Turner <jturner.usa@gmail.com>
Date: Sat, 24 Jun 2023 21:37:14 -0400
Subject: [PATCH] try to visit symlink for initial-buffer

---
 early-init.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/early-init.el b/early-init.el
index de9661e..683dbd9 100644
--- a/early-init.el
+++ b/early-init.el
@@ -5,6 +5,13 @@
       custom-file (file-name-concat user-emacs-directory "custom.el")
       custom-theme-directory (file-name-concat user-emacs-directory "themes/")
       debugger 'edebug
+      initial-buffer-choice (lambda ()
+                       (let ((initial-file (file-name-concat
+                                            user-emacs-directory
+                                            "initial-buffer")))
+                         (if (file-exists-p initial-file)
+                             (find-file initial-file)
+                           (get-buffer-create "*scratch*"))))
       enable-local-variables :safe
       inferior-lisp-program "sbcl"
       inhibit-splash-screen t