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))) (save-excursion (outline-next-heading)))
(defun org-x-dag-get-parent-links (start end) (defun org-x-dag-get-parent-links (start end)
(cl-flet (save-excursion
((match-id (when start
(s) (goto-char start))
(-some->> (s-match "id:\\([^][]\\{36\\}\\)" s) (when (re-search-forward org-x-dag-parent-link-drawer-re end t)
(cadr) (let ((ss (split-string (match-string-no-properties 1) "\n" t))
(substring-no-properties)))) acc)
(save-excursion (while ss
(when start (when (string-match "id:\\([^][]\\{36\\}\\)" (car ss))
(goto-char start)) (!cons (match-string-no-properties 1 (car ss)) acc))
(when (re-search-forward org-x-dag-parent-link-drawer-re end t) (!cdr ss))
(let ((ss (split-string (match-string-no-properties 1) "\n" t)) acc))))
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) (defun org-x-dag-line-regexp (kws)
(let ((level-re "\\(\\*+\\)") (let ((level-re "\\(\\*+\\)")