fix "M-r" binding for eshell history completion
authorAmin Bandali <bandali@gnu.org>
Sun, 16 May 2021 00:48:32 +0000 (20:48 -0400)
committerAmin Bandali <bandali@gnu.org>
Sun, 16 May 2021 00:48:32 +0000 (20:48 -0400)
.emacs.d/lisp/bandali-eshell.el

index 820dc05..574d8e1 100644 (file)
     (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)
       #'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