how to add consult-org-heading to consult-buffer sources

[dasoju]

Hi
I want to add consult-org-heading to consult-buffers sources, i tried few things but not able to get it right
can anyone please share if you have done this

even if you can help with adding consult-imenu to the buffer sources, that will be of great help

Thanks !

[dasoju]

I tried folloiwng but still not able to get it to work
(defvar my-consult-org-heading-source
`(:name "Org Heading"
:category 'org-heading
:items ,(lambda() (when (derived-mode-p #'org-mode) (consult-org--headings nil nil nil)))
;; :sort nil
;; :require-match t
;; :history '(:input consult-org--history)
:narrow ,#'consult-org--narrow
:state ,#'consult--jump-state
:annotate ,#'consult-org--annotate
:group ,(lambda() (and prefix #'consult-org--group))
:lookup ,(lambda() (apply-partially #'consult--lookup-prop 'org-marker))
))
(add-to-list 'consult-buffer-sources 'my-consult-org-heading-source 'append)

[minad]

Could you please wrap your code in blocks such that it becomes readable and highlighted?

[dasoju]

Sorry, my mistake, should have thought better. Please see below

  (require 'consult-org)
  (defun my/consult-org--heading-state ()
    "State function for Org headings with preview."
    (consult--state-with-return
     (my/consult-org--heading-preview)
     #'my/consult-org--heading-jump))

  (defun my/consult-org--heading-preview ()
    "The preview function used if selecting from a list of Org headings.
Simply wraps `consult--jump-preview'."
    ;; the closure that `consult--jump-preview' returns must be retained for the
    ;; duration of completion, since it stores the list of overlays to remove
    ;; ('restore' variable)
    ;;(let ((preview-fn (consult--jump-preview)))
      (lambda (action cand)
	(let ((preview-fn (consult--jump-preview)))
	(funcall preview-fn action
		 (when cand (get-text-property 0 'org-marker cand))))))

  (defun my/consult-org--heading-jump (heading)
    "Jump to Org HEADING.
Simply wraps `consult--jump'."
    (consult--jump (get-text-property 0 'org-marker heading)))

  (defvar my-consult-org-heading-source
    `(:name "Org Heading"
	    :category org-heading
	    :items ,(apply #'consult-org--headings '(nil nil nil))
	    :history consult-org--history
	    :narrow ,(consult-org--narrow)
	    :state ,#'my/consult-org--heading-state
	    :annotate ,#'consult-org--annotate))

  (add-to-list 'consult-buffer-sources 'my-consult-org-heading-source 'append)