ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF remove dead code

This commit is contained in:
Nathan Dwarshuis 2022-03-27 13:25:49 -04:00
parent a028abb822
commit 76f30deb67
1 changed files with 11 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
local/lib/org-x/org-x-dag.el
View File

@ -1236,23 +1236,17 @@ A date like (YEAR MONTH DAY).")
(save-excursion (outline-next-heading)))
(defun org-x-dag-get-parent-links (start end)
(cl-flet
((match-id
(s)
(-some->> (s-match "id:\\([^][]\\{36\\}\\)" s)
(cadr)
(substring-no-properties))))
(save-excursion
(when start
(goto-char start))
(when (re-search-forward org-x-dag-parent-link-drawer-re end t)
(let ((ss (split-string (match-string-no-properties 1) "\n" t))
acc)
(while ss
(when (string-match "id:\\([^][]\\{36\\}\\)" (car ss))
(!cons (match-string-no-properties 1 (car ss)) acc))
(!cdr ss))
acc)))))
(save-excursion
(when start
(goto-char start))
(when (re-search-forward org-x-dag-parent-link-drawer-re end t)
(let ((ss (split-string (match-string-no-properties 1) "\n" t))
acc)
(while ss
(when (string-match "id:\\([^][]\\{36\\}\\)" (car ss))
(!cons (match-string-no-properties 1 (car ss)) acc))
(!cdr ss))
acc))))
(defun org-x-dag-line-regexp (kws)
(let ((level-re "\\(\\*+\\)")