From abc94ec96ab4d17342ee2527e6757447e49cf1b2 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 12 Mar 2013 00:05:30 +0100 Subject: [PATCH] ox-md.el (org-md-underline): New function * ox-md.el (org-md-underline): New function. --- lisp/ox-md.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ox-md.el b/lisp/ox-md.el index 9f500fcfe..c9542f7df 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -69,6 +69,8 @@ This variable can be set to either `atx' or `setext'." (org-open-file (org-md-export-to-markdown nil s v))))))) :translate-alist ((bold . org-md-bold) (code . org-md-verbatim) + (verbatim . org-md-verbatim) + (underline . org-md-underline) (comment . (lambda (&rest args) "")) (comment-block . (lambda (&rest args) "")) (example-block . org-md-example-block) @@ -89,8 +91,7 @@ This variable can be set to either `atx' or `setext'." (quote-section . org-md-example-block) (section . org-md-section) (src-block . org-md-example-block) - (template . org-md-template) - (verbatim . org-md-verbatim))) + (template . org-md-template))) @@ -125,6 +126,14 @@ CONTENTS is the text within bold markup. INFO is a plist used as a communication channel." (format "**%s**" contents)) +;;;; Underline + +(defun org-md-underline (underline contents info) + "Transcode UNDERLINE object into Markdown format. +CONTENTS is the text within underline markup. INFO is a plist +used as a communication channel." + ;; Return the bare text as MarkDown does not support underlining + contents) ;;;; Code and Verbatim -- 2.11.4.GIT