From bf6a117838b6423dfa6a9fedf201b49630e63b08 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 1 Apr 2021 17:56:24 -0500
Subject: Add ^D binding to quit eshell

---
 init.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 3ae414c..8431248 100644
--- a/init.el
+++ b/init.el
@@ -306,8 +306,19 @@
 
 ;;;; Eshell
 (setup eshell
+  (defun eshell-quit-or-delete-char (arg)
+    "Delete the character to the right, or quit eshell on an empty line."
+    (interactive "p")
+    (if (and (eolp) (looking-back eshell-prompt-regexp))
+        (eshell-life-is-too-much)
+      (delete-forward-char arg)))
   (:option eshell-directory-name (acdw/in-dir "eshell/" t)
-           eshell-aliases-file (acdw/in-dir "eshell/aliases" t)))
+           eshell-aliases-file (acdw/in-dir "eshell/aliases" t))
+  (add-hook 'eshell-mode-hook
+            (defun hook--eshell-setup ()
+              "Stuff to do after eshell is done setting up."
+              (define-key eshell-mode-map (kbd "C-d")
+                #'eshell-quit-or-delete-char))))
 
 ;;;; Debugger
 (setup debugger
-- 
cgit 1.4.1-21-gabe81