Cleanup indentation; remove :export-block

This commit is contained in:
Lars Tveito 2016-08-04 18:02:01 +02:00
parent 66bed0d179
commit 437771130f

View File

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