mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Fontify inline source blocks when exporting to HTML 

* lisp/ox-html.el (org-html-inline-src-block): Fontify inline source
blocks.
This commit is contained in:
Nicolas Berthier 2017-05-15 16:35:52 +01:00 committed by Nicolas Goaziou
parent 3c7ef9f8e8
commit 2c9f6fcef9
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ox-html.el
View File

@ -2624,12 +2624,14 @@ CONTENTS is nil. INFO is a plist holding contextual information."
"Transcode an INLINE-SRC-BLOCK element from Org to HTML.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information."
(let ((lang (org-element-property :language inline-src-block))
(code (org-element-property :value inline-src-block))
(label
(let ((lbl (and (org-element-property :name inline-src-block)
(org-export-get-reference inline-src-block info))))
(if (not lbl) "" (format " id=\"%s\"" lbl)))))
(let* ((lang (org-element-property :language inline-src-block))
(code (org-html-fontify-code
(org-element-property :value inline-src-block)
lang))
(label
(let ((lbl (and (org-element-property :name inline-src-block)
(org-export-get-reference inline-src-block info))))
(if (not lbl) "" (format " id=\"%s\"" lbl)))))
(format "<code class=\"src src-%s\"%s>%s</code>" lang label code)))
;;;; Inlinetask