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

Cleanup indentation; remove :export-block

Browse Source
This commit is contained in:
Lars Tveito 2016-08-04 18:02:01 +02:00
parent 66bed0d179
commit 437771130f
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ox-gfm.el
View File

@ -44,7 +44,6 @@
;;; Define Back-End ;;; Define Back-End
(org-export-define-derived-backend 'gfm 'md (org-export-define-derived-backend 'gfm 'md
:export-block '("GFM" "GITHUB FLAVORED MARKDOWN")
:filters-alist '((:filter-parse-tree . org-md-separate-elements)) :filters-alist '((:filter-parse-tree . org-md-separate-elements))
:menu-entry :menu-entry
'(?g "Export to Github Flavored Markdown" '(?g "Export to Github Flavored Markdown"
@ -74,8 +73,7 @@
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) (unless (plist-get info :preserve-breaks)
(setq contents (concat (mapconcat 'identity (split-string contents) " ") (setq contents (concat (mapconcat 'identity (split-string contents) " ") "\n")))
"\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))