larstvei/ox-gfm
1
0
Fork 0
mirror of https://github.com/larstvei/ox-gfm.git synced 2024-11-26 09:38:31 +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. "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."
(let ((contents (let ((first-object (car (org-element-contents paragraph))))
(concat (mapconcat 'identity (split-string contents) " ") ;; If paragraph starts with a #, protect it.
"\n"))) (if (and (stringp first-object) (string-match "\\`#" first-object))
(let ((first-object (car (org-element-contents paragraph)))) (replace-regexp-in-string "\\`#" "\\#" contents nil t)
;; If paragraph starts with a #, protect it. contents)))
(if (and (stringp first-object) (string-match "\\`#" first-object))
(replace-regexp-in-string "\\`#" "\\#" contents nil t)
contents))))
;;;; Src Block ;;;; Src Block