From 14433dc75b859de880f2cc135415ef6de54efe74 Mon Sep 17 00:00:00 2001 From: Matt Price
Date: Wed, 14 Dec 2016 20:15:04 -0500 Subject: [PATCH 2/2] Add basic support for html rendering Insert 'data-editor-type="html"' intotag when exporting klipsified html blocks. --- lisp/ox-html.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 2704f84..a9c8b5d 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -3345,11 +3345,13 @@ CONTENTS holds the contents of the item. INFO is a plist holding contextual information." (if (org-export-read-attribute :attr_html src-block :textarea) (org-html--textarea-block src-block) - (let ((lang (org-element-property :language src-block)) + (let* ((lang (org-element-property :language src-block)) (code (org-html-format-code src-block info)) (label (let ((lbl (and (org-element-property :name src-block) (org-export-get-reference src-block info)))) - (if lbl (format " id=\"%s\"" lbl) "")))) + (if lbl (format " id=\"%s\"" lbl) ""))) + (klipsify (and org-reveal-klipsify-src + (member lang '("javascript" "js" "ruby" "scheme" "clojure" "php" "html"))))) (if (not lang) (format "\n%s" label code) (format "\n%s%s\n" ;; Build caption. @@ -3366,8 +3368,8 @@ contextual information." listing-number (org-trim (org-export-data caption info)))))) ;; Contents. - (format "%s" - lang label code)))))) + (format "%s" + lang label (if (and klipsify (string= lang "html"))" data-editor-type=\"html\"" "") code)))))) ;;;; Statistics Cookie -- 2.10.2