From: John Turner <jturner.usa@gmail.com>
Date: Sun, 25 Jun 2023 01:37:14 +0000 (-0400)
Subject: try to visit symlink for initial-buffer
X-Git-Url: https://jturnerusa.dev/gitweb/?a=commitdiff_plain;h=70fb19b96b30c27e4162d1419737fd57c825fab9;p=emacs.d

try to visit symlink for initial-buffer
---

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