branch: externals/denote
commit e83ab6f106640dedc075a6b77c9c877d3ef80668
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Use correct optional parameter in denote-link-ol-store (amend commit
20005e6)
Thanks to duli for the feedback in issue 552:
<https://github.com/protesilaos/denote/issues/552>.
---
denote.el | 55 +++++++++++++++++++++++++++++--------------------------
1 file changed, 29 insertions(+), 26 deletions(-)
diff --git a/denote.el b/denote.el
index 2799f81c45..500c576f4a 100644
--- a/denote.el
+++ b/denote.el
@@ -5420,34 +5420,37 @@ create a new one."
(format "%s::%s" file-text heading-text))
;;;###autoload
-(defun denote-link-ol-store (&rest _)
+(defun denote-link-ol-store (&optional interactive?)
"Handler for `org-store-link' adding support for denote: links.
+Optional INTERACTIVE? is used by `org-store-link'.
+
Also see the user option `denote-org-store-link-to-heading'."
- (when-let* ((file (buffer-file-name))
- ((denote-file-is-note-p file))
- (file-id (denote-retrieve-filename-identifier file))
- (description (denote-get-link-description file)))
- (let ((heading-links (and denote-org-store-link-to-heading
- (derived-mode-p 'org-mode)
- (denote--org-capture-link-specifiers-p)))
- (heading (denote-link-ol-get-heading)))
- (org-link-store-props
- :type "denote"
- :description (if (and heading-links heading)
- (denote-link-format-heading-description
- description
- heading)
- description)
- :link (cond
- ((when-let* ((id (org-entry-get (point) "CUSTOM_ID")))
- (format "denote:%s::#%s" file-id id)))
- ((and heading-links (eq denote-org-store-link-to-heading
'context) heading)
- (format "denote:%s::*%s" file-id heading))
- ((and heading-links heading)
- (format "denote:%s::#%s" file-id (denote-link-ol-get-id)))
- (t
- (concat "denote:" file-id))))
- org-store-link-plist)))
+ (when interactive?
+ (when-let* ((file (buffer-file-name))
+ ((denote-file-is-note-p file))
+ (file-id (denote-retrieve-filename-identifier file))
+ (description (denote-get-link-description file)))
+ (let ((heading-links (and denote-org-store-link-to-heading
+ (derived-mode-p 'org-mode)
+ (denote--org-capture-link-specifiers-p)))
+ (heading (denote-link-ol-get-heading)))
+ (org-link-store-props
+ :type "denote"
+ :description (if (and heading-links heading)
+ (denote-link-format-heading-description
+ description
+ heading)
+ description)
+ :link (cond
+ ((when-let* ((id (org-entry-get (point) "CUSTOM_ID")))
+ (format "denote:%s::#%s" file-id id)))
+ ((and heading-links (eq denote-org-store-link-to-heading
'context) heading)
+ (format "denote:%s::*%s" file-id heading))
+ ((and heading-links heading)
+ (format "denote:%s::#%s" file-id (denote-link-ol-get-id)))
+ (t
+ (concat "denote:" file-id))))
+ org-store-link-plist))))
;;;###autoload
(defun denote-link-ol-export (link description format)
