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

(internal): use regexp search for link-extraction (#1066)

Browse Source 
Replace call to org-element-parse-buffer with simple regexp search.
This commit is contained in:
Jethro Kuan
2020-08-25 18:24:29 +08:00
committed by GitHub
parent 0a64a5def4
commit 4f0b1b8d43
1 changed files with 41 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
org-roam.el
View File

@ -579,16 +579,18 @@ FILE-FROM is typically the buffer file path, but this may not exist, for example
in temp buffers. In cases where this occurs, we do know the file path, and pass in temp buffers. In cases where this occurs, we do know the file path, and pass
it as FILE-PATH." it as FILE-PATH."
(require 'org-ref nil t) (require 'org-ref nil t)
(let ((file-path (or file-path (unless file-path
(file-truename (buffer-file-name)))) (setq file-path (file-truename (buffer-file-name))))
links) (let (links)
(org-element-map (org-element-parse-buffer) 'link (save-excursion
(lambda (link) (goto-char (point-min))
(let* ((type (org-element-property :type link)) (while (re-search-forward org-link-any-re nil t)
(save-excursion
(goto-char (match-beginning 0))
(let* ((link (org-element-link-parser))
(type (org-element-property :type link))
(path (org-element-property :path link)) (path (org-element-property :path link))
(start (org-element-property :begin link))) (element (org-element-at-point))
(goto-char start)
(let* ((element (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)
@ -597,9 +599,8 @@ it as FILE-PATH."
(or (org-element-property :content-end element) (or (org-element-property :content-end element)
(org-element-property :end element))))) (org-element-property :end element)))))
(content (string-trim content)) (content (string-trim content))
;; Expand all relative links to absolute links (content (org-roam--expand-links content file-path))
(content (org-roam--expand-links content file-path))) (properties (list :outline (mapcar (lambda (path)
(let ((properties (list :outline (mapcar (lambda (path)
(org-roam--expand-links path file-path)) (org-roam--expand-links path file-path))
(org-roam--get-outline-path)) (org-roam--get-outline-path))
:content content :content content
@ -620,14 +621,9 @@ it as FILE-PATH."
(if (f-exists? file-maybe) (if (f-exists? file-maybe)
(list file-maybe) (list file-maybe)
(list path)))))))) (list path))))))))
(seq-do (lambda (name) (dolist (name names)
(when name (when name
(push (vector file-path (push (vector file-path name type properties) links)))))))
name
type
properties)
links)))
names))))))
links)) links))
(defun org-roam--extract-headlines (&optional file-path) (defun org-roam--extract-headlines (&optional file-path)