Assimilate 8 drones
[~bandali/configs] / lisp / bandali-eshell.el
index 07ed623..099cbb3 100644 (file)
@@ -1,8 +1,38 @@
+;;; bandali-eshell.el --- bandali's Eshell setup     -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2018-2020  Amin Bandali
+
+;; Author: Amin Bandali <bandali@gnu.org>
+;; Keywords: processes
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; My awesome Eshell setup.
+
+;;; Code:
+
 (use-package eshell
   :commands eshell
   :bind ("C-c a s e" . eshell)
   :config
 (use-package eshell
   :commands eshell
   :bind ("C-c a s e" . eshell)
   :config
-  (eval-when-compile (defvar eshell-prompt-regexp))
+  (eval-when-compile
+    (defvar eshell-prompt-regexp)
+    (declare-function eshell-life-is-too-much "esh-mode")
+    (declare-function eshell-send-input "esh-mode"
+                      (&optional use-region queue-p no-newline)))
   (defun b/eshell-quit-or-delete-char (arg)
     (interactive "p")
     (if (and (eolp) (looking-back eshell-prompt-regexp nil))
   (defun b/eshell-quit-or-delete-char (arg)
     (interactive "p")
     (if (and (eolp) (looking-back eshell-prompt-regexp nil))
@@ -18,6 +48,9 @@
   (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)
+    (eval-when-compile
+      (defvar eshell-mode-map)
+      (defvar eshell-hist-mode-map))
     (setq company-idle-delay nil)
     (bind-keys :map eshell-mode-map
                ("C-d"   . b/eshell-quit-or-delete-char)
     (setq company-idle-delay nil)
     (bind-keys :map eshell-mode-map
                ("C-d"   . b/eshell-quit-or-delete-char)
@@ -48,3 +81,4 @@
   (eshell-input-filter 'eshell-input-filter-initial-space))
 
 (provide 'bandali-eshell)
   (eshell-input-filter 'eshell-input-filter-initial-space))
 
 (provide 'bandali-eshell)
+;;; bandali-eshell.el ends here