[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] custom link export and ox-md

From: Nick Dokos
Subject: Re: [O] custom link export and ox-md
Date: Mon, 24 Feb 2014 00:00:29 -0500
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux)

John Peloquin <address@hidden> writes:

> Greetings,
> I'm trying to define a custom link in org mode with custom export
> formatting, but I get unexpected results when exporting to markdown.
> Minimal example:
> `minimal-init.el`
> (add-to-list 'load-path "~/.emacs.d/elpa/org-20140217")
> (require 'org)
> (add-to-list 'org-export-backends "md")
> (org-add-link-type
>  "cite" nil
>  (lambda (path desc format)
>    (format "address@hidden" path)))
> `minimal.org`
> Some text [[cite:citekey]].
> When I export `minimal.org` to markdown using C-c C-e m M, I get:
> Some text <citekey>.
> Whereas I expected:
> Some text address@hidden
> I tried this with a clean emacs configuration (`emacs -Q -l 
> minimal-init.el`).  `org-version` returns 8.2.5h, which as far as I
> know is the latest version.  `emacs-version` is 24.3.1.
> I do get the expected export result if I export to latex or html, so
> the link export definition in init.el does work.  Am I doing something
> wrong? 


> Is this a bug in ox-md?
Yes. There is no provision for handling user-defined link types. Try the
following patch:

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/ox-md.el b/lisp/ox-md.el
index b8316dd..fa64f2d 100644
--- a/lisp/ox-md.el
+++ b/lisp/ox-md.el
@@ -340,6 +340,10 @@ a communication channel."
                   (when number
                     (if (atom number) (number-to-string number)
                       (mapconcat 'number-to-string number "."))))))))
+         ;; Link type is handled by a special function.
+         ((functionp (setq protocol (nth 2 (assoc type org-link-protocols))))
+          (funcall protocol (org-element-property :path link) contents 'md))
          (t (let* ((raw-path (org-element-property :path link))
--8<---------------cut here---------------end--------------->8---

Lightly tested with your reproducer - thanks for providing one!


reply via email to

[Prev in Thread] Current Thread [Next in Thread]