feat: Improve Straight.el startup time

.gitignore

@@ -1 +1,2 @@
 /users/crumb/programs/emacs/eln-cache
+/users/crumb/programs/emacs/auto-save-list

users/crumb/programs/emacs/early-init.el

@@ -1,3 +1,4 @@
 ;;; early-init.el -*- lexical-binding: t; -*-
 
+;; Disable package.el; we use Straight.
 (setq package-enable-at-startup nil)

users/crumb/programs/emacs/init-straight.el

@@ -1,9 +1,18 @@
 ;;; init-straight.el -*- lexical-binding: t; -*-
 
+(defun syd-initialise-straight-options ()
+  (setq
+   ;; Improves Straight's startup time.  Instead of checking for modifications
+   ;; on init, changes will only be detected when the file is saved from within
+   ;; Emacs (with `save-buffer', specifically!).
+   straight-check-for-modifications '(check-on-save find-when-checking)))
+
 ;; Bootstrap Straight.el
 (defun syd-initialise-straight ()
   (defvar bootstrap-version)
 
+  (syd-initialise-straight-options)
+
   (setq straight-base-dir
         (or (getenv "EMACS_STRAIGHT_BASE_DIR")
             (error "Cannot initialise straight: $EMACS_STRAIGHT_BASE_DIR is undefined!")))
@@ -15,8 +24,7 @@
     (unless (file-exists-p bootstrap-file)
       (message "Could not find Straight's bootstrap file.  Attempting to download it now.")
       (let* ((url "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el")
-             (url-buffer (url-retrieve-synchronously
-                          url 'silent 'inhibit-cookies)))
+             (url-buffer (url-retrieve-synchronously url 'silent 'inhibit-cookies)))
         (with-current-buffer url-buffer
           (goto-char (point-max))
           (eval-print-last-sexp))))