larstvei/ox-gfm
1
0
Fork 0
mirror of https://github.com/larstvei/ox-gfm.git synced 2024-11-26 01:28:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Skip trimming newline in paragraph

Browse Source
This commit is contained in:
Takuya OBUCHI 2016-05-21 03:56:56 +09:00
parent 4889adc219
commit f7b76d5a78
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ox-gfm.el
View File

@ -73,14 +73,11 @@
"Transcode PARAGRAPH element into Github Flavoured Markdown format.
CONTENTS is the paragraph contents. INFO is a plist used as a
communication channel."
(let ((contents
(concat (mapconcat 'identity (split-string contents) " ")
"\n")))
(let ((first-object (car (org-element-contents paragraph))))
;; If paragraph starts with a #, protect it.
(if (and (stringp first-object) (string-match "\\`#" first-object))
(replace-regexp-in-string "\\`#" "\\#" contents nil t)
contents))))
(let ((first-object (car (org-element-contents paragraph))))
;; If paragraph starts with a #, protect it.
(if (and (stringp first-object) (string-match "\\`#" first-object))
(replace-regexp-in-string "\\`#" "\\#" contents nil t)
contents)))
;;;; Src Block