1 files changed, 20 insertions, 0 deletions

@@ -76,5 +76,25 @@ any directory proferred by `consult-dir'."
       (add-hook 'eshell-post-command-hook #'eshell-record-args nil t)
     (remove-hook 'eshell-post-command-hook #'eshell-record-args t)))
 
+;;;###autoload
+(defmacro +eshell-eval-after-load (&rest forms)
+  "Execute FORMS after Eshell is loaded.
+If Eshell is already loaded in the session, immediately execute
+forms.
+
+I wrote this because Eshell doesn't properly do loading or
+something, it's really annoying to work with."
+  (declare (indent 0))
+  `(progn
+       (defun +eshell@setup ()
+         "Setup the Eshell session."
+         ,@forms)
+       (when (featurep 'eshell)
+         `(dolist (buf (buffer-list))
+            (with-current-buffer buf
+              (when (derived-mode-p 'eshell-mode)
+                (+eshell@setup)))))
+       '(add-hook 'eshell-mode-hook #'+eshell@setup)))
+
 (provide '+eshell)
 ;;; +eshell.el ends here