diff options
Diffstat (limited to 'bard-elisp/bard-eshell.el')
| -rw-r--r-- | bard-elisp/bard-eshell.el | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/bard-elisp/bard-eshell.el b/bard-elisp/bard-eshell.el index e50a707..1b118a7 100644 --- a/bard-elisp/bard-eshell.el +++ b/bard-elisp/bard-eshell.el @@ -4,15 +4,15 @@ ;; aliases (setq bard/eshell-aliases '((g . magit) - (gl . magit-log) - (d . dired) - (o . find-file) - (oo . find-file-other-window) - (l . (lambda () (eshell/ls '-la))) - (eshell/clear . eshell/clear-scrollback))) + (gl . magit-log) + (d . dired) + (o . find-file) + (oo . find-file-other-window) + (l . (lambda () (eshell/ls '-la))) + (eshell/clear . eshell/clear-scrollback))) (mapc (lambda (alias) - (defalias (car alias) (cdr alias))) + (defalias (car alias) (cdr alias))) bard/eshell-aliases) (defun prot-eshell--cd (dir) @@ -47,7 +47,7 @@ open the directory in a `dired' buffer." (interactive) (let ((file (ffap-file-at-point))) (if file - (find-file file) + (find-file file) (user-error "No file at point")))) (defcustom prot-eshell-output-buffer "*Exported Eshell output*" @@ -119,24 +119,24 @@ append to it, while separating multiple outputs with (if (string= arg "New eshell") (eshell t) (switch-to-buffer arg))) - (defun eshell-switcher (&optional arg) - "Commentary ARG." - (interactive) - (let* ( - (buffers (cl-remove-if-not (lambda (n) (eq (buffer-local-value 'major-mode n) 'eshell-mode)) (buffer-list)) ) - (names (mapcar (lambda (n) (buffer-name n)) buffers)) - (num-buffers (length buffers) ) - (in-eshellp (eq major-mode 'eshell-mode))) - (cond ((eq num-buffers 0) (eshell (or arg t))) - ((not in-eshellp) (switch-to-buffer (car buffers))) - (t (select-or-create (completing-read "Select Shell:" (cons "New eshell" names))))))) +(defun eshell-switcher (&optional arg) + "Commentary ARG." + (interactive) + (let* ( + (buffers (cl-remove-if-not (lambda (n) (eq (buffer-local-value 'major-mode n) 'eshell-mode)) (buffer-list)) ) + (names (mapcar (lambda (n) (buffer-name n)) buffers)) + (num-buffers (length buffers) ) + (in-eshellp (eq major-mode 'eshell-mode))) + (cond ((eq num-buffers 0) (eshell (or arg t))) + ((not in-eshellp) (switch-to-buffer (car buffers))) + (t (select-or-create (completing-read "Select Shell:" (cons "New eshell" names))))))) ;; taken from https://github.com/karthink/.emacs.d/blob/master/lisp/setup-shells.el (use-package eshell :defer :config (setq eshell-prompt-regexp "^.* λ " - eshell-prompt-function #'bard/eshell-default-prompt-fn) + eshell-prompt-function #'bard/eshell-default-prompt-fn) (defun bard/eshell-default-prompt-fn () "Generate the prompt string for eshell. Use for `eshell-prompt-function'." |