org mode 如何搜索标题直接插入链接

[VagrantJoker]

用 embark 应该是最方便的，详见 关于 embark ，大家有什么小技巧或者 hack 吗？

@VagrantJoker

  (defun embark-heading-insert-backlink (target)
    (let* ((marker (plist-get
                    (text-properties-at 0 target)
                    'consult--candidate))
           (headline-name (substring (org-no-properties target)
                                     0 -1))
           (headline-id (with-current-buffer
                            (marker-buffer marker)
                          (goto-char marker)
                          (org-id-get-create))))
      (org-insert-link
	   nil (concat "id:" headline-id) headline-name)))

  (embark-define-keymap embark-org-heading-map
    "Keymap for Embark heading actions."
    ("i" embark-insert)
    ("b" embark-heading-insert-backlink)
    ("w" embark-copy-as-kill)
    ("q" embark-toggle-quit)
    ("E" embark-export)
    ("S" embark-collect)
    ("L" embark-live)
    ("B" embark-become)
    ("A" embark-act-all)
    ("C-s" embark-isearch)
    ("SPC" mark)
    ("DEL" delete-region))

  (add-to-list 'embark-keymap-alist '(consult-org-heading . embark-org-heading-map))