Move host-specific additional profiles into .config/ itself

[~bandali/configs] / .emacs.d / lisp / bandali-eshell.el

diff --git a/.emacs.d/lisp/bandali-eshell.el b/.emacs.d/lisp/bandali-eshell.el
index 820dc05..66e7808 100644 (file)
--- a/.emacs.d/lisp/bandali-eshell.el
+++ b/.emacs.d/lisp/bandali-eshell.el
@@ -1,6 +1,6 @@
 ;;; bandali-eshell.el --- bandali's Eshell setup     -*- lexical-binding: t; -*-
 
 ;;; bandali-eshell.el --- bandali's Eshell setup     -*- lexical-binding: t; -*-
 

-;; Copyright (C) 2018-2020  Amin Bandali
+;; Copyright (C) 2018-2022  Amin Bandali

 
 ;; Author: Amin Bandali <bandali@gnu.org>
 ;; Keywords: processes
 
 ;; Author: Amin Bandali <bandali@gnu.org>
 ;; Keywords: processes


@@ -26,7 +26,7 @@
 
 (with-eval-after-load 'eshell
   (make-directory (b/etc "eshell/") t)
 
 (with-eval-after-load 'eshell
   (make-directory (b/etc "eshell/") t)

-  (csetq
+  (setq

    eshell-aliases-file (b/etc "eshell/aliases")
    eshell-directory-name (b/var "eshell/")
    eshell-hist-ignoredups t
    eshell-aliases-file (b/etc "eshell/aliases")
    eshell-directory-name (b/var "eshell/")
    eshell-hist-ignoredups t


@@ -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,14 +75,10 @@
       #'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 key bindings

-(global-set-key (kbd "C-c a s e") #'eshell)
+(global-set-key (kbd "C-c s e") #'eshell)

 ;; hooks
 (add-hook 'eshell-mode-hook #'b/eshell-setup)
 
 ;; hooks
 (add-hook 'eshell-mode-hook #'b/eshell-setup)