branch: externals/denote
commit d3d30a5adc5e4099cc75356ea7d5fc65d27cffac
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Rename a private function for consistency and tweak its docstring
This builds on top of the new fontification feature provided by
Abdul-Lateef Haji-Ali in
pull request 344 (commit 4d12452):
<https://github.com/protesilaos/denote/pull/344>.
---
denote.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/denote.el b/denote.el
index 6cc4d204b1..ed8990434d 100644
--- a/denote.el
+++ b/denote.el
@@ -4277,8 +4277,8 @@ Implementation based on the function
`org-activate-links'."
(throw :exit t)))))) ; signal success
nil))
-(defun denote--get-link-url-at-point ()
- "Return the denote link under point.
+(defun denote--get-link-file-path-at-point ()
+ "Return link to the Denote file path at point.
To be used as a `thing-at' provider."
(when-let (id (get-text-property (point) 'denote-link-id))
(concat "file:" (denote-get-path-by-id id))))
@@ -4292,7 +4292,7 @@ To be used as a `thing-at' provider."
(with-eval-after-load 'thingatpt
(make-local-variable 'thing-at-point-provider-alist)
(add-to-list 'thing-at-point-provider-alist
- '(url . denote--get-link-url-at-point))))
+ '(url . denote--get-link-file-path-at-point)))
(font-lock-remove-keywords nil '(denote-fontify-links))
(with-eval-after-load 'thingatpt
(set 'thing-at-point-provider-alist
