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

(fix): fix link outline extraction (#1085)

Browse Source
This commit is contained in:
Jethro Kuan
2020-09-04 20:37:02 +08:00
committed by GitHub
parent 8fff0b86f9
commit d3a920a5b7
2 changed files with 43 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
org-roam.el
View File

@ -581,14 +581,14 @@ it as FILE-PATH."
(require 'org-ref nil t) (require 'org-ref nil t)
(unless file-path (unless file-path
(setq file-path (file-truename (buffer-file-name)))) (setq file-path (file-truename (buffer-file-name))))
(save-excursion
(let (links) (let (links)
(org-element-map (org-element-parse-buffer) 'link (org-element-map (org-element-parse-buffer) 'link
(lambda (link) (lambda (link)
(goto-char (org-element-property :begin link))
(let* ((type (org-element-property :type link)) (let* ((type (org-element-property :type link))
(path (org-element-property :path link)) (path (org-element-property :path link))
(element (save-excursion (element (org-element-at-point))
(goto-char (org-element-property :begin link))
(org-element-at-point)))
(begin (or (org-element-property :content-begin element) (begin (or (org-element-property :content-begin element)
(org-element-property :begin element))) (org-element-property :begin element)))
(content (or (org-element-property :raw-value element) (content (or (org-element-property :raw-value element)
@ -622,7 +622,7 @@ it as FILE-PATH."
(dolist (name names) (dolist (name names)
(when name (when name
(push (vector file-path name type properties) links)))))) (push (vector file-path name type properties) links))))))
links)) links)))
(defun org-roam--extract-headlines (&optional file-path) (defun org-roam--extract-headlines (&optional file-path)
"Extract all headlines with IDs within the current buffer. "Extract all headlines with IDs within the current buffer.

2
tests/test-org-roam-perf.el
View File

@ -45,7 +45,7 @@
(pcase (benchmark-run 1 (org-roam-db-build-cache t)) (pcase (benchmark-run 1 (org-roam-db-build-cache t))
(`(,time ,gcs ,time-in-gc) (`(,time ,gcs ,time-in-gc)
(message "Elapsed time: %fs (%fs in %d GCs)" time time-in-gc gcs) (message "Elapsed time: %fs (%fs in %d GCs)" time time-in-gc gcs)
(expect time :to-be-less-than 70)))) (expect time :to-be-less-than 90))))
(it "builds quickly without change" (it "builds quickly without change"
(pcase (benchmark-run 1 (org-roam-db-build-cache)) (pcase (benchmark-run 1 (org-roam-db-build-cache))
(`(,time ,gcs ,time-in-gc) (`(,time ,gcs ,time-in-gc)