1 files changed, 16 insertions, 0 deletions

@@ -25,6 +25,22 @@ any directory proferred by `consult-dir'."
 
 ;;; Start and quit
 
+;; from https://old.reddit.com/r/emacs/comments/1zkj2d/advanced_usage_of_eshell/
+(defun +eshell-here ()
+  "Go to eshell and set current directory to current buffer's."
+  ;; consider: make a new eshell buffer when given a prefix argument.
+  (interactive)
+  (let ((dir (file-name-directory (or (buffer-file-name)
+                                      default-directory))))
+    (eshell)
+    (eshell/pushd ".")
+    (cd dir)
+    (goto-char (point-max))
+    (eshell-kill-input)
+    (eshell-send-input)
+    (setq-local scroll-margin 0)
+    (recenter 0)))
+
 (defun +eshell-quit-or-delete-char (arg)
   "Delete the character to the right, or quit eshell on an empty line."
   (interactive "p")