72c03965cc
emacs-evil/evil@25fc5c6 -> emacs-evil/evil@017b442 emacs-evil/evil-collection@e065da3 -> emacs-evil/evil-collection@3e62b6b emacs-evil/evil-surround@1c34944 -> emacs-evil/evil-surround@346d4d8 redguardtoo/evil-nerd-commenter@1bd2de5 -> redguardtoo/evil-nerd-commenter@87734b9 Some functionality has been upstreamed into evil-collection and thus removed from their respective modules. Closes #3577
34 lines
1.1 KiB
EmacsLisp
34 lines
1.1 KiB
EmacsLisp
;;; term/eshell/autoload/evil.el -*- lexical-binding: t; -*-
|
|
;;;###if (featurep! :editor evil)
|
|
|
|
;;;###autoload (autoload '+eshell:run "term/eshell/autoload/evil" nil t)
|
|
(evil-define-command +eshell:run (command bang)
|
|
"TODO"
|
|
(interactive "<fsh><!>")
|
|
(let ((buffer (+eshell-last-buffer))
|
|
(command (+evil-replace-filename-modifiers-a command)))
|
|
(cond (buffer
|
|
(select-window (get-buffer-window buffer))
|
|
(+eshell-run-command command buffer))
|
|
(bang (+eshell/open nil command))
|
|
((+eshell/open-popup nil command)))))
|
|
|
|
;;;###autoload
|
|
(defun +eshell-goto-prompt-on-insert-a ()
|
|
"Move cursor to the prompt when switching to insert mode (if point isn't
|
|
already there).
|
|
|
|
Meant to replace `evil-collection-eshell-next-prompt-on-insert'."
|
|
(when (< (point) eshell-last-output-end)
|
|
(goto-char
|
|
(if (memq this-command '(evil-append evil-append-line))
|
|
(point-max)
|
|
eshell-last-output-end))))
|
|
|
|
;;;###autoload
|
|
(defun +eshell/goto-end-of-prompt ()
|
|
"Move cursor to the prompt when switching to insert mode (if point isn't
|
|
already there)."
|
|
(interactive)
|
|
(goto-char (point-max))
|
|
(evil-append 1))
|