Links to org-roam dailies from this day in previous years

org-roam-on-this-day.el

(defun gt/org-roam-on-this-day ()
  "Return a list of links to org-roam daily notes from this day in previous
   years, or NIL if none are found."
  (require 'org-roam)
  (let* ((query "SELECT id, title FROM nodes WHERE file LIKE '%%daily%%' AND file LIKE '%%' || strftime('%%y-%%d', 'now') || '%%' ORDER BY title DESC")
         (rows (org-roam-db-query query))
         (result "On this day: "))
    (if (null rows)
        nil
      (progn
        (dolist (row rows)
          (let* ((id (nth 0 row))
                 (title (nth 1 row))
                 (year (substring title 0 4)))
            (setq result (if (string= result "On this day: ")
                             (format "%s[[id:%s][%s]]" result id year)
                           (format "%s, [[id:%s][%s]]" result id year)))))
        result))))