ELISP-Jump easily to a file register using completing-read (default, IDO or Helm)

jump-to-file-register.el

(defun jump-to-file-register ()
  "Jump to a file register using completing-read"
  (interactive)
  (let* ((reg-list (cl-loop for ptr-reg in register-alist
                            when (eq 'file (first (last ptr-reg)))
                            collect (concat (char-to-string (car ptr-reg)) "|" (cdr (last ptr-reg)))))
         (reg-data (completing-read "Pick file register: " reg-list))
         (reg-location (string-to-char (car (split-string reg-data "|")))))
    (jump-to-register reg-location)))