awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-07 12:47:23 -05:00
Code Issues Packages Projects Releases Wiki Activity

(fix): fix org-ref cite links (#1637)

Browse Source
This commit is contained in:
Jethro Kuan
2021-07-20 16:25:54 +08:00
committed by GitHub
parent 3ea433c09d
commit 7d5b7e6185
1 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
org-roam-db.el
View File

@ -422,14 +422,23 @@ If UPDATE-P is non-nil, first remove the file in the database."
(save-excursion (save-excursion
(goto-char (org-element-property :begin link)) (goto-char (org-element-property :begin link))
(let ((type (org-element-property :type link)) (let ((type (org-element-property :type link))
(dest (org-element-property :path link)) (path (org-element-property :path link))
(properties (list :outline (org-get-outline-path))) (properties (list :outline (org-get-outline-path)))
(source (org-roam-id-at-point))) (source (org-roam-id-at-point)))
(when source ;; For Org-ref links, we need to split the path into the cite keys
(when (and (boundp 'org-ref-cite-types)
(fboundp 'org-ref-split-and-strip-string)
(member type org-ref-cite-types))
(setq path (org-ref-split-and-strip-string path)))
(unless (listp path)
(setq path (list path)))
(when (and source path)
(org-roam-db-query (org-roam-db-query
[:insert :into links [:insert :into links
:values $v1] :values $v1]
(vector (point) source dest type properties)))))) (mapcar (lambda (p)
(vector (point) source p type properties))
path))))))
;;;;; Fetching ;;;;; Fetching
(defun org-roam-db--get-current-files () (defun org-roam-db--get-current-files ()