diff options
author | rekado <rekado@elephly.net> | 2014-09-30 11:09:43 +0200 |
---|---|---|
committer | rekado <rekado@elephly.net> | 2014-09-30 11:09:43 +0200 |
commit | 0a47d6f1b6b0ff3cee7d6e288c9ad44a827fb60a (patch) | |
tree | f10d1e1a62989c1d719709e9e794996ea07abf7b | |
parent | 08ebbb75498ca19f894817fca9ca7d183570a0e8 (diff) |
move shell-mode and term-mode stuff to init-eshell as well
-rw-r--r-- | init-eshell.el | 17 | ||||
-rw-r--r-- | init.el | 19 |
2 files changed, 17 insertions, 19 deletions
diff --git a/init-eshell.el b/init-eshell.el index da42443..d87d0e7 100644 --- a/init-eshell.el +++ b/init-eshell.el @@ -49,3 +49,20 @@ ;; use cat as the pager in shell mode, because shell-mode is not an ANSI terminal (setenv "PAGER" "cat") + +;; C-d on an empty line in the shell terminates the process. +(defun my/comint-delchar-or-eof-or-kill-buffer (arg) + (interactive "p") + (if (null (get-buffer-process (current-buffer))) + (kill-buffer) + (comint-delchar-or-maybe-eof arg))) + +(add-hook 'shell-mode-hook + (lambda () + (define-key shell-mode-map + (kbd "C-d") 'my/comint-delchar-or-eof-or-kill-buffer))) +;; TODO: this isn't working +(add-hook 'term-mode-hook + (lambda () + (define-key term-mode-map + (kbd "C-d") 'my/comint-delchar-or-eof-or-kill-buffer))) @@ -53,25 +53,6 @@ (define-key esc-map (kbd "C-r") 'vr/isearch-backward) ;; C-M-r (define-key esc-map (kbd "C-s") 'vr/isearch-forward) ;; C-M-s - - -;; C-d on an empty line in the shell terminates the process. -(defun my/comint-delchar-or-eof-or-kill-buffer (arg) - (interactive "p") - (if (null (get-buffer-process (current-buffer))) - (kill-buffer) - (comint-delchar-or-maybe-eof arg))) - -(add-hook 'shell-mode-hook - (lambda () - (define-key shell-mode-map - (kbd "C-d") 'my/comint-delchar-or-eof-or-kill-buffer))) -;; TODO: this isn't working -(add-hook 'term-mode-hook - (lambda () - (define-key term-mode-map - (kbd "C-d") 'my/comint-delchar-or-eof-or-kill-buffer))) - (add-hook 'haskell-mode-hook (lambda () (turn-on-haskell-indentation) |