ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ox-md.el (org-md-underline): New function 

* ox-md.el (org-md-underline): New function.
This commit is contained in:
Bastien Guerry 2013-03-12 00:05:30 +01:00
parent dce08205fa
commit abc94ec96a
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ox-md.el
View File

@ -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