From 54a94ea382eab1138bacbb38c0064f6feedea50f Mon Sep 17 00:00:00 2001 From: chasberry Date: Tue, 11 Nov 2014 13:05:00 -0800 Subject: [PATCH 3/5] Inline src blocks are export-snippets * lisp/ox-md.el (org-md-export-snippet): For babel; snippet use verbatim, otherwise use the html transcoder. --- lisp/ox-md.el | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/lisp/ox-md.el b/lisp/ox-md.el index f3fdedc..27da308 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -72,6 +72,7 @@ This variable can be set to either `atx' or `setext'." (comment-block . (lambda (&rest args) "")) (example-block . org-md-example-block) (export-block . org-md-export-block) + (export-snippet . org-md-export-snippet) (fixed-width . org-md-example-block) (footnote-definition . ignore) (footnote-reference . ignore) @@ -156,7 +157,7 @@ channel." value))) -;;;; Example Block, Src Block and export Block +;;;; Example Block, Src Block, export Block, export snippet (defun org-md-example-block (example-block contents info) "Transcode EXAMPLE-BLOCK element into Markdown format. @@ -175,7 +176,17 @@ CONTENTS is nil. INFO is a plist holding contextual information." ;; Also include HTML export blocks. (org-export-with-backend 'html export-block contents info))) - +(defun org-md-export-snippet (export-snippet contents info) + "Transcode a EXPORT-SNIPPET object from Org to HTML. +CONTENTS is nil. INFO is a plist holding contextual +information." + (let ((backend (org-export-snippet-backend export-snippet))) + (cond ((eq backend 'html) + (org-export-with-backend 'html export-snippet contents + info)) + ((eq backend 'babel) + (org-md-verbatim export-snippet contents info))))) + ;;;; Headline (defun org-md-headline (headline contents info) -- 1.9.3 (Apple Git-50)