From: Amin Bandali <bandali@gnu.org>
Date: Sun, 16 May 2021 00:48:32 +0000 (-0400)
Subject: fix "M-r" binding for eshell history completion
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/4a102022bba2f081c58d6814a8795a898d80a8c3

fix "M-r" binding for eshell history completion
---

diff --git a/.emacs.d/lisp/bandali-eshell.el b/.emacs.d/lisp/bandali-eshell.el
index 820dc05..574d8e1 100644
--- a/.emacs.d/lisp/bandali-eshell.el
+++ b/.emacs.d/lisp/bandali-eshell.el
@@ -59,6 +59,10 @@
     (let ((inhibit-read-only t))
       (erase-buffer))
     (eshell-send-input))
+  (defun b/eshell-history ()
+    (interactive)
+    (completing-read "Eshell history: "
+                     (ring-elements eshell-history-ring)))
   (defun b/eshell-setup ()
     (make-local-variable 'company-idle-delay)
     (defvar company-idle-delay)
@@ -71,12 +75,8 @@
       #'b/eshell-quit-or-delete-char)
     (define-key eshell-mode-map (kbd "C-S-l")
       #'b/eshell-clear)
-    (define-key eshell-mode-map (kbd "M-r")
-      #'counsel-esh-history)
-    ;; (define-key eshell-mode-map [tab]
-    ;;   #'company-complete)
     (define-key eshell-hist-mode-map (kbd "M-r")
-      #'counsel-esh-history)))
+      #'b/eshell-history)))
 ;; global key bindings
 (global-set-key (kbd "C-c a s e") #'eshell)
 ;; hooks