branch: externals/consult-denote
commit 183a31d27354b6cd840899d47c830746263ea4b4
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Add prototype consult-denote-outline-prompt
---
consult-denote.el | 23 ++++++++++++++++++++---
1 file changed, 20 insertions(+), 3 deletions(-)
diff --git a/consult-denote.el b/consult-denote.el
index 9afdc20789..ed113816c3 100644
--- a/consult-denote.el
+++ b/consult-denote.el
@@ -146,6 +146,23 @@ Return the absolute path to the matching file."
:state (consult--file-preview)
:history 'denote-link-find-file-history)))
+;; FIXME 2024-07-03: We need a :state function that previews the
+;; current line in the given buffer and then restores the window
+;; configuration.
+(defun consult-denote-outline-prompt (&optional file)
+ "Like `denote-org-extras-outline-prompt' with Consult preview.
+FILE has the same meaning as in `denote-org-extras-outline-prompt'."
+ (let ((current-file (or file buffer-file-name)))
+ (consult--read
+ (denote--completion-table-no-sort 'imenu (denote-org-extras--get-outline
current-file))
+ :state (lambda (_action candidate)
+ (with-current-buffer (current-buffer)
+ (when-let ((_ candidate)
+ (line (string-to-number (car (split-string
candidate)))))
+ (goto-line line (get-file-buffer current-file)))))
+ :prompt (format "Select heading inside `%s': " (propertize
(file-name-nondirectory current-file) 'face 'denote-faces-prompt-current-name))
+ :require-match t)))
+
;;;; Commands
;;;###autoload
@@ -226,9 +243,6 @@ Return the absolute path to the matching file."
:state ,#'consult--file-state
:items ,denote-silo-extras-directories)))
-;; TODO 2024-03-30: Cover the `denote-org-extras--outline-prompt'. It
-;; will be like `consult-outline' in presentation.
-
;; TODO 2024-03-30: Cover the `denote-silo-extras--directory-prompt'.
;; It is a regular directory prompt. Preview the dired buffer.
@@ -244,10 +258,13 @@ Return the absolute path to the matching file."
(add-to-list 'consult-buffer-sources source :append))
(advice-add #'denote-file-prompt :override
#'consult-denote-file-prompt)
(advice-add #'denote-select-linked-file-prompt :override
#'consult-denote-select-linked-file-prompt))
+ ;; See FIXME where this function is defined.
+ (advice-add #'denote-org-extras-outline-prompt :override
#'consult-denote-outline-prompt)
(dolist (source consult-denote-buffer-sources)
(setq consult-buffer-sources (delq source consult-buffer-sources)))
(advice-remove #'denote-file-prompt #'consult-denote-file-prompt)
(advice-remove #'denote-select-linked-file-prompt
#'consult-denote-select-linked-file-prompt)))
+ (advice-remove #'denote-org-extras-outline-prompt
#'consult-denote-outline-prompt)
(provide 'consult-denote)
;;; consult-denote.el ends here
