oref-ocite.el

(defun org-ref-to-org-cite ()
      "Attempt to convert org-ref citations to org-cite syntax."
      ; adapted from https://tecosaur.github.io/emacs-config/config.html#citation,code--4
      (interactive)
      (let* ((cite-conversions '(("cite" . "//b") ("Cite" . "//bc")
                             ("nocite" . "/n")
                             ("citep" . "") ("citep*" . "//f")
                             ("parencite" . "") ("Parencite" . "//c")
                             ("citeauthor" . "/a/f") ("citeauthor*" . "/a")
                             ("citeyear" . "/na/b")
                             ("Citep" . "//c") ("Citealp" . "//bc")
                             ("Citeauthor" . "/a/cf") ("Citeauthor*" . "/a/c")
                             ("autocite" . "") ("Autocite" . "//c")
                             ("textcite" . "/text") ("Textcite" . "/text")
                             ("notecite" . "/l/b") ("Notecite" . "/l/bc")
                             ("pnotecite" . "/l") ("Pnotecite" . "/l/bc")))
             (cite-regexp (rx (? "[[") (regexp (regexp-opt (mapcar #'car cite-conversions) t))
                              ":"
                              (group (or (+ (not (any "\n     ,.)]}")))))
                              (opt "]")
                              (opt (seq "[" (group (+ (any alnum ","))(opt (seq "\\" (+ alpha))))"]]")))))
    (save-excursion
     (goto-char (point-min))
     (while (re-search-forward cite-regexp nil t)
            (message (format "[cite%s:@%s%s"
                             (cdr (assoc (match-string 1) cite-conversions))
                             (match-string 2)
                             (if (match-string 3)
                                 (concat " " (string-replace "\\" "\\\\" (match-string 3))) (concat ""))))
            (replace-match (format "[cite%s:@%s%s"
                                   (cdr (assoc (match-string 1) cite-conversions))
                                   (match-string 2)
                                   (if (match-string 3)
                                       (concat " " (string-replace "\\" "\\\\" (match-string 3))) (concat ""))))))))