emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: vdyadov@elvees.com (Дядов Васил Стоянов)
To: emacs-orgmode@gnu.org
Subject: Bug: Patch for org-docview: make normal links from docview: links on export from org to html [7.9.3d (release_7.9.3d-1-g115bd7 @ /home/vdyadov/Work/Tools/emacs/share/emacs/24.2/lisp/org/)]
Date: Thu, 17 Jan 2013 11:56:16 +0400	[thread overview]
Message-ID: <s4ytxqgtf8f.fsf@canopus-pc.elvees.com> (raw)

[-- Attachment #1: Type: text/plain, Size: 610 bytes --]


Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

Pathch for org-docview.el is attached.

Emacs  : GNU Emacs 24.2.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.18.9)
 of 2012-12-25 on canopus-pc.elvees.com
Package: Org-mode version 7.9.3d (release_7.9.3d-1-g115bd7 @ /home/vdyadov/Work/Tools/emacs/share/emacs/24.2/lisp/org/)

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Patch for org-docview.el --]
[-- Type: text/x-patch, Size: 953 bytes --]

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 "<a href=\"%s\">%s</a>"
+              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

             reply	other threads:[~2013-01-17  7:56 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2013-01-17  7:56 Дядов Васил Стоянов [this message]
2013-01-24 15:12 ` Bastien

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=s4ytxqgtf8f.fsf@canopus-pc.elvees.com \
    --to=vdyadov@elvees.com \
    --cc=emacs-orgmode@gnu.org \
    --subject='Re: Bug: Patch for org-docview: make normal links from docview: links on export from org to html [7.9.3d (release_7.9.3d-1-g115bd7 @ /home/vdyadov/Work/Tools/emacs/share/emacs/24.2/lisp/org/)]' \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Code repositories for project(s) associated with this inbox:

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).