From d142559096b3e3ee288d439c59fa6a30abe1b11f Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Sat, 15 Feb 2025 17:45:49 +1300 Subject: [PATCH] Extract function to fix breakage --- lisp/org-roam-rewrite.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/lisp/org-roam-rewrite.el b/lisp/org-roam-rewrite.el index 8eb2c8a..b708fb1 100644 --- a/lisp/org-roam-rewrite.el +++ b/lisp/org-roam-rewrite.el @@ -159,24 +159,24 @@ It is called with the renamed node as the current buffer." (plisty-define org-roam-rewrite-backlink-transformer-result :required (:id :desc)) +(defun org-roam-rewrite--normalise-title (title) + (replace-regexp-in-string (rx (+ (any space "\n"))) "" + (downcase title))) + (defun org-roam-rewrite-backlink-transformer (args-plist) - (cl-labels ((normalise - (str) - (replace-regexp-in-string (rx (+ (any space "\n"))) "" - (downcase str)))) - (-let* (((&plist :prev-node :new-id :new-desc :prev-desc) - args-plist) + (-let* (((&plist :prev-node :new-id :new-desc :prev-desc) + args-plist) - (norm-titles (cons (normalise (org-roam-node-title prev-node)) - (seq-map 'normalise (org-roam-node-aliases prev-node)))) + (norm-titles (cons (org-roam-rewrite--normalise-title (org-roam-node-title prev-node)) + (seq-map #'org-roam-rewrite--normalise-title (org-roam-node-aliases prev-node)))) - (desc-customised-p - (not (seq-contains-p norm-titles (normalise prev-desc)))) + (desc-customised-p + (not (seq-contains-p norm-titles (org-roam-rewrite--normalise-title prev-desc)))) - (updated-desc - (if desc-customised-p prev-desc new-desc))) + (updated-desc + (if desc-customised-p prev-desc new-desc))) - (list :id new-id :desc updated-desc)))) + (list :id new-id :desc updated-desc))) (defun org-roam-rewrite--parse-link-at-point () (save-match-data