fix some byte-compile errors

org-roam-capture.el

@@ -276,8 +276,7 @@ the capture)."
              (with-current-buffer buf
                (when region
                  (delete-region (car region) (cdr region)))
-               (let ((path (org-roam-capture--get :file-path))
+               (let ((desc (org-roam-capture--get :link-description)))
-                     (desc (org-roam-capture--get :link-description)))
                  (org-with-point-at mkr
                    (insert (org-link-make-string (concat "id:" id) desc))))
                (when region

org-roam-db.el

@@ -235,17 +235,6 @@ If UPDATE-P is non-nil, first remove the file in the database."
       :values $v1]
      (list (vector file hash)))))
 
-(defun org-roam-id-at-point ()
-  "Return the ID at point, if any.
-Recursively traverses up the headline tree to find the
-first encapsulating ID."
-  (let (source)
-    (org-with-wide-buffer
-     (while (and (not (setq source (org-id-get)))
-                 (not (bobp)))
-       (org-roam-up-heading-or-point-min)))
-    source))
-
 (defun org-roam-db-get-scheduled-time ()
   "Return the scheduled time at point in ISO8601 format."
   (when-let ((time (org-get-scheduled-time (point))))

org-roam-refile.el

@@ -30,6 +30,8 @@
 ;; Org-roam refile allows you to refile notes to your nodes.
 ;;
 ;;; Code:
+(defvar org-auto-align-tags)
+(defvar org-loop-over-headlines-in-active-region)
 
 (defun org-roam-refile ()
   "Refile to node."

org-roam.el

@@ -1018,7 +1018,7 @@ in the file."
            (message "No matches."))
           ((= 1 (length matches))
            (car matches))
-          (_
+          (t
            ;; TODO: need to fix UX somehow
            (let ((choice (completing-read "Choose node:" matches nil t)))
              (cdr (assoc choice matches #'string-equal))))))))))