forked from mirrors/org-mode
* lisp/ox-md.el (org-md-latex-environment, org-md-latex-fragment): These two new filters wrap LaTeX maths in $ / $$ TeX-style notation. While ox-md endeavours to adhere to the original Markdown specification, and not any particular variant, the original specification does not deal with LaTeX fragments at all, and so this change does not reduce how faithfully the original specification is followed. There is a major upside to this though. Of the many Markdown variants that have emerged, those that support LaTeX very often exclusively support TeX style notation. This change thus improves the utility of the Markdown export for many use cases, and deviates no more from the original specification that the current method.
788 lines
27 KiB
EmacsLisp
788 lines
27 KiB
EmacsLisp
;;; ox-md.el --- Markdown Back-End for Org Export Engine -*- lexical-binding: t; -*-
|
||
|
||
;; Copyright (C) 2012-2021 Free Software Foundation, Inc.
|
||
|
||
;; Author: Nicolas Goaziou <n.goaziou@gmail.com>
|
||
;; Maintainer: Nicolas Goaziou <n.goaziou at gmail dot com>
|
||
;; Keywords: org, wp, markdown
|
||
|
||
;; This file is part of GNU Emacs.
|
||
|
||
;; GNU Emacs is free software: you can redistribute it and/or modify
|
||
;; it under the terms of the GNU General Public License as published by
|
||
;; the Free Software Foundation, either version 3 of the License, or
|
||
;; (at your option) any later version.
|
||
|
||
;; GNU Emacs is distributed in the hope that it will be useful,
|
||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;; GNU General Public License for more details.
|
||
|
||
;; You should have received a copy of the GNU General Public License
|
||
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
||
|
||
;;; Commentary:
|
||
|
||
;; This library implements a Markdown back-end (vanilla flavor) for
|
||
;; Org exporter, based on `html' back-end. See Org manual for more
|
||
;; information.
|
||
|
||
;;; Code:
|
||
|
||
(require 'cl-lib)
|
||
(require 'ox-html)
|
||
(require 'ox-publish)
|
||
|
||
|
||
;;; User-Configurable Variables
|
||
|
||
(defgroup org-export-md nil
|
||
"Options specific to Markdown export back-end."
|
||
:tag "Org Markdown"
|
||
:group 'org-export
|
||
:version "24.4"
|
||
:package-version '(Org . "8.0"))
|
||
|
||
(defcustom org-md-headline-style 'atx
|
||
"Style used to format headlines.
|
||
This variable can be set to either `atx' or `setext'."
|
||
:group 'org-export-md
|
||
:type '(choice
|
||
(const :tag "Use \"atx\" style" atx)
|
||
(const :tag "Use \"Setext\" style" setext)))
|
||
|
||
|
||
;;;; Footnotes
|
||
|
||
(defcustom org-md-footnotes-section "%s%s"
|
||
"Format string for the footnotes section.
|
||
The first %s placeholder will be replaced with the localized Footnotes section
|
||
heading, the second with the contents of the Footnotes section."
|
||
:group 'org-export-md
|
||
:type 'string
|
||
:version "26.1"
|
||
:package-version '(Org . "9.0"))
|
||
|
||
(defcustom org-md-footnote-format "<sup>%s</sup>"
|
||
"Format string for the footnote reference.
|
||
The %s will be replaced by the footnote reference itself."
|
||
:group 'org-export-md
|
||
:type 'string
|
||
:version "26.1"
|
||
:package-version '(Org . "9.0"))
|
||
|
||
|
||
;;; Define Back-End
|
||
|
||
(org-export-define-derived-backend 'md 'html
|
||
:filters-alist '((:filter-parse-tree . org-md-separate-elements))
|
||
:menu-entry
|
||
'(?m "Export to Markdown"
|
||
((?M "To temporary buffer"
|
||
(lambda (a s v b) (org-md-export-as-markdown a s v)))
|
||
(?m "To file" (lambda (a s v b) (org-md-export-to-markdown a s v)))
|
||
(?o "To file and open"
|
||
(lambda (a s v b)
|
||
(if a (org-md-export-to-markdown t s v)
|
||
(org-open-file (org-md-export-to-markdown nil s v)))))))
|
||
:translate-alist '((bold . org-md-bold)
|
||
(center-block . org-md--convert-to-html)
|
||
(code . org-md-verbatim)
|
||
(drawer . org-md--identity)
|
||
(dynamic-block . org-md--identity)
|
||
(example-block . org-md-example-block)
|
||
(export-block . org-md-export-block)
|
||
(fixed-width . org-md-example-block)
|
||
(headline . org-md-headline)
|
||
(horizontal-rule . org-md-horizontal-rule)
|
||
(inline-src-block . org-md-verbatim)
|
||
(inlinetask . org-md--convert-to-html)
|
||
(inner-template . org-md-inner-template)
|
||
(italic . org-md-italic)
|
||
(item . org-md-item)
|
||
(keyword . org-md-keyword)
|
||
(latex-environment . org-md-latex-environment)
|
||
(latex-fragment . org-md-latex-fragment)
|
||
(line-break . org-md-line-break)
|
||
(link . org-md-link)
|
||
(node-property . org-md-node-property)
|
||
(paragraph . org-md-paragraph)
|
||
(plain-list . org-md-plain-list)
|
||
(plain-text . org-md-plain-text)
|
||
(property-drawer . org-md-property-drawer)
|
||
(quote-block . org-md-quote-block)
|
||
(section . org-md-section)
|
||
(special-block . org-md--convert-to-html)
|
||
(src-block . org-md-example-block)
|
||
(table . org-md--convert-to-html)
|
||
(template . org-md-template)
|
||
(verbatim . org-md-verbatim))
|
||
:options-alist
|
||
'((:md-footnote-format nil nil org-md-footnote-format)
|
||
(:md-footnotes-section nil nil org-md-footnotes-section)
|
||
(:md-headline-style nil nil org-md-headline-style)))
|
||
|
||
|
||
;;; Filters
|
||
|
||
(defun org-md-separate-elements (tree _backend info)
|
||
"Fix blank lines between elements.
|
||
|
||
TREE is the parse tree being exported. BACKEND is the export
|
||
back-end used. INFO is a plist used as a communication channel.
|
||
|
||
Enforce a blank line between elements. There are two exceptions
|
||
to this rule:
|
||
|
||
1. Preserve blank lines between sibling items in a plain list,
|
||
|
||
2. In an item, remove any blank line before the very first
|
||
paragraph and the next sub-list when the latter ends the
|
||
current item.
|
||
|
||
Assume BACKEND is `md'."
|
||
(org-element-map tree (remq 'item org-element-all-elements)
|
||
(lambda (e)
|
||
(org-element-put-property
|
||
e :post-blank
|
||
(if (and (eq (org-element-type e) 'paragraph)
|
||
(eq (org-element-type (org-element-property :parent e)) 'item)
|
||
(org-export-first-sibling-p e info)
|
||
(let ((next (org-export-get-next-element e info)))
|
||
(and (eq (org-element-type next) 'plain-list)
|
||
(not (org-export-get-next-element next info)))))
|
||
0
|
||
1))))
|
||
;; Return updated tree.
|
||
tree)
|
||
|
||
|
||
;;; Internal functions
|
||
|
||
(defun org-md--headline-referred-p (headline info)
|
||
"Non-nil when HEADLINE is being referred to.
|
||
INFO is a plist used as a communication channel. Links and table
|
||
of contents can refer to headlines."
|
||
(unless (org-element-property :footnote-section-p headline)
|
||
(or
|
||
;; Global table of contents includes HEADLINE.
|
||
(and (plist-get info :with-toc)
|
||
(memq headline
|
||
(org-export-collect-headlines info (plist-get info :with-toc))))
|
||
;; A local table of contents includes HEADLINE.
|
||
(cl-some
|
||
(lambda (h)
|
||
(let ((section (car (org-element-contents h))))
|
||
(and
|
||
(eq 'section (org-element-type section))
|
||
(org-element-map section 'keyword
|
||
(lambda (keyword)
|
||
(when (equal "TOC" (org-element-property :key keyword))
|
||
(let ((case-fold-search t)
|
||
(value (org-element-property :value keyword)))
|
||
(and (string-match-p "\\<headlines\\>" value)
|
||
(let ((n (and
|
||
(string-match "\\<[0-9]+\\>" value)
|
||
(string-to-number (match-string 0 value))))
|
||
(local? (string-match-p "\\<local\\>" value)))
|
||
(memq headline
|
||
(org-export-collect-headlines
|
||
info n (and local? keyword))))))))
|
||
info t))))
|
||
(org-element-lineage headline))
|
||
;; A link refers internally to HEADLINE.
|
||
(org-element-map (plist-get info :parse-tree) 'link
|
||
(lambda (link)
|
||
(eq headline
|
||
(pcase (org-element-property :type link)
|
||
((or "custom-id" "id") (org-export-resolve-id-link link info))
|
||
("fuzzy" (org-export-resolve-fuzzy-link link info))
|
||
(_ nil))))
|
||
info t))))
|
||
|
||
(defun org-md--headline-title (style level title &optional anchor tags)
|
||
"Generate a headline title in the preferred Markdown headline style.
|
||
STYLE is the preferred style (`atx' or `setext'). LEVEL is the
|
||
header level. TITLE is the headline title. ANCHOR is the HTML
|
||
anchor tag for the section as a string. TAGS are the tags set on
|
||
the section."
|
||
(let ((anchor-lines (and anchor (concat anchor "\n\n"))))
|
||
;; Use "Setext" style
|
||
(if (and (eq style 'setext) (< level 3))
|
||
(let* ((underline-char (if (= level 1) ?= ?-))
|
||
(underline (concat (make-string (length title) underline-char)
|
||
"\n")))
|
||
(concat "\n" anchor-lines title tags "\n" underline "\n"))
|
||
;; Use "Atx" style
|
||
(let ((level-mark (make-string level ?#)))
|
||
(concat "\n" anchor-lines level-mark " " title tags "\n\n")))))
|
||
|
||
(defun org-md--build-toc (info &optional n _keyword scope)
|
||
"Return a table of contents.
|
||
|
||
INFO is a plist used as a communication channel.
|
||
|
||
Optional argument N, when non-nil, is an integer specifying the
|
||
depth of the table.
|
||
|
||
When optional argument SCOPE is non-nil, build a table of
|
||
contents according to the specified element."
|
||
(concat
|
||
(unless scope
|
||
(let ((style (plist-get info :md-headline-style))
|
||
(title (org-html--translate "Table of Contents" info)))
|
||
(org-md--headline-title style 1 title nil)))
|
||
(mapconcat
|
||
(lambda (headline)
|
||
(let* ((indentation
|
||
(make-string
|
||
(* 4 (1- (org-export-get-relative-level headline info)))
|
||
?\s))
|
||
(bullet
|
||
(if (not (org-export-numbered-headline-p headline info)) "- "
|
||
(let ((prefix
|
||
(format "%d." (org-last (org-export-get-headline-number
|
||
headline info)))))
|
||
(concat prefix (make-string (max 1 (- 4 (length prefix)))
|
||
?\s)))))
|
||
(title
|
||
(format "[%s](#%s)"
|
||
(org-export-data-with-backend
|
||
(org-export-get-alt-title headline info)
|
||
(org-export-toc-entry-backend 'md)
|
||
info)
|
||
(or (org-element-property :CUSTOM_ID headline)
|
||
(org-export-get-reference headline info))))
|
||
(tags (and (plist-get info :with-tags)
|
||
(not (eq 'not-in-toc (plist-get info :with-tags)))
|
||
(org-make-tag-string
|
||
(org-export-get-tags headline info)))))
|
||
(concat indentation bullet title tags)))
|
||
(org-export-collect-headlines info n scope) "\n")
|
||
"\n"))
|
||
|
||
(defun org-md--footnote-formatted (footnote info)
|
||
"Formats a single footnote entry FOOTNOTE.
|
||
FOOTNOTE is a cons cell of the form (number . definition).
|
||
INFO is a plist with contextual information."
|
||
(let* ((fn-num (car footnote))
|
||
(fn-text (cdr footnote))
|
||
(fn-format (plist-get info :md-footnote-format))
|
||
(fn-anchor (format "fn.%d" fn-num))
|
||
(fn-href (format " href=\"#fnr.%d\"" fn-num))
|
||
(fn-link-to-ref (org-html--anchor fn-anchor fn-num fn-href info)))
|
||
(concat (format fn-format fn-link-to-ref) " " fn-text "\n")))
|
||
|
||
(defun org-md--footnote-section (info)
|
||
"Format the footnote section.
|
||
INFO is a plist used as a communication channel."
|
||
(let* ((fn-alist (org-export-collect-footnote-definitions info))
|
||
(fn-alist (cl-loop for (n _type raw) in fn-alist collect
|
||
(cons n (org-trim (org-export-data raw info)))))
|
||
(headline-style (plist-get info :md-headline-style))
|
||
(section-title (org-html--translate "Footnotes" info)))
|
||
(when fn-alist
|
||
(format (plist-get info :md-footnotes-section)
|
||
(org-md--headline-title headline-style 1 section-title)
|
||
(mapconcat (lambda (fn) (org-md--footnote-formatted fn info))
|
||
fn-alist
|
||
"\n")))))
|
||
|
||
(defun org-md--convert-to-html (datum _contents info)
|
||
"Convert DATUM into raw HTML, including contents."
|
||
(org-export-data-with-backend datum 'html info))
|
||
|
||
(defun org-md--identity (_datum contents _info)
|
||
"Return CONTENTS only."
|
||
contents)
|
||
|
||
|
||
;;; Transcode Functions
|
||
|
||
;;;; Bold
|
||
|
||
(defun org-md-bold (_bold contents _info)
|
||
"Transcode BOLD object into Markdown format.
|
||
CONTENTS is the text within bold markup. INFO is a plist used as
|
||
a communication channel."
|
||
(format "**%s**" contents))
|
||
|
||
|
||
;;;; Code and Verbatim
|
||
|
||
(defun org-md-verbatim (verbatim _contents _info)
|
||
"Transcode VERBATIM object into Markdown format.
|
||
CONTENTS is nil. INFO is a plist used as a communication
|
||
channel."
|
||
(let ((value (org-element-property :value verbatim)))
|
||
(format (cond ((not (string-match "`" value)) "`%s`")
|
||
((or (string-prefix-p "`" value)
|
||
(string-suffix-p "`" value))
|
||
"`` %s ``")
|
||
(t "``%s``"))
|
||
value)))
|
||
|
||
|
||
;;;; Example Block, Src Block and Export Block
|
||
|
||
(defun org-md-example-block (example-block _contents info)
|
||
"Transcode EXAMPLE-BLOCK element into Markdown format.
|
||
CONTENTS is nil. INFO is a plist used as a communication
|
||
channel."
|
||
(replace-regexp-in-string
|
||
"^" " "
|
||
(org-remove-indentation
|
||
(org-export-format-code-default example-block info))))
|
||
|
||
(defun org-md-export-block (export-block contents info)
|
||
"Transcode a EXPORT-BLOCK element from Org to Markdown.
|
||
CONTENTS is nil. INFO is a plist holding contextual information."
|
||
(if (member (org-element-property :type export-block) '("MARKDOWN" "MD"))
|
||
(org-remove-indentation (org-element-property :value export-block))
|
||
;; Also include HTML export blocks.
|
||
(org-export-with-backend 'html export-block contents info)))
|
||
|
||
|
||
;;;; Headline
|
||
|
||
(defun org-md-headline (headline contents info)
|
||
"Transcode HEADLINE element into Markdown format.
|
||
CONTENTS is the headline contents. INFO is a plist used as
|
||
a communication channel."
|
||
(unless (org-element-property :footnote-section-p headline)
|
||
(let* ((level (org-export-get-relative-level headline info))
|
||
(title (org-export-data (org-element-property :title headline) info))
|
||
(todo (and (plist-get info :with-todo-keywords)
|
||
(let ((todo (org-element-property :todo-keyword
|
||
headline)))
|
||
(and todo (concat (org-export-data todo info) " ")))))
|
||
(tags (and (plist-get info :with-tags)
|
||
(let ((tag-list (org-export-get-tags headline info)))
|
||
(and tag-list
|
||
(concat " " (org-make-tag-string tag-list))))))
|
||
(priority
|
||
(and (plist-get info :with-priority)
|
||
(let ((char (org-element-property :priority headline)))
|
||
(and char (format "[#%c] " char)))))
|
||
;; Headline text without tags.
|
||
(heading (concat todo priority title))
|
||
(style (plist-get info :md-headline-style)))
|
||
(cond
|
||
;; Cannot create a headline. Fall-back to a list.
|
||
((or (org-export-low-level-p headline info)
|
||
(not (memq style '(atx setext)))
|
||
(and (eq style 'atx) (> level 6))
|
||
(and (eq style 'setext) (> level 2)))
|
||
(let ((bullet
|
||
(if (not (org-export-numbered-headline-p headline info)) "-"
|
||
(concat (number-to-string
|
||
(car (last (org-export-get-headline-number
|
||
headline info))))
|
||
"."))))
|
||
(concat bullet (make-string (- 4 (length bullet)) ?\s) heading tags "\n\n"
|
||
(and contents (replace-regexp-in-string "^" " " contents)))))
|
||
(t
|
||
(let ((anchor
|
||
(and (org-md--headline-referred-p headline info)
|
||
(format "<a id=\"%s\"></a>"
|
||
(or (org-element-property :CUSTOM_ID headline)
|
||
(org-export-get-reference headline info))))))
|
||
(concat (org-md--headline-title style level heading anchor tags)
|
||
contents)))))))
|
||
|
||
;;;; Horizontal Rule
|
||
|
||
(defun org-md-horizontal-rule (_horizontal-rule _contents _info)
|
||
"Transcode HORIZONTAL-RULE element into Markdown format.
|
||
CONTENTS is the horizontal rule contents. INFO is a plist used
|
||
as a communication channel."
|
||
"---")
|
||
|
||
|
||
;;;; Italic
|
||
|
||
(defun org-md-italic (_italic contents _info)
|
||
"Transcode ITALIC object into Markdown format.
|
||
CONTENTS is the text within italic markup. INFO is a plist used
|
||
as a communication channel."
|
||
(format "*%s*" contents))
|
||
|
||
|
||
;;;; Item
|
||
|
||
(defun org-md-item (item contents info)
|
||
"Transcode ITEM element into Markdown format.
|
||
CONTENTS is the item contents. INFO is a plist used as
|
||
a communication channel."
|
||
(let* ((type (org-element-property :type (org-export-get-parent item)))
|
||
(struct (org-element-property :structure item))
|
||
(bullet (if (not (eq type 'ordered)) "-"
|
||
(concat (number-to-string
|
||
(car (last (org-list-get-item-number
|
||
(org-element-property :begin item)
|
||
struct
|
||
(org-list-prevs-alist struct)
|
||
(org-list-parents-alist struct)))))
|
||
"."))))
|
||
(concat bullet
|
||
(make-string (- 4 (length bullet)) ? )
|
||
(pcase (org-element-property :checkbox item)
|
||
(`on "[X] ")
|
||
(`trans "[-] ")
|
||
(`off "[ ] "))
|
||
(let ((tag (org-element-property :tag item)))
|
||
(and tag (format "**%s:** "(org-export-data tag info))))
|
||
(and contents
|
||
(org-trim (replace-regexp-in-string "^" " " contents))))))
|
||
|
||
|
||
|
||
;;;; Keyword
|
||
|
||
(defun org-md-keyword (keyword contents info)
|
||
"Transcode a KEYWORD element into Markdown format.
|
||
CONTENTS is nil. INFO is a plist used as a communication
|
||
channel."
|
||
(pcase (org-element-property :key keyword)
|
||
((or "MARKDOWN" "MD") (org-element-property :value keyword))
|
||
("TOC"
|
||
(let ((case-fold-search t)
|
||
(value (org-element-property :value keyword)))
|
||
(cond
|
||
((string-match-p "\\<headlines\\>" value)
|
||
(let ((depth (and (string-match "\\<[0-9]+\\>" value)
|
||
(string-to-number (match-string 0 value))))
|
||
(scope
|
||
(cond
|
||
((string-match ":target +\\(\".+?\"\\|\\S-+\\)" value) ;link
|
||
(org-export-resolve-link
|
||
(org-strip-quotes (match-string 1 value)) info))
|
||
((string-match-p "\\<local\\>" value) keyword)))) ;local
|
||
(org-remove-indentation
|
||
(org-md--build-toc info depth keyword scope)))))))
|
||
(_ (org-export-with-backend 'html keyword contents info))))
|
||
|
||
|
||
;;;; Latex Environment
|
||
|
||
(defun org-md-latex-environment (latex-environment contents info)
|
||
"Transcode a LATEX-ENVIRONMENT object from Org to Markdown.
|
||
CONTENTS is nil. INFO is a plist holding contextual information."
|
||
(when (plist-get info :with-latex)
|
||
(let ((latex-frag (org-remove-indentation
|
||
(org-element-property :value latex-environment)))
|
||
(label (org-html--reference latex-environment info t)))
|
||
(if (org-string-nw-p label)
|
||
(replace-regexp-in-string "\\`.*"
|
||
(format "\\&\n\\\\label{%s}" label)
|
||
latex-frag)
|
||
latex-frag))))
|
||
|
||
;;;; Latex Fragment
|
||
|
||
(defun org-md-latex-fragment (latex-fragment contents info)
|
||
"Transcode a LATEX-FRAGMENT object from Org to Markdown.
|
||
CONTENTS is nil. INFO is a plist holding contextual information."
|
||
(when (plist-get info :with-latex)
|
||
(let ((frag (org-element-property :value latex-fragment)))
|
||
(cond
|
||
((string-match-p "^\\\\(" frag)
|
||
(concat "$" (substring frag 2 -2) "$"))
|
||
((string-match-p "^\\\\\\[" frag)
|
||
(concat "$$" (substring frag 2 -2) "$$"))
|
||
(t frag))))) ; either already $-deliminated or a macro
|
||
|
||
;;;; Line Break
|
||
|
||
(defun org-md-line-break (_line-break _contents _info)
|
||
"Transcode LINE-BREAK object into Markdown format.
|
||
CONTENTS is nil. INFO is a plist used as a communication
|
||
channel."
|
||
" \n")
|
||
|
||
|
||
;;;; Link
|
||
|
||
(defun org-md-link (link desc info)
|
||
"Transcode LINK object into Markdown format.
|
||
DESC is the description part of the link, or the empty string.
|
||
INFO is a plist holding contextual information. See
|
||
`org-export-data'."
|
||
(let* ((link-org-files-as-md
|
||
(lambda (raw-path)
|
||
;; Treat links to `file.org' as links to `file.md'.
|
||
(if (string= ".org" (downcase (file-name-extension raw-path ".")))
|
||
(concat (file-name-sans-extension raw-path) ".md")
|
||
raw-path)))
|
||
(type (org-element-property :type link))
|
||
(raw-path (org-element-property :path link))
|
||
(path (cond
|
||
((member type '("http" "https" "ftp" "mailto"))
|
||
(concat type ":" raw-path))
|
||
((string-equal type "file")
|
||
(org-export-file-uri (funcall link-org-files-as-md raw-path)))
|
||
(t raw-path))))
|
||
(cond
|
||
;; Link type is handled by a special function.
|
||
((org-export-custom-protocol-maybe link desc 'md info))
|
||
((member type '("custom-id" "id" "fuzzy"))
|
||
(let ((destination (if (string= type "fuzzy")
|
||
(org-export-resolve-fuzzy-link link info)
|
||
(org-export-resolve-id-link link info))))
|
||
(pcase (org-element-type destination)
|
||
(`plain-text ; External file.
|
||
(let ((path (funcall link-org-files-as-md destination)))
|
||
(if (not desc) (format "<%s>" path)
|
||
(format "[%s](%s)" desc path))))
|
||
(`headline
|
||
(format
|
||
"[%s](#%s)"
|
||
;; Description.
|
||
(cond ((org-string-nw-p desc))
|
||
((org-export-numbered-headline-p destination info)
|
||
(mapconcat #'number-to-string
|
||
(org-export-get-headline-number destination info)
|
||
"."))
|
||
(t (org-export-data (org-element-property :title destination)
|
||
info)))
|
||
;; Reference.
|
||
(or (org-element-property :CUSTOM_ID destination)
|
||
(org-export-get-reference destination info))))
|
||
(_
|
||
(let ((description
|
||
(or (org-string-nw-p desc)
|
||
(let ((number (org-export-get-ordinal destination info)))
|
||
(cond
|
||
((not number) nil)
|
||
((atom number) (number-to-string number))
|
||
(t (mapconcat #'number-to-string number ".")))))))
|
||
(when description
|
||
(format "[%s](#%s)"
|
||
description
|
||
(org-export-get-reference destination info))))))))
|
||
((org-export-inline-image-p link org-html-inline-image-rules)
|
||
(let ((path (cond ((not (string-equal type "file"))
|
||
(concat type ":" raw-path))
|
||
((not (file-name-absolute-p raw-path)) raw-path)
|
||
(t (expand-file-name raw-path))))
|
||
(caption (org-export-data
|
||
(org-export-get-caption
|
||
(org-export-get-parent-element link))
|
||
info)))
|
||
(format "![img](%s)"
|
||
(if (not (org-string-nw-p caption)) path
|
||
(format "%s \"%s\"" path caption)))))
|
||
((string= type "coderef")
|
||
(format (org-export-get-coderef-format path desc)
|
||
(org-export-resolve-coderef path info)))
|
||
((string= type "radio")
|
||
(let ((destination (org-export-resolve-radio-link link info)))
|
||
(if (not destination) desc
|
||
(format "<a href=\"#%s\">%s</a>"
|
||
(org-export-get-reference destination info)
|
||
desc))))
|
||
(t (if (not desc) (format "<%s>" path)
|
||
(format "[%s](%s)" desc path))))))
|
||
|
||
|
||
;;;; Node Property
|
||
|
||
(defun org-md-node-property (node-property _contents _info)
|
||
"Transcode a NODE-PROPERTY element into Markdown syntax.
|
||
CONTENTS is nil. INFO is a plist holding contextual
|
||
information."
|
||
(format "%s:%s"
|
||
(org-element-property :key node-property)
|
||
(let ((value (org-element-property :value node-property)))
|
||
(if value (concat " " value) ""))))
|
||
|
||
|
||
;;;; Paragraph
|
||
|
||
(defun org-md-paragraph (paragraph contents _info)
|
||
"Transcode PARAGRAPH element into Markdown format.
|
||
CONTENTS is the paragraph contents. INFO is a plist used as
|
||
a communication channel."
|
||
(let ((first-object (car (org-element-contents paragraph))))
|
||
;; If paragraph starts with a #, protect it.
|
||
(if (and (stringp first-object) (string-prefix-p "#" first-object))
|
||
(concat "\\" contents)
|
||
contents)))
|
||
|
||
|
||
;;;; Plain List
|
||
|
||
(defun org-md-plain-list (_plain-list contents _info)
|
||
"Transcode PLAIN-LIST element into Markdown format.
|
||
CONTENTS is the plain-list contents. INFO is a plist used as
|
||
a communication channel."
|
||
contents)
|
||
|
||
|
||
;;;; Plain Text
|
||
|
||
(defun org-md-plain-text (text info)
|
||
"Transcode a TEXT string into Markdown format.
|
||
TEXT is the string to transcode. INFO is a plist holding
|
||
contextual information."
|
||
(when (plist-get info :with-smart-quotes)
|
||
(setq text (org-export-activate-smart-quotes text :html info)))
|
||
;; The below series of replacements in `text' is order sensitive.
|
||
;; Protect `, *, _, and \
|
||
(setq text (replace-regexp-in-string "[`*_\\]" "\\\\\\&" text))
|
||
;; Protect ambiguous #. This will protect # at the beginning of
|
||
;; a line, but not at the beginning of a paragraph. See
|
||
;; `org-md-paragraph'.
|
||
(setq text (replace-regexp-in-string "\n#" "\n\\\\#" text))
|
||
;; Protect ambiguous !
|
||
(setq text (replace-regexp-in-string "\\(!\\)\\[" "\\\\!" text nil nil 1))
|
||
;; Handle special strings, if required.
|
||
(when (plist-get info :with-special-strings)
|
||
(setq text (org-html-convert-special-strings text)))
|
||
;; Handle break preservation, if required.
|
||
(when (plist-get info :preserve-breaks)
|
||
(setq text (replace-regexp-in-string "[ \t]*\n" " \n" text)))
|
||
;; Return value.
|
||
text)
|
||
|
||
|
||
;;;; Property Drawer
|
||
|
||
(defun org-md-property-drawer (_property-drawer contents _info)
|
||
"Transcode a PROPERTY-DRAWER element into Markdown format.
|
||
CONTENTS holds the contents of the drawer. INFO is a plist
|
||
holding contextual information."
|
||
(and (org-string-nw-p contents)
|
||
(replace-regexp-in-string "^" " " contents)))
|
||
|
||
|
||
;;;; Quote Block
|
||
|
||
(defun org-md-quote-block (_quote-block contents _info)
|
||
"Transcode QUOTE-BLOCK element into Markdown format.
|
||
CONTENTS is the quote-block contents. INFO is a plist used as
|
||
a communication channel."
|
||
(replace-regexp-in-string
|
||
"^" "> "
|
||
(replace-regexp-in-string "\n\\'" "" contents)))
|
||
|
||
|
||
;;;; Section
|
||
|
||
(defun org-md-section (_section contents _info)
|
||
"Transcode SECTION element into Markdown format.
|
||
CONTENTS is the section contents. INFO is a plist used as
|
||
a communication channel."
|
||
contents)
|
||
|
||
|
||
;;;; Template
|
||
|
||
(defun org-md-inner-template (contents info)
|
||
"Return body of document after converting it to Markdown syntax.
|
||
CONTENTS is the transcoded contents string. INFO is a plist
|
||
holding export options."
|
||
;; Make sure CONTENTS is separated from table of contents and
|
||
;; footnotes with at least a blank line.
|
||
(concat
|
||
;; Table of contents.
|
||
(let ((depth (plist-get info :with-toc)))
|
||
(when depth
|
||
(concat (org-md--build-toc info (and (wholenump depth) depth)) "\n")))
|
||
;; Document contents.
|
||
contents
|
||
"\n"
|
||
;; Footnotes section.
|
||
(org-md--footnote-section info)))
|
||
|
||
(defun org-md-template (contents _info)
|
||
"Return complete document string after Markdown conversion.
|
||
CONTENTS is the transcoded contents string. INFO is a plist used
|
||
as a communication channel."
|
||
contents)
|
||
|
||
|
||
|
||
;;; Interactive function
|
||
|
||
;;;###autoload
|
||
(defun org-md-export-as-markdown (&optional async subtreep visible-only)
|
||
"Export current buffer to a Markdown buffer.
|
||
|
||
If narrowing is active in the current buffer, only export its
|
||
narrowed part.
|
||
|
||
If a region is active, export that region.
|
||
|
||
A non-nil optional argument ASYNC means the process should happen
|
||
asynchronously. The resulting buffer should be accessible
|
||
through the `org-export-stack' interface.
|
||
|
||
When optional argument SUBTREEP is non-nil, export the sub-tree
|
||
at point, extracting information from the headline properties
|
||
first.
|
||
|
||
When optional argument VISIBLE-ONLY is non-nil, don't export
|
||
contents of hidden elements.
|
||
|
||
Export is done in a buffer named \"*Org MD Export*\", which will
|
||
be displayed when `org-export-show-temporary-export-buffer' is
|
||
non-nil."
|
||
(interactive)
|
||
(org-export-to-buffer 'md "*Org MD Export*"
|
||
async subtreep visible-only nil nil (lambda () (text-mode))))
|
||
|
||
;;;###autoload
|
||
(defun org-md-convert-region-to-md ()
|
||
"Assume the current region has Org syntax, and convert it to Markdown.
|
||
This can be used in any buffer. For example, you can write an
|
||
itemized list in Org syntax in a Markdown buffer and use
|
||
this command to convert it."
|
||
(interactive)
|
||
(org-export-replace-region-by 'md))
|
||
|
||
|
||
;;;###autoload
|
||
(defun org-md-export-to-markdown (&optional async subtreep visible-only)
|
||
"Export current buffer to a Markdown file.
|
||
|
||
If narrowing is active in the current buffer, only export its
|
||
narrowed part.
|
||
|
||
If a region is active, export that region.
|
||
|
||
A non-nil optional argument ASYNC means the process should happen
|
||
asynchronously. The resulting file should be accessible through
|
||
the `org-export-stack' interface.
|
||
|
||
When optional argument SUBTREEP is non-nil, export the sub-tree
|
||
at point, extracting information from the headline properties
|
||
first.
|
||
|
||
When optional argument VISIBLE-ONLY is non-nil, don't export
|
||
contents of hidden elements.
|
||
|
||
Return output file's name."
|
||
(interactive)
|
||
(let ((outfile (org-export-output-file-name ".md" subtreep)))
|
||
(org-export-to-file 'md outfile async subtreep visible-only)))
|
||
|
||
;;;###autoload
|
||
(defun org-md-publish-to-md (plist filename pub-dir)
|
||
"Publish an org file to Markdown.
|
||
|
||
FILENAME is the filename of the Org file to be published. PLIST
|
||
is the property list for the given project. PUB-DIR is the
|
||
publishing directory.
|
||
|
||
Return output file name."
|
||
(org-publish-org-to 'md filename ".md" plist pub-dir))
|
||
|
||
(provide 'ox-md)
|
||
|
||
;; Local variables:
|
||
;; generated-autoload-file: "org-loaddefs.el"
|
||
;; End:
|
||
|
||
;;; ox-md.el ends here
|