larstvei/ox-gfm
1
0
Fork 0
mirror of https://github.com/larstvei/ox-gfm.git synced 2025-11-03 23:20:12 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

When preserve-breaks is set on, skip trimming newline in paragraph

Browse Source
This commit is contained in:
Takuya OBUCHI 2016-05-21 05:13:26 +09:00
parent f7b76d5a78
commit 2feeb57a8d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ox-gfm.el
View File

@ -69,10 +69,13 @@
;;;; Paragraph ;;;; Paragraph
(defun org-gfm-paragraph (paragraph contents _info) (defun org-gfm-paragraph (paragraph contents info)
"Transcode PARAGRAPH element into Github Flavoured Markdown format. "Transcode PARAGRAPH element into Github Flavoured Markdown format.
CONTENTS is the paragraph contents. INFO is a plist used as a CONTENTS is the paragraph contents. INFO is a plist used as a
communication channel." communication channel."
(unless (plist-get info :preserve-breaks)
(setq contents (concat (mapconcat 'identity (split-string contents) " ")
"\n")))
(let ((first-object (car (org-element-contents paragraph)))) (let ((first-object (car (org-element-contents paragraph))))
;; If paragraph starts with a #, protect it. ;; If paragraph starts with a #, protect it.
(if (and (stringp first-object) (string-match "\\`#" first-object)) (if (and (stringp first-object) (string-match "\\`#" first-object))