sqrtminusone/eshell-atuin
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/eshell-atuin.git synced 2025-12-10 12:23:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #7 from jeffkreeftmeijer/eshell-bol-ignoring-prompt

Browse source 
Use eshell-bol-ignoring-prompt on Emacs 30
This commit is contained in:
Pavel Korytov 2024-04-09 12:32:39 +03:00 • committed by GitHub
commit 1b71d4c180
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
eshell-atuin.el
View file

@ -128,10 +128,15 @@ include here. Some examples:
(defvar eshell-atuin--session-id nil (defvar eshell-atuin--session-id nil
"Current atuin session ID.") "Current atuin session ID.")
(defun eshell-atuin--bol-ignoring-prompt ()
(if (fboundp 'eshell-bol-ignoring-prompt)
(eshell-bol-ignoring-prompt nil)
(beginning-of-line)))
(defun eshell-atuin--get-input () (defun eshell-atuin--get-input ()
"Get eshell input string on the current line." "Get eshell input string on the current line."
(save-excursion (save-excursion
(beginning-of-line) (eshell-atuin--bol-ignoring-prompt)
(when (looking-at-p eshell-prompt-regexp) (when (looking-at-p eshell-prompt-regexp)
(substring-no-properties (eshell-get-old-input))))) (substring-no-properties (eshell-get-old-input)))))