From 297cc8fa058c4e7e4ed81cacb6f9cb946f878e4f Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 12 Apr 2025 16:46:20 +0200 Subject: [PATCH] Provide thing at point for consult line history Inspired by https://arialdomartini.github.io/consult-line-at-point. --- init.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index cc4c73b..8c68a07 100644 --- a/init.el +++ b/init.el @@ -2380,6 +2380,7 @@ Note that this workaround is incomplete, as explained in this comment." consult-buffer consult-imenu consult-line + consult-line-thing-at-point consult-mark consult-yank-pop consult-outline) @@ -2391,7 +2392,15 @@ Note that this workaround is incomplete, as explained in this comment." consult-async-input-throttle 0.8 consult-narrow-key nil 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 :commands (global-corfu-mode corfu-mode))