From 76f30deb675514a7f73da317f0262e50e838fba9 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sun, 27 Mar 2022 13:25:49 -0400 Subject: [PATCH] REF remove dead code --- local/lib/org-x/org-x-dag.el | 28 +++++++++++----------------- 1 file changed, 11 insertions(+), 17 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index c30ddb1..329afa2 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -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 "\\(\\*+\\)")