stop completing-read sorting atuin history.

This commit is contained in:
wangyuanmou 2025-02-27 13:10:41 +08:00
parent 1bffa5e921
commit c408d07c5f

View file

@ -492,7 +492,13 @@ Be sure to have the correct `eshell-prompt-regexp' set up!"
(eshell-atuin--history-update)) (eshell-atuin--history-update))
(let* ((commands (eshell-atuin--history-collection)) (let* ((commands (eshell-atuin--history-collection))
(input (eshell-atuin--get-input)) (input (eshell-atuin--get-input))
(compl (completing-read "History: " commands nil nil input)) (completion-table (lambda (string pred action)
(if (eq action 'metadata)
'(metadata (display-sort-function . identity)
(cycle-sort-function . identity))
(complete-with-action
action commands string pred))))
(compl (completing-read "History: " completion-table nil nil input))
(command (command
(alist-get 'command (alist-get 'command
(gethash compl eshell-atuin--history-cache-format-index)))) (gethash compl eshell-atuin--history-cache-format-index))))