(defun flip (f) (lambda (x y) (funcall f y x)))
(defun fold (f x list) (cl-reduce f list :initial-value x))

(defun alist-get-in (path alist)
  (fold (flip #'alist-get) alist path))

(alist-get-in '(a b c) '((a (_) (b (c . value)))))
;; => value

(cl-defmethod org-roam-node-backlinkscount ((node org-roam-node))
  "Return the backlink count of NODE."
  (let* ((count (caar (org-roam-db-query
                       [:select (funcall count source)
                                :from links
                                :where (= dest $s1)
                                :and (= type "id")]
                       (org-roam-node-id node)))))
    (propertize (format "[%d]" count) 'face 'bold)))
(setq org-roam-node-display-template
        "${directories:5} ${tags:30} ${title:50} ${backlinkscount:6}")