aciceri/emacs
Archived
1
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

Disable highlighting in ccr/consult-history

Browse source
This commit is contained in:
Andrea Ciceri 2023-10-17 11:26:50 +02:00
parent b196807347
commit c99617dc84
Signed by: aciceri
SSH key fingerprint: SHA256:/AagBweyV4Hlfg9u092n8hbHwD5fcB6A3qhDiDA65Rg
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
init.el
View file

@ -596,13 +596,15 @@
(let* ((history (delete-dups (when (> (ring-size eshell-history-ring) 0) (let* ((history (delete-dups (when (> (ring-size eshell-history-ring) 0)
(ring-elements eshell-history-ring)))) (ring-elements eshell-history-ring))))
(history-highlighted (mapcar #'(lambda (cmd) (history-highlighted (mapcar #'(lambda (cmd)
(with-temp-buffer (with-temp-buffer
(insert cmd) (text-mode)
(forward-line 0) (insert cmd)
(eshell-syntax-highlighting--parse-and-highlight 'command (point-max)) (forward-line 0)
(add-face-text-property (point-min) (point-max) '(:background nil)) ;; FIXME it breaks trying to highlight commands like `cd /ssh:host:~'
(buffer-string))) ;; (eshell-syntax-highlighting--parse-and-highlight 'command (point-max))
history)) (add-face-text-property (point-min) (point-max) '(:background nil))
(buffer-string)))
history))
(command (completing-read (command (completing-read
"Command: " "Command: "
history-highlighted history-highlighted