awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-09-20 16:10:56 -05:00
Code Issues Packages Projects Releases Wiki Activity

(fix) strip todo, priority, and tags from headline candidates (#1052)

Browse Source 
Fixes #1047
This commit is contained in:
Jethro Kuan
2020-08-20 15:01:19 +08:00
committed by GitHub
parent c33867e6bc
commit 4e5b52fbd3
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
org-roam.el
View File

@@ -1203,8 +1203,6 @@ If USE-STACK, include the parent paths as well."
(or (find-buffer-visiting file) (or (find-buffer-visiting file)
(find-file-noselect file))) (find-file-noselect file)))
(current-buffer))) (current-buffer)))
(bol-regex (concat "^\\(?:" outline-regexp "\\)"))
(outline-title-fn (lambda () (buffer-substring-no-properties (point) (line-end-position))))
(outline-level-fn outline-level) (outline-level-fn outline-level)
(path-separator "/") (path-separator "/")
(stack-level 0) (stack-level 0)
@@ -1212,11 +1210,9 @@ If USE-STACK, include the parent paths as well."
(with-current-buffer buf (with-current-buffer buf
(save-excursion (save-excursion
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward bol-regex nil t) (while (re-search-forward org-complex-heading-regexp nil t)
(save-excursion (save-excursion
(setq name (or (save-match-data (setq name (substring-no-properties (or (match-string 4) "")))
(funcall outline-title-fn))
""))
(setq marker (point-marker)) (setq marker (point-marker))
(when use-stack (when use-stack
(goto-char (match-beginning 0)) (goto-char (match-beginning 0))