branch: externals/consult
commit 40d784f18fb6792f3f11b6b1f3f48db17a12de1c
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
consult-org-heading: Support Embark actions
See https://github.com/oantolin/embark/issues/639
---
CHANGELOG.org | 2 ++
consult-org.el | 8 ++++----
2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/CHANGELOG.org b/CHANGELOG.org
index 960fb2c2b2..b21a973ae5 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -6,6 +6,8 @@
- =consult-fd=: New command based on the fast =fd/fdfind= search utility.
- =consult-outline=: New prefix argument to specify initial narrowing level.
+- =consult-org-heading=: Specify category =org-remote-heading= such that Embark
+ provides appropriate Org heading actions.
* Version 0.35 (2023-07-02)
diff --git a/consult-org.el b/consult-org.el
index ed96e39b0a..1880f54b19 100644
--- a/consult-org.el
+++ b/consult-org.el
@@ -84,7 +84,7 @@ MATCH, SCOPE and SKIP are as in `org-map-entries'."
tags (consult--tofu-encode idx))))
(cl-incf idx)
(add-text-properties 0 1
- `(consult--candidate ,(point-marker)
+ `(org-marker ,(point-marker)
consult-org--heading (,level ,todo . ,prio))
cand)
cand))
@@ -105,7 +105,7 @@ buffer are offered."
(or (consult-org--headings prefix match scope)
(user-error "No headings")))
:prompt "Go to heading: "
- :category 'consult-org-heading
+ :category 'org-remote-heading ;; Category for Embark support
:sort nil
:require-match t
:history '(:input consult-org--history)
@@ -116,9 +116,9 @@ buffer are offered."
(lambda (cand transform)
(let ((name (buffer-name
(marker-buffer
- (get-text-property 0 'consult--candidate cand)))))
+ (get-text-property 0 'org-marker cand)))))
(if transform (substring cand (1+ (length name))) name))))
- :lookup #'consult--lookup-candidate)))
+ :lookup (apply-partially #'consult--lookup-prop 'org-marker))))
;;;###autoload
(defun consult-org-agenda (&optional match)
