Allow to show backlinks directly from Org agenda buffers

This is more convenient than to first switch to the item in the corrsponding Org
mode buffer and then querying for its backlinks.
This commit is contained in:
dbo 2021-03-27 10:39:53 +01:00
父節點 732323edfc
當前提交 96638b09e4
沒有發現已知的金鑰在資料庫的簽署中
GPG 金鑰 ID: 1C7071A75BB72D64
共有 1 個檔案被更改,包括 13 行新增6 行删除

查看文件

@ -704,14 +704,21 @@ linking to any item."
"Find links to current item.
Only links using the ID or CUSTOM_ID property are considered.
If ARG is given, or if not in an Org Mode buffer, interactively
prompt for an item."
If ARG is given, or if neither in an Org Mode buffer nor on a
headline in an Org Agenda buffer, interactively prompt for an
item."
(interactive "P")
(apply #'db/org-find-items-linking-by-id
(if (and (derived-mode-p 'org-mode) (not arg))
(list (org-id-get) (org-entry-get nil "CUSTOM_ID"))
(org-with-point-at (db/org--get-location)
(list (org-id-get) (org-entry-get nil "CUSTOM_ID"))))))
(cond ((and (not arg) (derived-mode-p 'org-mode))
(list (org-id-get) (org-entry-get nil "CUSTOM_ID")))
((and (not arg)
(derived-mode-p 'org-agenda-mode)
(org-get-at-bol 'org-hd-marker))
(org-with-point-at (org-get-at-bol 'org-hd-marker)
(list (org-id-get) (org-entry-get nil "CUSTOM_ID"))))
(t
(org-with-point-at (db/org--get-location)
(list (org-id-get) (org-entry-get nil "CUSTOM_ID")))))))
(defun db/org-add-link-to-other-item (arg)
"Interactively query for item and add link to it at point.