eager-run-hooks.el

(defvar c/eager-hook nil)

(defmacro c/eager-run-hook (hook)
  `(while (and (not (input-pending-p))
               ,hook)
     (let ((first-hook (car ,hook))
           (remaining-hooks (cdr ,hook))
           (c/time-hooks (intern (format " eager • %s" ',hook))))
       (add-hook 'c/eager-hook first-hook)
       (run-hook-wrapped 'c/eager-hook #'c/run-hook)
       (setq ,hook remaining-hooks
             c/eager-hook nil))))

(defun c/eager-run-hooks ()
  (c/eager-run-hook c/first-input-hook)
  (c/eager-run-hook c/first-buffer-hook)
  (c/eager-run-hook c/first-file-hook))

(defun c/eager-run-hooks-later ()
  (run-with-timer 0 nil #'c/eager-run-hooks))

(add-hook 'elpaca-after-init-hook #'c/eager-run-hooks-later)