Insert link from consult-org-headings with embark

consult-org-heading-store-link.el

(defun my/org-link-heading-here (cand)
    (when-let ((marker (get-text-property 0 'consult--candidate cand)))
      (save-excursion
	(with-current-buffer (marker-buffer marker)
	  (goto-char marker)
	  (org-store-link nil t)))
      (org-insert-all-links 1 "" " ")))
(defvar-keymap embark-consult-org-heading-map
  :doc "Keymap for operating on org headings"
  :parent embark-general-map
  "l" 'my/org-link-heading-here)
(add-to-list 'embark-keymap-alist '(consult-org-heading . embark-consult-org-heading-map))
;; make sure it quits to restore point
(setf (alist-get 'my/org-link-heading-here embark-quit-after-action) t)

No I didn't, mostly because I use a single Org file per context. But good to know nevertheless.