Improve performance of org-roam-find-node

memoize-roam-read--to-candidate

(setq dmg-roam-candidates-cache (make-hash-table :test 'equal))


(defun org-roam-node-read--to-candidate (node template)
  "Return a minibuffer completion candidate given NODE.
TEMPLATE is the processed template used to format the entry."
  (let* ((args (list node template))
         (cached-result (gethash args dmg-roam-candidates-cache))
         )
    (if cached-result
        cached-result
      (let* ((candidate-main (org-roam-node--format-entry
                             template
                             node
                             (1- (if (bufferp (current-buffer))
                                     (window-width) (frame-width)))))
            (result (cons (propertize candidate-main 'node node) node))
            )
        (progn
          (puthash args result dmg-roam-candidates-cache)
          result
        )
      ))))