diff -Naur a/org-docview.el b/org-docview.el --- a/org-docview.el 2013-01-17 11:45:13.389208433 +0400 +++ b/org-docview.el 2013-01-17 11:47:43.881896241 +0400 @@ -51,9 +51,20 @@ (autoload 'doc-view-goto-page "doc-view") -(org-add-link-type "docview" 'org-docview-open) +(org-add-link-type "docview" 'org-docview-open 'org-docview-link-export) (add-hook 'org-store-link-functions 'org-docview-store-link) +(defun org-docview-link-export (link description format) + "Export a docview link from Org files." + (let* ((path (when (string-match "\\(.+\\)::.+" link) + (match-string 1 link))) + (desc (or description link))) + (cond + ((eq format 'html) + (format "%s" + path desc)) + (t path)))) + (defun org-docview-open (link) (when (string-match "\\(.*\\)::\\([0-9]+\\)$" link) (let* ((path (match-string 1 link)) Diff finished. Thu Jan 17 11:49:46 2013