Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add shell commands run in Eat to Emacs history

Browse source 
* eat.el (eat-enable-shell-command-history): New user option.
* eat.el (eat--set-cmd): New function.
* eat.el (eat-exec, eat--eshell-setup-proc-and-term): Call
'eat--set-cmd' when the shell reports the command being run.
This commit is contained in:
Akib Azmain Turja 2022-12-06 12:23:28 +06:00
parent 9caa496e45
commit b4d07cb474
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 20 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
eat.el
View file

@ -151,6 +151,16 @@ to setup your shell."
:group 'eat-ui :group 'eat-ui
:group 'eat-eshell) :group 'eat-eshell)
(defcustom eat-enable-shell-command-history t
"Non-nil means add shell commands to Emacs history.
When non-nil, any command you run in your shell will also appear in
the history of commands like `eat', `shell-command' and
`async-shell-command'."
:type 'boolean
:group 'eat-ui
:group 'eat-eshell)
(defconst eat--cursor-type-value-type (defconst eat--cursor-type-value-type
(let ((cur-type (let ((cur-type
'(choice '(choice
@ -4159,6 +4169,12 @@ If HOST isn't the host Emacs is running on, don't do anything."
(string= host (system-name))) (string= host (system-name)))
(ignore-errors (ignore-errors
(cd-absolute cwd)))) (cd-absolute cwd))))
(defun eat--set-cmd (_ cmd)
"Add CMD to `shell-command-history'."
(when eat-enable-shell-command-history
(add-to-history 'shell-command-history cmd)))
;;;;; Input. ;;;;; Input.
@ -4799,7 +4815,8 @@ same Eat buffer. The hook `eat-exec-hook' is run after each exec."
(eat-term-manipulate-selection-function eat--terminal) (eat-term-manipulate-selection-function eat--terminal)
#'eat--manipulate-kill-ring #'eat--manipulate-kill-ring
(eat-term-ring-bell-function eat--terminal) #'eat--bell (eat-term-ring-bell-function eat--terminal) #'eat--bell
(eat-term-set-cwd-function eat--terminal) #'eat--set-cwd) (eat-term-set-cwd-function eat--terminal) #'eat--set-cwd
(eat-term-set-cmd-function eat--terminal) #'eat--set-cmd)
;; Crank up a new process. ;; Crank up a new process.
(let* ((size (eat-term-size eat--terminal)) (let* ((size (eat-term-size eat--terminal))
(process-environment (process-environment
@ -5064,7 +5081,8 @@ PROGRAM can be a shell command."
(eat-term-manipulate-selection-function eat--terminal) (eat-term-manipulate-selection-function eat--terminal)
#'eat--manipulate-kill-ring #'eat--manipulate-kill-ring
(eat-term-ring-bell-function eat--terminal) #'eat--bell (eat-term-ring-bell-function eat--terminal) #'eat--bell
(eat-term-set-cwd-function eat--terminal) #'eat--set-cwd) (eat-term-set-cwd-function eat--terminal) #'eat--set-cwd
(eat-term-set-cmd-function eat--terminal) #'eat--set-cmd)
(when-let* ((window (get-buffer-window nil t))) (when-let* ((window (get-buffer-window nil t)))
(with-selected-window window (with-selected-window window
(eat-term-resize eat--terminal (window-max-chars-per-line) (eat-term-resize eat--terminal (window-max-chars-per-line)