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

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

@ -1236,12 +1236,6 @@ 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
((match-id
(s)
(-some->> (s-match "id:\\([^][]\\{36\\}\\)" s)
(cadr)
(substring-no-properties))))
(save-excursion (save-excursion
(when start (when start
(goto-char start)) (goto-char start))
@ -1252,7 +1246,7 @@ A date like (YEAR MONTH DAY).")
(when (string-match "id:\\([^][]\\{36\\}\\)" (car ss)) (when (string-match "id:\\([^][]\\{36\\}\\)" (car ss))
(!cons (match-string-no-properties 1 (car ss)) acc)) (!cons (match-string-no-properties 1 (car ss)) acc))
(!cdr ss)) (!cdr ss))
acc))))) acc))))
(defun org-x-dag-line-regexp (kws) (defun org-x-dag-line-regexp (kws)
(let ((level-re "\\(\\*+\\)") (let ((level-re "\\(\\*+\\)")