my-org-link-to-headline

my-org-link-to-headline.el

(require 'org-element)
(require 'org-id)


(defun my-org-link-to-headline ()
  "Insert org-id link to a headline from a selected Org file."
  (interactive)
  (let ((file (read-file-name "Select Org file: " default-directory nil t nil))
	(table (make-hash-table :test 'equal))
	(parsed-data)
	(headline))
    (with-temp-buffer
      (insert-file-contents file)
      (setq parsed-data (org-element-parse-buffer)))
    (org-element-map parsed-data 'headline
      (lambda (hl)
        (let* ((title (org-element-property :raw-value hl))
               (id (org-element-property :ID hl)))
          (when title
            (puthash title id table)))))
    (setq headline (completing-read "Which headline: " (hash-table-keys table)))
    (insert (org-make-link-string (concat "id:" (gethash headline table)) headline))))