From: Amin Bandali <amin@gnu.org>
Date: Thu, 30 Aug 2018 03:03:20 +0000 (-0400)
Subject: [emacs] C-l eshell clear binding and magit-dispatch-popup on bottom
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/a8702c0393a06887ad82331033be79f984ab31ce?hp=6ef44cb72c995c9a59b2fa2b7f3b14173628ae99

[emacs] C-l eshell clear binding and magit-dispatch-popup on bottom
---

diff --git a/init.org b/init.org
index 058401a..a74d8df 100644
--- a/init.org
+++ b/init.org
@@ -766,9 +766,16 @@ There's no way I could top that, so I won't attempt to.
         (eshell-life-is-too-much)
       (delete-char arg)))
 
+  (defun amin/eshell-clear ()
+    (interactive)
+    (let ((inhibit-read-only t))
+      (erase-buffer))
+    (eshell-send-input))
+
   (defun amin|eshell-setup ()
     (bind-keys :map eshell-mode-map
-               ("C-d" . amin/eshell-quit-or-delete-char)))
+               ("C-d" . amin/eshell-quit-or-delete-char)
+               ("C-l" . amin/eshell-clear)))
 
   :hook (eshell-mode . amin|eshell-setup))
 #+end_src
@@ -1189,6 +1196,7 @@ Emacs package that displays available keybindings in popup
         '(("*Help*" :align right :select t :size 0.5)
           ("\\`\\*helm.*?\\*\\'" :regexp t :align t)
           ((compilation-mode "\\`\\*magit-diff: .*?\\'") :regexp t :noselect t)
+          ("*magit-dispatch-popup*" :align bottom)
           ((inferior-scheme-mode "*shell*" "*eshell*") :popup t))
         shackle-default-rule '(:select t)
         shackle-default-size 0.4