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 (file)
--- 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))
     (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)
   (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)
       #'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")
     (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
 ;; global key bindings
 (global-set-key (kbd "C-c a s e") #'eshell)
 ;; hooks