Move eshell-C-d to eshell library

1 files changed, 17 insertions, 0 deletions

diff --git a/emacs/.emacs.d/site-lisp/oni-eshell.el b/emacs/.emacs.d/site-lisp/oni-eshell.el
index c0d3d13..988afd2 100644
--- a/emacs/.emacs.d/site-lisp/oni-eshell.el
+++ b/emacs/.emacs.d/site-lisp/oni-eshell.el
@@ -25,6 +25,7 @@
 ;;; Code:
 
 (require 'em-dirs)
+(require 'em-prompt)
 
 ;;;###autoload
 (defun eshell/cdp ()
@@ -49,5 +50,21 @@ directory in it."
                    'action (lambda (button)
                              (browse-url (button-label button)))))))
 
+;;;###autoload
+(defun oni:eshell-C-d ()
+  "Either call `delete-char' interactively or quit."
+  (interactive)
+  (condition-case err
+      (call-interactively #'delete-char)
+    (error (if (and (eq (car err) 'end-of-buffer)
+                    (looking-back eshell-prompt-regexp nil))
+               (kill-buffer)
+             (signal (car err) (cdr err))))))
+
+;;;###autoload
+(defun oni:set-keys-for-eshell ()
+  "Set some keybindings for `eshell'."
+  (define-key eshell-mode-map (kbd "C-d") #'oni:eshell-C-d))
+
 (provide 'oni-eshell)
 ;;; oni-eshell.el ends here