Comment block will disapper
This commit is contained in:
27
ox-rst.el
27
ox-rst.el
@@ -179,12 +179,11 @@ link's path."
|
|||||||
(defcustom org-rst-text-markup-alist '((bold . "**%s**")
|
(defcustom org-rst-text-markup-alist '((bold . "**%s**")
|
||||||
(code . verb)
|
(code . verb)
|
||||||
(italic . "*%s*")
|
(italic . "*%s*")
|
||||||
(verbatim . verb)
|
(verbatim . verb))
|
||||||
(comment . ".. %s\n"))
|
|
||||||
"Alist of reStructredText expressions to convert text markup.
|
"Alist of reStructredText expressions to convert text markup.
|
||||||
|
|
||||||
The key must be a symbol among `bold', `code', `italic',
|
The key must be a symbol among `bold', `code', `italic',
|
||||||
`comment' and `verbatim'. The value is a formatting string to
|
`verbatim'. The value is a formatting string to
|
||||||
wrap fontified text with.
|
wrap fontified text with.
|
||||||
|
|
||||||
Value can also be set to the following symbols: `verb'.
|
Value can also be set to the following symbols: `verb'.
|
||||||
@@ -193,7 +192,7 @@ If no association can be found for a given markup, text will be
|
|||||||
returned as-is."
|
returned as-is."
|
||||||
:group 'org-export-rst
|
:group 'org-export-rst
|
||||||
:type 'alist
|
:type 'alist
|
||||||
:options '(bold code italic verbatim comment))
|
:options '(bold code italic verbatim))
|
||||||
|
|
||||||
|
|
||||||
(defcustom org-rst-quote-margin 4
|
(defcustom org-rst-quote-margin 4
|
||||||
@@ -559,26 +558,6 @@ channel."
|
|||||||
(org-rst--text-markup (org-element-property :value code) 'code))
|
(org-rst--text-markup (org-element-property :value code) 'code))
|
||||||
|
|
||||||
|
|
||||||
;;; Comment
|
|
||||||
(defun org-rst-comment (comment _contents _info)
|
|
||||||
"Transcode a COMMENT object from Org to reStructuredText.
|
|
||||||
CONTENTS is the text in the comment. INFO is a plist holding
|
|
||||||
contextual information."
|
|
||||||
(org-rst--text-markup (org-element-property :value comment) 'comment))
|
|
||||||
|
|
||||||
|
|
||||||
;;; Comment Block
|
|
||||||
|
|
||||||
(defun org-rst-comment-block (comment-block _contents _info)
|
|
||||||
"Transcode a COMMENT-BLOCK object from Org to reStructuredText.
|
|
||||||
CONTENTS is the text within the block. INFO is a plist holding
|
|
||||||
contextual information."
|
|
||||||
(let ((value (org-remove-indentation
|
|
||||||
(org-element-property :value comment-block))))
|
|
||||||
(when value
|
|
||||||
(concat "..\n" (org-rst--indent-string value org-rst-quote-margin)))))
|
|
||||||
|
|
||||||
|
|
||||||
;;;; Drawer
|
;;;; Drawer
|
||||||
|
|
||||||
(defun org-rst-drawer (drawer contents _info)
|
(defun org-rst-drawer (drawer contents _info)
|
||||||
|
|||||||
Reference in New Issue
Block a user