exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Provide thing at point for consult line history

Browse Source 
Inspired by https://arialdomartini.github.io/consult-line-at-point.
This commit is contained in:
Daniel Borchmann 2025-04-12 16:46:20 +02:00
parent f49903f168
commit 297cc8fa05
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
init.el
View File

@ -2380,6 +2380,7 @@ Note that this workaround is incomplete, as explained in this comment."
consult-buffer consult-buffer
consult-imenu consult-imenu
consult-line consult-line
consult-line-thing-at-point
consult-mark consult-mark
consult-yank-pop consult-yank-pop
consult-outline) consult-outline)
@ -2391,7 +2392,15 @@ Note that this workaround is incomplete, as explained in this comment."
consult-async-input-throttle 0.8 consult-async-input-throttle 0.8
consult-narrow-key nil consult-narrow-key nil
consult-preview-key 'any)) consult-preview-key 'any))
:config (require 'consult-imenu)) :config (progn
(require 'consult-imenu)
(consult-customize
consult-line :add-history (seq-some #'thing-at-point '(region symbol)))
(defalias 'consult-line-thing-at-point 'consult-line)
(consult-customize
consult-line-thing-at-point :initial (thing-at-point 'symbol))))
(use-package corfu (use-package corfu
:commands (global-corfu-mode corfu-mode)) :commands (global-corfu-mode corfu-mode))