From ea9ab62f2cb21da618df4e559ca0f1dfebec683e Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sat, 26 Mar 2022 18:05:09 -0400
Subject: [PATCH] ENH precompile property match strings

---
 local/lib/org-x/org-x-dag.el | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el
index 24039e4..b9c0990 100644
--- a/local/lib/org-x/org-x-dag.el
+++ b/local/lib/org-x/org-x-dag.el
@@ -1209,23 +1209,25 @@ A date like (YEAR MONTH DAY).")
 
 ;;; BUFFER SCANNING
 
-(defun org-x-dag-get-local-property (bounds prop)
+(defun org-x-dag-get-local-property (bounds prop-re)
   (-when-let ((_ beg end _) bounds)
     (save-excursion
       (goto-char beg)
-      (when (re-search-forward (org-re-property prop nil t) end t)
+      (when (re-search-forward prop-re end t)
         (match-string-no-properties 3)))))
 
-(defun org-x-dag-get-local-properties (bounds props)
+(defun org-x-dag-get-local-properties (bounds prop-pairs)
   (when bounds
-    (-let (((_ beg end _) bounds))
+    (-let (((_ beg end _) bounds)
+           (cur))
       (save-excursion
         (let (acc)
-          (while props
+          (while prop-pairs
             (goto-char beg)
-            (when (re-search-forward (org-re-property (car props) nil t) end t)
-              (!cons (cons (car props) (match-string-no-properties 3)) acc))
-            (!cdr props))
+            (setq cur (car prop-pairs))
+            (when (re-search-forward (cdr cur) end t)
+              (!cons (cons (car cur) (match-string-no-properties 3)) acc))
+            (!cdr prop-pairs))
           acc)))))
 
 (defconst org-x-dag-parent-link-drawer-re 
@@ -1310,6 +1312,8 @@ used for optimization."
 
 (defun org-x-dag-get-buffer-nodes (file-meta kws target-props)
   (let ((line-re (org-x-dag-line-regexp kws))
+        (pps (--map (cons it (org-re-property it nil t)) target-props))
+        (id-prop (org-re-property "ID" nil t))
         cur-path this-point this-key this-level this-todo has-todo this-parent
         this-tags this-meta all-tags this-file-links this-links this-parent-key acc)
     (goto-char (point-min))
@@ -1347,7 +1351,7 @@ used for optimization."
                  (or this-parent-key (--none-p (nth 1 it) cur-path))
                  (setq
                   this-prop-bounds (org-x-dag-property-block next-pos)
-                  this-key (org-x-dag-get-local-property this-prop-bounds "ID")))
+                  this-key (org-x-dag-get-local-property this-prop-bounds id-prop)))
         ;; If parent is not a node and we want tag inheritance, store all
         ;; tags above this headline (including file tags)
         (setq this-links (or (-> (nth 3 this-prop-bounds)
@@ -1372,7 +1376,7 @@ used for optimization."
                           :planning (->> (car this-prop-bounds)
                                          (org-x-dag-parse-this-planning))
                           :props (-> this-prop-bounds
-                                     (org-x-dag-get-local-properties target-props)))))
+                                     (org-x-dag-get-local-properties pps)))))
         (!cons this-node acc))
       ;; Add current headline to stack
       ;; TODO this isn't necessary for non-node children of nodes