[emacs/eshell] clear with C-S-l instead of C-l

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 5b29dcb..daae17a 100644 (file)
--- a/init.org
+++ b/init.org
@@ -720,7 +720,8 @@ customizing it.
   (evil-mode 1)
   (general-swap-key nil '(normal motion) ";" ":")
 
-  (setq evil-want-visual-char-semi-exclusive t)
+  (setq evil-want-visual-char-semi-exclusive t
+        evil-cross-lines t)
 
   ;; custom mode state mappings
   (dolist (mspair '((ebdb-mode    . emacs)
@@ -1089,11 +1090,18 @@ There's no way I could top that, so I won't attempt to.
     (eshell-send-input))
 
   (defun amin|eshell-setup ()
+    (make-local-variable 'company-idle-delay)
+    (setq company-idle-delay nil)
     (bind-keys :map eshell-mode-map
-               ("C-d" . amin/eshell-quit-or-delete-char)
-               ("C-l" . amin/eshell-clear)))
+               ("C-d"   . amin/eshell-quit-or-delete-char)
+               ("C-S-l" . amin/eshell-clear)
+               ("M-r"   . counsel-esh-history)
+               ([tab]   . company-complete)))
 
-  :hook (eshell-mode . amin|eshell-setup))
+  :hook (eshell-mode . amin|eshell-setup)
+  :custom
+  (eshell-hist-ignoredups t)
+  (eshell-input-filter 'eshell-input-filter-initial-space))
 #+end_src
 
 *** Ibuffer
@@ -1284,7 +1292,6 @@ TODO: break this giant source block down into individual org sections.
         ([tab]    . company-complete-common-or-cycle)
         ([escape] . company-abort))
   :custom
-  (company-idle-delay 0.3)
   (company-minimum-prefix-length 1)
   (company-selection-wrap-around t)
   (company-dabbrev-char-regexp "\\sw\\|\\s_\\|[-_]")