[emacs] have C-d quit eshell on empty prompt input

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index 87b9f02..9c294be 100644 (file)
--- a/init.org
+++ b/init.org
@@ -234,6 +234,9 @@ can then be managed with the help of Magit or other tools.
 (require 'borg)
 (borg-initialize)
 
 (require 'borg)
 (borg-initialize)
 

+(require 'borg-nix-shell)
+(setq borg-build-shell-command 'borg-nix-shell-build-command)
+

 (with-eval-after-load 'bind-key
   (bind-keys
    :package borg
 (with-eval-after-load 'bind-key
   (bind-keys
    :package borg


@@ -750,6 +753,26 @@ There's no way I could top that, so I won't attempt to.
   (defalias 'locate #'counsel-locate))
 #+end_src
 
   (defalias 'locate #'counsel-locate))
 #+end_src
 

+*** eshell
+
+#+begin_src emacs-lisp
+(use-package eshell
+  :commands eshell
+  :config
+  (eval-when-compile (defvar eshell-prompt-regexp))
+  (defun amin/eshell-quit-or-delete-char (arg)
+    (interactive "p")
+    (if (and (eolp) (looking-back eshell-prompt-regexp nil))
+        (eshell-life-is-too-much)
+      (delete-char arg)))
+
+  (defun amin|eshell-setup ()
+    (bind-keys :map eshell-mode-map
+               ("C-d" . amin/eshell-quit-or-delete-char)))
+
+  :hook (eshell-mode . amin|eshell-setup))
+#+end_src
+

 * Borg's =layer/essentials=
 
 TODO: break this giant source block down into individual org sections.
 * Borg's =layer/essentials=
 
 TODO: break this giant source block down into individual org sections.


@@ -1250,8 +1273,6 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]].
   ;; (advice-add #'notmuch-bury-or-kill-this-buffer
   ;;             :override #'kill-this-buffer)
   :bind
   ;; (advice-add #'notmuch-bury-or-kill-this-buffer
   ;;             :override #'kill-this-buffer)
   :bind

-  (:map notmuch-common-keymap
-        ("g" . notmuch-poll-and-refresh-this-buffer))

   (:map notmuch-hello-mode-map
         ("u" . (lambda ()
                  "Search for `unread'-tagged messages"
   (:map notmuch-hello-mode-map
         ("u" . (lambda ()
                  "Search for `unread'-tagged messages"