From 437771130f9ba6376580e2e8de5ad1ab4a8b840c Mon Sep 17 00:00:00 2001 From: Lars Tveito Date: Thu, 4 Aug 2016 18:02:01 +0200 Subject: [PATCH] Cleanup indentation; remove :export-block --- ox-gfm.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/ox-gfm.el b/ox-gfm.el index a560eec..2246d2f 100644 --- a/ox-gfm.el +++ b/ox-gfm.el @@ -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" @@ -56,7 +55,7 @@ (if a (org-gfm-export-to-markdown t s v) (org-open-file (org-gfm-export-to-markdown nil s v))))))) :translate-alist '((inner-template . org-gfm-inner-template) - (paragraph . org-gfm-paragraph) + (paragraph . org-gfm-paragraph) (strike-through . org-gfm-strike-through) (src-block . org-gfm-src-block) (table-cell . org-gfm-table-cell) @@ -74,12 +73,11 @@ 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)) - (replace-regexp-in-string "\\`#" "\\#" contents nil t) + (replace-regexp-in-string "\\`#" "\\#" contents nil t) contents))) @@ -226,8 +224,8 @@ contextual information." columns gfm-table-separator) gfm-table-right-border "\n")))))) - (concat (when no-header (funcall build-dummy-header)) - (replace-regexp-in-string "\n\n" "\n" contents)))) + (concat (when no-header (funcall build-dummy-header)) + (replace-regexp-in-string "\n\n" "\n" contents)))) ;;;; Table of contents