From 6f3cb7a8b5cb66d2ffe07fdcfb59e8fd983539f9 Mon Sep 17 00:00:00 2001
From: =?utf8?q?=D0=94=D1=8F=D0=B4=D0=BE=D0=B2=20=D0=92=D0=B0=D1=81=D0=B8?=
 =?utf8?q?=D0=BB=20=D0=A1=D1=82=D0=BE=D1=8F=D0=BD=D0=BE=D0=B2?=
 <vdyadov@elvees.com>
Date: Thu, 24 Jan 2013 16:10:56 +0100
Subject: [PATCH] org-docview.el (org-docview-export): New function to export
 docview links

* org-docview.el (org-docview-export): New function to export
docview links.

TINYCHANGE

Patch slightly modified by Bastien.
---
 lisp/org-docview.el | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/lisp/org-docview.el b/lisp/org-docview.el
index 64c215d8d..d9208787a 100644
--- a/lisp/org-docview.el
+++ b/lisp/org-docview.el
@@ -51,9 +51,22 @@
 
 (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-export)
 (add-hook 'org-store-link-functions 'org-docview-store-link)
 
+(defun org-docview-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)))
+    (when (stringp path)
+      (setq path (org-link-escape (expand-file-name path)))
+      (cond
+       ((eq format 'html) (format "<a href=\"%s\">%s</a>" path desc))
+       ((eq format 'latex) (format "\href{%s}{%s}" path desc))
+       ((eq format 'ascii) (format "%s (%s)" desc path))
+       (t path)))))
+
 (defun org-docview-open (link)
   (when (string-match "\\(.*\\)::\\([0-9]+\\)$"  link)
     (let* ((path (match-string 1 link))
-- 
2.11.4.GIT