org-ref-man.el

(defun my-org-extract-link ()
  "Extract the link location at point and put it on the killring."
  (interactive)
  (save-excursion
    ;; TODO: capture `file-name' details
    ;; TODO: capture `title' details
    (when (org-in-regexp org-bracket-link-regexp 1)
      (let ((record-file (org-link-unescape (org-match-string-no-properties 1)))
	    (record-title (org-link-unescape (org-match-string-no-properties 3))))
	(message (concat "File: " record-file ", Title: " record-title))))))