From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: [bug] wrong-type-argument symbolp (css-property italic) Date: Fri, 09 Nov 2012 15:11:35 +0100 Message-ID: <80ehk2rhm0.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org #+TITLE: ECM Htmlize italic #+LANGUAGE: en * CSS code When exporting the following chunk of code to HTML (with either the old or = the new exporter)... #+begin_src css #panel-button { -moz-transform: rotate(90deg); -o-transform: rotate(90deg); -webkit-transform: rotate(90deg); background-color: #EFEFEF; } #+end_src ... we get the following backtrace: #+begin_example Debugger entered--Lisp error: (wrong-type-argument symbolp (css-property it= alic)) internal-get-lisp-face-attribute((css-property italic) :height nil) face-attribute((css-property italic) :height) (setq h (face-attribute f :height)) (while (progn (setq f (if --cl-var-- face (face-attribute f :inherit))) (= not (or (not f) (eq f (quote unspecified))))) (setq h (face-attribute f :he= ight)) (setq --cl-var-- (cons (if (eq h (quote unspecified)) nil h) --cl-va= r--)) (setq --cl-var-- nil)) (let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var-- t)) (while (progn (se= tq f (if --cl-var-- face (face-attribute f :inherit))) (not (or (not f) (eq= f (quote unspecified))))) (setq h (face-attribute f :height)) (setq --cl-v= ar-- (cons (if (eq h (quote unspecified)) nil h) --cl-var--)) (setq --cl-va= r-- nil)) (nreverse --cl-var--)) (progn (let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var-- t)) (while (pr= ogn (setq f (if --cl-var-- face (face-attribute f :inherit))) (not (or (not= f) (eq f (quote unspecified))))) (setq h (face-attribute f :height)) (setq= --cl-var-- (cons (if (eq h (quote unspecified)) nil h) --cl-var--)) (setq = --cl-var-- nil)) (nreverse --cl-var--))) (let ((size-list (progn (let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var= -- t)) (while (progn (setq f ...) (not ...)) (setq h (face-attribute f :hei= ght)) (setq --cl-var-- (cons ... --cl-var--)) (setq --cl-var-- nil)) (nreve= rse --cl-var--))))) (reduce (quote htmlize-merge-size) (cons nil size-list)= )) htmlize-face-size(css-proprietary-property) (let ((size (htmlize-face-size face))) (if (eql size 1.0) nil (progn (or = (and (vectorp fstruct) (>=3D (length fstruct) 10) (memq (aref fstruct 0) cl= -struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote htmliz= e-fstruct-size) (quote htmlize-fstruct))) (let* ((v fstruct)) (aset v 3 siz= e))))) (if htmlize-running-xemacs (let* ((font-instance (face-font-instance face= )) (props (font-instance-properties font-instance))) (if (equalp (cdr (assq= (quote WEIGHT_NAME) props)) "bold") (progn (progn (or (and (vectorp fstruc= t) (>=3D ... 10) (memq ... cl-struct-htmlize-fstruct-tags)) (error "%s acce= ssing a non-%s" (quote htmlize-fstruct-boldp) (quote htmlize-fstruct))) (le= t* ((v fstruct)) (aset v 4 t))))) (if (or (equalp (cdr (assq (quote SLANT) = props)) "i") (equalp (cdr (assq (quote SLANT) props)) "o")) (progn (progn (= or (and (vectorp fstruct) (>=3D ... 10) (memq ... cl-struct-htmlize-fstruct= -tags)) (error "%s accessing a non-%s" (quote htmlize-fstruct-italicp) (quo= te htmlize-fstruct))) (let* ((v fstruct)) (aset v 5 t))))) (progn (or (and = (vectorp fstruct) (>=3D (length fstruct) 10) (memq (aref fstruct 0) cl-stru= ct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote htmlize-fst= ruct-strikep) (quote htmlize-fstruct))) (let* ((v fstruct)) (aset v 8 (face= -strikethru-p face)))) (progn (or (and (vectorp fstruct) (>=3D (length fstr= uct) 10) (memq (aref fstruct 0) cl-struct-htmlize-fstruct-tags)) (error "%s= accessing a non-%s" (quote htmlize-fstruct-underlinep) (quote htmlize-fstr= uct))) (let* ((v fstruct)) (aset v 6 (face-underline-p face))))) (progn (le= t ((--dolist-tail-- (quote (:weight :slant :underline :overline :strike-thr= ough))) attr) (while --dolist-tail-- (setq attr (car --dolist-tail--)) (let= ((value (if ... ... ...))) (if (and value (not ...)) (progn (htmlize-face-= emacs21-attr fstruct attr value)))) (setq --dolist-tail-- (cdr --dolist-tai= l--))))) (let ((size (htmlize-face-size face))) (if (eql size 1.0) nil (pro= gn (or (and (vectorp fstruct) (>=3D (length fstruct) 10) (memq (aref fstruc= t 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote= htmlize-fstruct-size) (quote htmlize-fstruct))) (let* ((v fstruct)) (aset = v 3 size)))))) (let ((fstruct (make-htmlize-fstruct :foreground (htmlize-color-to-rgb (h= tmlize-face-foreground face)) :background (htmlize-color-to-rgb (htmlize-fa= ce-background face))))) (if htmlize-running-xemacs (let* ((font-instance (f= ace-font-instance face)) (props (font-instance-properties font-instance))) = (if (equalp (cdr (assq (quote WEIGHT_NAME) props)) "bold") (progn (progn (o= r (and ... ... ...) (error "%s accessing a non-%s" ... ...)) (let* (...) (a= set v 4 t))))) (if (or (equalp (cdr (assq ... props)) "i") (equalp (cdr (as= sq ... props)) "o")) (progn (progn (or (and ... ... ...) (error "%s accessi= ng a non-%s" ... ...)) (let* (...) (aset v 5 t))))) (progn (or (and (vector= p fstruct) (>=3D (length fstruct) 10) (memq (aref fstruct 0) cl-struct-html= ize-fstruct-tags)) (error "%s accessing a non-%s" (quote htmlize-fstruct-st= rikep) (quote htmlize-fstruct))) (let* ((v fstruct)) (aset v 8 (face-strike= thru-p face)))) (progn (or (and (vectorp fstruct) (>=3D (length fstruct) 10= ) (memq (aref fstruct 0) cl-struct-htmlize-fstruct-tags)) (error "%s access= ing a non-%s" (quote htmlize-fstruct-underlinep) (quote htmlize-fstruct))) = (let* ((v fstruct)) (aset v 6 (face-underline-p face))))) (progn (let ((--d= olist-tail-- (quote (:weight :slant :underline :overline :strike-through)))= attr) (while --dolist-tail-- (setq attr (car --dolist-tail--)) (let ((valu= e ...)) (if (and value ...) (progn ...))) (setq --dolist-tail-- (cdr --doli= st-tail--))))) (let ((size (htmlize-face-size face))) (if (eql size 1.0) ni= l (progn (or (and (vectorp fstruct) (>=3D ... 10) (memq ... cl-struct-htmli= ze-fstruct-tags)) (error "%s accessing a non-%s" (quote htmlize-fstruct-siz= e) (quote htmlize-fstruct))) (let* ((v fstruct)) (aset v 3 size)))))) (prog= n (or (and (vectorp fstruct) (>=3D (length fstruct) 10) (memq (aref fstruct= 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote = htmlize-fstruct-css-name) (quote htmlize-fstruct))) (let* ((v fstruct)) (as= et v 9 (htmlize-face-css-name face)))) fstruct) htmlize-face-to-fstruct(css-proprietary-property) (if (symbolp face) (htmlize-face-to-fstruct face) (htmlize-attrlist-to-fs= truct face)) (let ((fstruct (if (symbolp face) (htmlize-face-to-fstruct face) (htmlize= -attrlist-to-fstruct face)))) (let* ((v face) (v face-map)) (puthash v fstr= uct v)) (let* ((css-name (progn (or (and (vectorp fstruct) (>=3D ... 10) (m= emq ... cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (qu= ote htmlize-fstruct-css-name) (quote htmlize-fstruct))) (aref fstruct 9))) = (new-name css-name) (i 0)) (while (member new-name css-names) (setq new-nam= e (format "%s-%s" css-name (setq i (1+ i))))) (if (equal new-name css-name)= nil (progn (or (and (vectorp fstruct) (>=3D (length fstruct) 10) (memq (ar= ef fstruct 0) cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%= s" (quote htmlize-fstruct-css-name) (quote htmlize-fstruct))) (let* ((v fst= ruct)) (aset v 9 new-name)))) (setq css-names (cons new-name css-names)))) (if (gethash face face-map) nil (let ((fstruct (if (symbolp face) (htmliz= e-face-to-fstruct face) (htmlize-attrlist-to-fstruct face)))) (let* ((v fac= e) (v face-map)) (puthash v fstruct v)) (let* ((css-name (progn (or (and ..= . ... ...) (error "%s accessing a non-%s" ... ...)) (aref fstruct 9))) (new= -name css-name) (i 0)) (while (member new-name css-names) (setq new-name (f= ormat "%s-%s" css-name (setq i (1+ i))))) (if (equal new-name css-name) nil= (progn (or (and (vectorp fstruct) (>=3D ... 10) (memq ... cl-struct-htmliz= e-fstruct-tags)) (error "%s accessing a non-%s" (quote htmlize-fstruct-css-= name) (quote htmlize-fstruct))) (let* ((v fstruct)) (aset v 9 new-name)))) = (setq css-names (cons new-name css-names))))) (while --dolist-tail-- (setq face (car --dolist-tail--)) (if (gethash fac= e face-map) nil (let ((fstruct (if (symbolp face) (htmlize-face-to-fstruct = face) (htmlize-attrlist-to-fstruct face)))) (let* ((v face) (v face-map)) (= puthash v fstruct v)) (let* ((css-name (progn (or ... ...) (aref fstruct 9)= )) (new-name css-name) (i 0)) (while (member new-name css-names) (setq new-= name (format "%s-%s" css-name (setq i ...)))) (if (equal new-name css-name)= nil (progn (or (and ... ... ...) (error "%s accessing a non-%s" ... ...)) = (let* (...) (aset v 9 new-name)))) (setq css-names (cons new-name css-names= ))))) (setq --dolist-tail-- (cdr --dolist-tail--))) (let ((--dolist-tail-- faces) face) (while --dolist-tail-- (setq face (ca= r --dolist-tail--)) (if (gethash face face-map) nil (let ((fstruct (if (sym= bolp face) (htmlize-face-to-fstruct face) (htmlize-attrlist-to-fstruct face= )))) (let* ((v face) (v face-map)) (puthash v fstruct v)) (let* ((css-name = (progn ... ...)) (new-name css-name) (i 0)) (while (member new-name css-nam= es) (setq new-name (format "%s-%s" css-name ...))) (if (equal new-name css-= name) nil (progn (or ... ...) (let* ... ...))) (setq css-names (cons new-na= me css-names))))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (progn (let ((--dolist-tail-- faces) face) (while --dolist-tail-- (setq f= ace (car --dolist-tail--)) (if (gethash face face-map) nil (let ((fstruct (= if ... ... ...))) (let* ((v face) (v face-map)) (puthash v fstruct v)) (let= * ((css-name ...) (new-name css-name) (i 0)) (while (member new-name css-na= mes) (setq new-name ...)) (if (equal new-name css-name) nil (progn ... ...)= ) (setq css-names (cons new-name css-names))))) (setq --dolist-tail-- (cdr = --dolist-tail--))))) (let ((face-map (make-hash-table :test (quote equal))) css-names) (progn = (let ((--dolist-tail-- faces) face) (while --dolist-tail-- (setq face (car = --dolist-tail--)) (if (gethash face face-map) nil (let ((fstruct ...)) (let= * (... ...) (puthash v fstruct v)) (let* (... ... ...) (while ... ...) (if = ... nil ...) (setq css-names ...)))) (setq --dolist-tail-- (cdr --dolist-ta= il--))))) face-map) htmlize-make-face-map((default css-property css-selector css-proprietary-= property)) (let* ((buffer-faces (htmlize-faces-in-buffer)) (face-map (htmlize-make-f= ace-map (if (memql (quote default) buffer-faces) buffer-faces (cons (quote = default) buffer-faces)))) (places (gensym)) (title (if (buffer-file-name) (= file-name-nondirectory (buffer-file-name)) (buffer-name)))) (if htmlize-gen= erate-hyperlinks (progn (htmlize-create-auto-links))) (if htmlize-replace-f= orm-feeds (progn (htmlize-shadow-form-feeds))) (save-current-buffer (set-bu= ffer htmlbuf) (buffer-disable-undo) (insert (funcall (htmlize-method-functi= on (quote doctype))) 10 (format "= \n" htmlize-version htmlize-output-type) "\n ") (put places (quote h= ead-start) (point-marker)) (insert "\n" " " (htmlize-protec= t-string title) "\n" (if htmlize-html-charset (format (concat " = \n") htmlize-html-charset) "") htmlize-head-tags) (funcall (htmlize-metho= d-function (quote insert-head)) buffer-faces face-map) (insert " ")= (put places (quote head-end) (point-marker)) (insert "\n ") (put places (= quote body-start) (point-marker)) (insert (funcall (htmlize-method-function= (quote body-tag)) face-map) "\n ") (put places (quote content-start) (p= oint-marker)) (insert "
\n")) (let ((text-markup (htmlize-method-functi=
on (quote text-markup))) next-change text face-list trailing-ellipsis fstru=
ct-list last-fstruct-list (close-markup (function (lambda nil)))) (goto-cha=
r (point-min)) (while (not (eobp)) (setq next-change (htmlize-next-face-cha=
nge (point))) (setq face-list (htmlize-faces-at-point) fstruct-list (delq n=
il (mapcar (function (lambda ... ...)) face-list))) (let ((--cl-var-- (html=
ize-extract-text (point) next-change trailing-ellipsis))) (prog1 (setq text=
 (car --cl-var--)) (setq trailing-ellipsis (nth 1 --cl-var--)))) (if (> (le=
ngth text) 0) (progn (if (not (equalp fstruct-list last-fstruct-list)) (pro=
gn (funcall close-markup) (setq last-fstruct-list fstruct-list close-markup=
 ...))) (princ text htmlbuf))) (goto-char next-change)) (funcall close-mark=
up)) (save-current-buffer (set-buffer htmlbuf) (insert "
") (put place= s (quote content-end) (point-marker)) (insert "\n ") (put places (q= uote body-end) (point-marker)) (insert "\n\n") (htmlize-defang-local= -variables) (goto-char (point-min)) (if htmlize-html-major-mode (progn (fun= call htmlize-html-major-mode))) (set (make-local-variable (quote htmlize-bu= ffer-places)) (symbol-plist places)) (run-hooks (quote htmlize-after-hook))= (buffer-enable-undo)) (setq completed t) htmlbuf) (unwind-protect (let* ((buffer-faces (htmlize-faces-in-buffer)) (face-map= (htmlize-make-face-map (if (memql (quote default) buffer-faces) buffer-fac= es (cons (quote default) buffer-faces)))) (places (gensym)) (title (if (buf= fer-file-name) (file-name-nondirectory (buffer-file-name)) (buffer-name))))= (if htmlize-generate-hyperlinks (progn (htmlize-create-auto-links))) (if h= tmlize-replace-form-feeds (progn (htmlize-shadow-form-feeds))) (save-curren= t-buffer (set-buffer htmlbuf) (buffer-disable-undo) (insert (funcall (htmli= ze-method-function (quote doctype))) 10 (format "\n" htmlize-version htmlize-output-type) "\n ") (put= places (quote head-start) (point-marker)) (insert "\n" " "= (htmlize-protect-string title) "\n" (if htmlize-html-charset (form= at (concat " \n") htmlize-html-charset) "") htmlize-head-tags) (funcal= l (htmlize-method-function (quote insert-head)) buffer-faces face-map) (ins= ert " ") (put places (quote head-end) (point-marker)) (insert "\n = ") (put places (quote body-start) (point-marker)) (insert (funcall (htmlize= -method-function (quote body-tag)) face-map) "\n ") (put places (quote c= ontent-start) (point-marker)) (insert "
\n")) (let ((text-markup (htmli=
ze-method-function (quote text-markup))) next-change text face-list trailin=
g-ellipsis fstruct-list last-fstruct-list (close-markup (function (lambda n=
il)))) (goto-char (point-min)) (while (not (eobp)) (setq next-change (htmli=
ze-next-face-change (point))) (setq face-list (htmlize-faces-at-point) fstr=
uct-list (delq nil (mapcar (function ...) face-list))) (let ((--cl-var-- (h=
tmlize-extract-text ... next-change trailing-ellipsis))) (prog1 (setq text =
(car --cl-var--)) (setq trailing-ellipsis (nth 1 --cl-var--)))) (if (> (len=
gth text) 0) (progn (if (not ...) (progn ... ...)) (princ text htmlbuf))) (=
goto-char next-change)) (funcall close-markup)) (save-current-buffer (set-b=
uffer htmlbuf) (insert "
") (put places (quote content-end) (point-mar= ker)) (insert "\n ") (put places (quote body-end) (point-marker)) (= insert "\n\n") (htmlize-defang-local-variables) (goto-char (point-mi= n)) (if htmlize-html-major-mode (progn (funcall htmlize-html-major-mode))) = (set (make-local-variable (quote htmlize-buffer-places)) (symbol-plist plac= es)) (run-hooks (quote htmlize-after-hook)) (buffer-enable-undo)) (setq com= pleted t) htmlbuf) (if (not completed) (progn (kill-buffer htmlbuf))) (html= ize-delete-tmp-overlays)) (let ((htmlbuf (generate-new-buffer (if (buffer-file-name) (htmlize-make-= file-name (file-name-nondirectory (buffer-file-name))) "*html*"))) (complet= ed nil)) (unwind-protect (let* ((buffer-faces (htmlize-faces-in-buffer)) (f= ace-map (htmlize-make-face-map (if (memql ... buffer-faces) buffer-faces (c= ons ... buffer-faces)))) (places (gensym)) (title (if (buffer-file-name) (f= ile-name-nondirectory (buffer-file-name)) (buffer-name)))) (if htmlize-gene= rate-hyperlinks (progn (htmlize-create-auto-links))) (if htmlize-replace-fo= rm-feeds (progn (htmlize-shadow-form-feeds))) (save-current-buffer (set-buf= fer htmlbuf) (buffer-disable-undo) (insert (funcall (htmlize-method-functio= n (quote doctype))) 10 (format "\= n" htmlize-version htmlize-output-type) "\n ") (put places (quote he= ad-start) (point-marker)) (insert "\n" " " (htmlize-protect= -string title) "\n" (if htmlize-html-charset (format (concat " <= meta http-equiv=3D\"Content-Type\" " "content=3D\"text/html; charset=3D%s\"= >\n") htmlize-html-charset) "") htmlize-head-tags) (funcall (htmlize-method= -function (quote insert-head)) buffer-faces face-map) (insert " ") = (put places (quote head-end) (point-marker)) (insert "\n ") (put places (q= uote body-start) (point-marker)) (insert (funcall (htmlize-method-function = (quote body-tag)) face-map) "\n ") (put places (quote content-start) (po= int-marker)) (insert "
\n")) (let ((text-markup (htmlize-method-functio=
n (quote text-markup))) next-change text face-list trailing-ellipsis fstruc=
t-list last-fstruct-list (close-markup (function (lambda nil)))) (goto-char=
 (point-min)) (while (not (eobp)) (setq next-change (htmlize-next-face-chan=
ge (point))) (setq face-list (htmlize-faces-at-point) fstruct-list (delq ni=
l (mapcar ... face-list))) (let ((--cl-var-- ...)) (prog1 (setq text ...) (=
setq trailing-ellipsis ...))) (if (> (length text) 0) (progn (if ... ...) (=
princ text htmlbuf))) (goto-char next-change)) (funcall close-markup)) (sav=
e-current-buffer (set-buffer htmlbuf) (insert "
") (put places (quote = content-end) (point-marker)) (insert "\n ") (put places (quote body= -end) (point-marker)) (insert "\n\n") (htmlize-defang-local-variable= s) (goto-char (point-min)) (if htmlize-html-major-mode (progn (funcall html= ize-html-major-mode))) (set (make-local-variable (quote htmlize-buffer-plac= es)) (symbol-plist places)) (run-hooks (quote htmlize-after-hook)) (buffer-= enable-undo)) (setq completed t) htmlbuf) (if (not completed) (progn (kill-= buffer htmlbuf))) (htmlize-delete-tmp-overlays))) (save-excursion (save-excursion (run-hooks (quote htmlize-before-hook))) = (htmlize-ensure-fontified) (clrhash htmlize-extended-character-cache) (clrh= ash htmlize-memoization-table) (let ((htmlbuf (generate-new-buffer (if (buf= fer-file-name) (htmlize-make-file-name (file-name-nondirectory ...)) "*html= *"))) (completed nil)) (unwind-protect (let* ((buffer-faces (htmlize-faces-= in-buffer)) (face-map (htmlize-make-face-map (if ... buffer-faces ...))) (p= laces (gensym)) (title (if (buffer-file-name) (file-name-nondirectory ...) = (buffer-name)))) (if htmlize-generate-hyperlinks (progn (htmlize-create-aut= o-links))) (if htmlize-replace-form-feeds (progn (htmlize-shadow-form-feeds= ))) (save-current-buffer (set-buffer htmlbuf) (buffer-disable-undo) (insert= (funcall (htmlize-method-function ...)) 10 (format "\n" htmlize-version htmlize-output-type) "\n ") = (put places (quote head-start) (point-marker)) (insert "\n" " " (htmlize-protect-string title) "\n" (if htmlize-html-charset (= format ... htmlize-html-charset) "") htmlize-head-tags) (funcall (htmlize-m= ethod-function (quote insert-head)) buffer-faces face-map) (insert " ") (put places (quote head-end) (point-marker)) (insert "\n ") (put plac= es (quote body-start) (point-marker)) (insert (funcall (htmlize-method-func= tion ...) face-map) "\n ") (put places (quote content-start) (point-mark= er)) (insert "
\n")) (let ((text-markup (htmlize-method-function ...)) =
next-change text face-list trailing-ellipsis fstruct-list last-fstruct-list=
 (close-markup (function ...))) (goto-char (point-min)) (while (not (eobp))=
 (setq next-change (htmlize-next-face-change ...)) (setq face-list (htmlize=
-faces-at-point) fstruct-list (delq nil ...)) (let (...) (prog1 ... ...)) (=
if (> ... 0) (progn ... ...)) (goto-char next-change)) (funcall close-marku=
p)) (save-current-buffer (set-buffer htmlbuf) (insert "
") (put places= (quote content-end) (point-marker)) (insert "\n ") (put places (qu= ote body-end) (point-marker)) (insert "\n\n") (htmlize-defang-local-= variables) (goto-char (point-min)) (if htmlize-html-major-mode (progn (func= all htmlize-html-major-mode))) (set (make-local-variable (quote htmlize-buf= fer-places)) (symbol-plist places)) (run-hooks (quote htmlize-after-hook)) = (buffer-enable-undo)) (setq completed t) htmlbuf) (if (not completed) (prog= n (kill-buffer htmlbuf))) (htmlize-delete-tmp-overlays)))) htmlize-buffer-1() (save-restriction (narrow-to-region beg end) (htmlize-buffer-1)) (let ((htmlbuf (save-restriction (narrow-to-region beg end) (htmlize-buff= er-1)))) (if (interactive-p) (progn (switch-to-buffer htmlbuf))) htmlbuf) htmlize-region(1 156) (let* ((htmlize-output-type org-export-e-htmlize-output-type) (htmlize-cs= s-name-prefix org-export-e-htmlize-css-font-prefix) (htmlbuf (htmlize-regio= n beg end))) (unwind-protect (save-current-buffer (set-buffer htmlbuf) (buf= fer-substring (plist-get htmlize-buffer-places (quote content-start)) (plis= t-get htmlize-buffer-places (quote content-end)))) (kill-buffer htmlbuf))) org-export-e-htmlize-region-for-paste(1 156) (progn (insert code) (funcall lang-mode) (font-lock-fontify-buffer) (save= -excursion (let ((beg (point-min)) (end (point-max))) (goto-char beg) (whil= e (progn (end-of-line) (< (point) end)) (put-text-property (point) (1+ (poi= nt)) (quote face) nil) (forward-char 1)))) (org-src-mode) (set-buffer-modif= ied-p nil) (org-export-e-htmlize-region-for-paste (point-min) (point-max))) (unwind-protect (progn (insert code) (funcall lang-mode) (font-lock-fonti= fy-buffer) (save-excursion (let ((beg (point-min)) (end (point-max))) (goto= -char beg) (while (progn (end-of-line) (< (point) end)) (put-text-property = (point) (1+ (point)) (quote face) nil) (forward-char 1)))) (org-src-mode) (= set-buffer-modified-p nil) (org-export-e-htmlize-region-for-paste (point-mi= n) (point-max))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (ins= ert code) (funcall lang-mode) (font-lock-fontify-buffer) (save-excursion (l= et ((beg (point-min)) (end (point-max))) (goto-char beg) (while (progn (end= -of-line) (< ... end)) (put-text-property (point) (1+ ...) (quote face) nil= ) (forward-char 1)))) (org-src-mode) (set-buffer-modified-p nil) (org-expor= t-e-htmlize-region-for-paste (point-min) (point-max))) (and (buffer-name te= mp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer= (set-buffer temp-buffer) (unwind-protect (progn (insert code) (funcall lan= g-mode) (font-lock-fontify-buffer) (save-excursion (let ((beg ...) (end ...= )) (goto-char beg) (while (progn ... ...) (put-text-property ... ... ... ni= l) (forward-char 1)))) (org-src-mode) (set-buffer-modified-p nil) (org-expo= rt-e-htmlize-region-for-paste (point-min) (point-max))) (and (buffer-name t= emp-buffer) (kill-buffer temp-buffer))))) (setq code (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-cur= rent-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert code) (= funcall lang-mode) (font-lock-fontify-buffer) (save-excursion (let (... ...= ) (goto-char beg) (while ... ... ...))) (org-src-mode) (set-buffer-modified= -p nil) (org-export-e-htmlize-region-for-paste (point-min) (point-max))) (a= nd (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (cond ((not (functionp lang-mode)) (org-e-html-encode-plain-text code)) (= t (setq code (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-cur= rent-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert code) (= funcall lang-mode) (font-lock-fontify-buffer) (save-excursion ...) (org-src= -mode) (set-buffer-modified-p nil) (org-export-e-htmlize-region-for-paste .= .. ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (if = (string-match "]*>\n*\\([^]*\\)" code) (match-string 1 code) c= ode))) (let* ((lang-mode (and lang (intern (format "%s-mode" lang))))) (cond ((n= ot (functionp lang-mode)) (org-e-html-encode-plain-text code)) (t (setq cod= e (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer= (set-buffer temp-buffer) (unwind-protect (progn ... ... ... ... ... ... ..= .) (and ... ...))))) (if (string-match "]*>\n*\\([^]*\\)" code= ) (match-string 1 code) code)))) (cond ((not lang) (org-e-html-encode-plain-text code)) ((not (and (requir= e (quote htmlize) nil t) (fboundp (quote htmlize-region-for-paste)))) (mess= age "Cannot fontify src block (htmlize.el >=3D 1.34 required)") (org-e-html= -encode-plain-text code)) (t (setq lang (or (assoc-default lang org-src-lan= g-modes) lang)) (let* ((lang-mode (and lang (intern (format "%s-mode" lang)= )))) (cond ((not (functionp lang-mode)) (org-e-html-encode-plain-text code)= ) (t (setq code (let (...) (save-current-buffer ... ...))) (if (string-matc= h "]*>\n*\\([^]*\\)" code) (match-string 1 code) code)))))) (progn (cond ((not lang) (org-e-html-encode-plain-text code)) ((not (and = (require (quote htmlize) nil t) (fboundp (quote htmlize-region-for-paste)))= ) (message "Cannot fontify src block (htmlize.el >=3D 1.34 required)") (org= -e-html-encode-plain-text code)) (t (setq lang (or (assoc-default lang org-= src-lang-modes) lang)) (let* ((lang-mode (and lang (intern ...)))) (cond ((= not (functionp lang-mode)) (org-e-html-encode-plain-text code)) (t (setq co= de (let ... ...)) (if (string-match "]*>\n*\\([^]*\\)" code) (= match-string 1 code) code))))))) (if code (progn (cond ((not lang) (org-e-html-encode-plain-text code)) ((= not (and (require (quote htmlize) nil t) (fboundp (quote htmlize-region-for= -paste)))) (message "Cannot fontify src block (htmlize.el >=3D 1.34 require= d)") (org-e-html-encode-plain-text code)) (t (setq lang (or (assoc-default = lang org-src-lang-modes) lang)) (let* ((lang-mode (and lang ...))) (cond ((= not ...) (org-e-html-encode-plain-text code)) (t (setq code ...) (if ... ..= . code)))))))) org-e-html-fontify-code("#panel-button {\n -moz-transform: rotate(90de= g);\n -o-transform: rotate(90deg);\n -webkit-transform: rotate(90deg)= ;\n background-color: #EFEFEF;\n}\n" "css") (let* ((code-lines (org-split-string code "\n")) (code-length (length cod= e-lines)) (num-fmt (and num-start (format "%%%ds: " (length (number-to-stri= ng (+ code-length num-start)))))) (code (org-e-html-fontify-code code lang)= )) (progn (or (=3D code-length (length (org-split-string code "\n"))) (sign= al (quote cl-assertion-failed) (list (quote (=3D code-length (length ...)))= ))) nil) (org-export-format-code code (function (lambda (loc line-num ref) = (setq loc (concat (if num-start (progn ...)) loc (if (and ref retain-labels= ) (progn ...)))) (if (not ref) loc (format "%s" ref loc)))) num-start refs)) org-e-html-do-format-code("#panel-button {\n -moz-transform: rotate(90= deg);\n -o-transform: rotate(90deg);\n -webkit-transform: rotate(90de= g);\n background-color: #EFEFEF;\n}\n" "css" nil t nil nil) (let* ((lang (org-element-property :language element)) (switches nil) (te= xtarea-p (and switches (string-match "-t\\>" switches))) (code-info (org-ex= port-unravel-code element)) (code (car code-info)) (refs (cdr code-info)) (= retain-labels (org-element-property :retain-labels element)) (num-start (le= t ((--cl-var-- (org-element-property :number-lines element))) (cond ((eql -= -cl-var-- (quote continued)) (org-export-get-loc element info)) ((eql --cl-= var-- (quote new)) 0))))) (org-e-html-do-format-code code lang refs retain-= labels num-start textarea-p)) org-e-html-format-code((src-block (:language "css" :switches nil :paramet= ers nil :begin 130 :end 313 :number-lines nil :preserve-indent nil :retain-= labels t :use-labels t :label-fmt nil :hiddenp nil :value "#panel-button {\= n -moz-transform: rotate(90deg);\n -o-transform: rotate(90deg);\n = -webkit-transform: rotate(90deg);\n background-color: #EFEFEF;\n}\n" :po= st-blank 1 :post-affiliated 130 :parent (section (:begin 83 :end 349 :conte= nts-begin 83 :contents-end 349 :post-blank 0 :parent (headline (:raw-value = "CSS code" :begin 71 :end 349 :pre-blank 1 :hiddenp nil :contents-begin 83 = :contents-end 349 :level 1 :priority nil :tags nil :todo-keyword nil :todo-= type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp n= il :quotedp nil :category nil :title (#("CSS code" 0 8 ...)) :parent (org-d= ata nil (section ... ... ...) #4)) #2)) (paragraph (:begin 83 :end 130 :con= tents-begin 83 :contents-end 129 :post-blank 1 :post-affiliated 83 :parent = #2) #("When exporting the following chunk of code...\n" 0 46 (:parent #3)))= #0 (paragraph (:begin 313 :end 349 :contents-begin 313 :contents-end 349 := post-blank 0 :post-affiliated 313 :parent #2) #("... we get the following b= acktrace:\n" 0 36 (:parent #3)))))) (:input-file "d:/home/sva/Examples/Org-= scraps/ecm-htmlize-italic.txt" :title (#("ECM face-attribute: css-property = italic" 0 39 (:parent #1))) :author (#("Fabrice Niessen" 0 15 (:parent #1))= ) :creator "Generated by Org mode 7.9.= 2 in Emacs 24.2.50.1."= :date nil :description nil :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tag= s ("noexport") :headline-levels 3 :keywords nil :language "en" :preserve-br= eaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :wit= h-archived-trees headline :with-author t :with-clocks nil :with-creator nil= :with-date t :with-drawers nil :with-email nil :with-emphasize t :with-ent= ities t :with-fixed-width t ...)) (let ((lang (org-element-property :language src-block)) (caption (org-exp= ort-get-caption src-block)) (attr (org-export-read-attribute :attr_html src= -block)) (code (org-e-html-format-code src-block info))) (cond (lang (forma= t "
\n%s%s\n
" (if (not caption) "" = (format "" (org-export-data capti= on info))) (format "\n
%s
" lang code))) ((= plist-get attr :textarea) (let ((cols (or (plist-get attr :width) 80)) (row= s (or (plist-get attr :height) (org-count-lines code)))) (format "

\n\n%s\n

" cols rows code))) = (t (format "
\n%s
" code)))) org-e-html-src-block((src-block (:language "css" :switches nil :parameter= s nil :begin 130 :end 313 :number-lines nil :preserve-indent nil :retain-la= bels t :use-labels t :label-fmt nil :hiddenp nil :value "#panel-button {\n = -moz-transform: rotate(90deg);\n -o-transform: rotate(90deg);\n -w= ebkit-transform: rotate(90deg);\n background-color: #EFEFEF;\n}\n" :post= -blank 1 :post-affiliated 130 :parent (section (:begin 83 :end 349 :content= s-begin 83 :contents-end 349 :post-blank 0 :parent (headline (:raw-value "C= SS code" :begin 71 :end 349 :pre-blank 1 :hiddenp nil :contents-begin 83 :c= ontents-end 349 :level 1 :priority nil :tags nil :todo-keyword nil :todo-ty= pe nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil= :quotedp nil :category nil :title (#("CSS code" 0 8 ...)) :parent (org-dat= a nil (section ... ... ...) #4)) #2)) (paragraph (:begin 83 :end 130 :conte= nts-begin 83 :contents-end 129 :post-blank 1 :post-affiliated 83 :parent #2= ) #("When exporting the following chunk of code...\n" 0 46 (:parent #3))) #= 0 (paragraph (:begin 313 :end 349 :contents-begin 313 :contents-end 349 :po= st-blank 0 :post-affiliated 313 :parent #2) #("... we get the following bac= ktrace:\n" 0 36 (:parent #3)))))) nil (:input-file "d:/home/sva/Examples/Or= g-scraps/ecm-htmlize-italic.txt" :title (#("ECM face-attribute: css-propert= y italic" 0 39 (:parent #1))) :author (#("Fabrice Niessen" 0 15 (:parent #1= ))) :creator "Generated by Org mode 7.= 9.2 in Emacs 24.2.50.1= ." :date nil :description nil :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-t= ags ("noexport") :headline-levels 3 :keywords nil :language "en" :preserve-= breaks nil :section-numbers t :select-tags ("export") :time-stamp-file t :w= ith-archived-trees headline :with-author t :with-clocks nil :with-creator n= il :with-date t :with-drawers nil :with-email nil :with-emphasize t :with-e= ntities t :with-fixed-width t ...)) funcall(org-e-html-src-block (src-block (:language "css" :switches nil :p= arameters nil :begin 130 :end 313 :number-lines nil :preserve-indent nil :r= etain-labels t :use-labels t :label-fmt nil :hiddenp nil :value "#panel-but= ton {\n -moz-transform: rotate(90deg);\n -o-transform: rotate(90deg);= \n -webkit-transform: rotate(90deg);\n background-color: #EFEFEF;\n}\= n" :post-blank 1 :post-affiliated 130 :parent (section (:begin 83 :end 349 = :contents-begin 83 :contents-end 349 :post-blank 0 :parent (headline (:raw-= value "CSS code" :begin 71 :end 349 :pre-blank 1 :hiddenp nil :contents-beg= in 83 :contents-end 349 :level 1 :priority nil :tags nil :todo-keyword nil = :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commen= tedp nil :quotedp nil :category nil :title (#("CSS code" 0 8 ...)) :parent = (org-data nil (section ... ... ...) #4)) #2)) (paragraph (:begin 83 :end 13= 0 :contents-begin 83 :contents-end 129 :post-blank 1 :post-affiliated 83 :p= arent #2) #("When exporting the following chunk of code...\n" 0 46 (:parent= #3))) #0 (paragraph (:begin 313 :end 349 :contents-begin 313 :contents-end= 349 :post-blank 0 :post-affiliated 313 :parent #2) #("... we get the follo= wing backtrace:\n" 0 36 (:parent #3)))))) nil (:input-file "d:/home/sva/Exa= mples/Org-scraps/ecm-htmlize-italic.txt" :title (#("ECM face-attribute: css= -property italic" 0 39 (:parent #1))) :author (#("Fabrice Niessen" 0 15 (:p= arent #1))) :creator "Generated by Org= mode 7.9.2 in Emacs 2= 4.2.50.1." :date nil :description nil :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :e= xclude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :p= reserve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-f= ile t :with-archived-trees headline :with-author t :with-clocks nil :with-c= reator nil :with-date t :with-drawers nil :with-email nil :with-emphasize t= :with-entities t :with-fixed-width t ...)) (and (functionp transcoder) (funcall transcoder data nil info)) (let ((transcoder (org-export-transcoder data info))) (and (functionp tra= nscoder) (funcall transcoder data nil info))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote pl= ain-text)) (org-no-properties (org-export-filter-apply-functions (plist-get= info :filter-plain-text) (let ((transcoder (org-export-transcoder data inf= o))) (if transcoder (funcall transcoder data info) data)) info))) ((not (or= g-export--interpret-p data info)) (org-export-data (org-export-expand data = (mapconcat (function (lambda (blob) (org-export-data blob info))) (org-elem= ent-contents data) "")) info)) ((not type) (mapconcat (function (lambda (ob= j) (org-export-data obj info))) data "")) ((or (not (org-element-contents d= ata)) (and (eq type (quote headline)) (eq (plist-get info :with-archived-tr= ees) (quote headline)) (org-element-property :archivedp data))) (let ((tran= scoder (org-export-transcoder data info))) (and (functionp transcoder) (fun= call transcoder data nil info)))) (t (let ((transcoder (org-export-transcod= er data info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (= contents ...)) (funcall transcoder data (if ... contents ...) info))))))) (let* ((type (org-element-type data)) (results (cond ((memq data (plist-g= et info :ignore-list)) nil) ((eq type (quote plain-text)) (org-no-propertie= s (org-export-filter-apply-functions (plist-get info :filter-plain-text) (l= et ... ...) info))) ((not (org-export--interpret-p data info)) (org-export-= data (org-export-expand data (mapconcat ... ... "")) info)) ((not type) (ma= pconcat (function (lambda ... ...)) data "")) ((or (not (org-element-conten= ts data)) (and (eq type ...) (eq ... ...) (org-element-property :archivedp = data))) (let ((transcoder ...)) (and (functionp transcoder) (funcall transc= oder data nil info)))) (t (let ((transcoder ...)) (if transcoder (progn ...= ))))))) (puthash data (cond ((not results) nil) ((memq type (quote (org-dat= a plain-text nil))) results) (t (let ((results (org-export-filter-apply-fun= ctions ... ... info))) results))) (plist-get info :exported-data))) (if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type d= ata)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq t= ype (quote plain-text)) (org-no-properties (org-export-filter-apply-functio= ns ... ... info))) ((not (org-export--interpret-p data info)) (org-export-d= ata (org-export-expand data ...) info)) ((not type) (mapconcat (function ..= .) data "")) ((or (not ...) (and ... ... ...)) (let (...) (and ... ...))) (= t (let (...) (if transcoder ...)))))) (puthash data (cond ((not results) ni= l) ((memq type (quote (org-data plain-text nil))) results) (t (let ((result= s ...)) results))) (plist-get info :exported-data)))) (let ((memo (gethash data (plist-get info :exported-data) (quote no-memo)= ))) (if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type= data)) (results (cond ((memq data ...) nil) ((eq type ...) (org-no-propert= ies ...)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ...= data "")) ((or ... ...) (let ... ...)) (t (let ... ...))))) (puthash data = (cond ((not results) nil) ((memq type (quote ...)) results) (t (let (...) r= esults))) (plist-get info :exported-data))))) org-export-data((src-block (:language "css" :switches nil :parameters nil= :begin 130 :end 313 :number-lines nil :preserve-indent nil :retain-labels = t :use-labels t :label-fmt nil :hiddenp nil :value "#panel-button {\n -m= oz-transform: rotate(90deg);\n -o-transform: rotate(90deg);\n -webkit= -transform: rotate(90deg);\n background-color: #EFEFEF;\n}\n" :post-blan= k 1 :post-affiliated 130 :parent (section (:begin 83 :end 349 :contents-beg= in 83 :contents-end 349 :post-blank 0 :parent (headline (:raw-value "CSS co= de" :begin 71 :end 349 :pre-blank 1 :hiddenp nil :contents-begin 83 :conten= ts-end 349 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type ni= l :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quo= tedp nil :category nil :title (#("CSS code" 0 8 ...)) :parent (org-data nil= (section ... ... ...) #4)) #2)) (paragraph (:begin 83 :end 130 :contents-b= egin 83 :contents-end 129 :post-blank 1 :post-affiliated 83 :parent #2) #("= When exporting the following chunk of code...\n" 0 46 (:parent #3))) #0 (pa= ragraph (:begin 313 :end 349 :contents-begin 313 :contents-end 349 :post-bl= ank 0 :post-affiliated 313 :parent #2) #("... we get the following backtrac= e:\n" 0 36 (:parent #3)))))) (:input-file "d:/home/sva/Examples/Org-scraps/= ecm-htmlize-italic.txt" :title (#("ECM face-attribute: css-property italic"= 0 39 (:parent #1))) :author (#("Fabrice Niessen" 0 15 (:parent #1))) :crea= tor "Generated by Org mode 7.9.2 in Emacs 24.2.50.1." :date = nil :description nil :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :exclude-tags ("noe= xport") :headline-levels 3 :keywords nil :language "en" :preserve-breaks ni= l :section-numbers t :select-tags ("export") :time-stamp-file t :with-archi= ved-trees headline :with-author t :with-clocks nil :with-creator nil :with-= date t :with-drawers nil :with-email nil :with-emphasize t :with-entities t= :with-fixed-width t ...)) (lambda (element) (org-export-data element info))((src-block (:language "= css" :switches nil :parameters nil :begin 130 :end 313 :number-lines nil :p= reserve-indent nil :retain-labels t :use-labels t :label-fmt nil :hiddenp n= il :value "#panel-button {\n -moz-transform: rotate(90deg);\n -o-tran= sform: rotate(90deg);\n -webkit-transform: rotate(90deg);\n backgroun= d-color: #EFEFEF;\n}\n" :post-blank 1 :post-affiliated 130 :parent (section= (:begin 83 :end 349 :contents-begin 83 :contents-end 349 :post-blank 0 :pa= rent (headline (:raw-value "CSS code" :begin 71 :end 349 :pre-blank 1 :hidd= enp nil :contents-begin 83 :contents-end 349 :level 1 :priority nil :tags n= il :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil := archivedp nil :commentedp nil :quotedp nil :category nil :title (#("CSS cod= e" 0 8 ...)) :parent (org-data nil (section ... ... ...) #4)) #2)) (paragra= ph (:begin 83 :end 130 :contents-begin 83 :contents-end 129 :post-blank 1 := post-affiliated 83 :parent #2) #("When exporting the following chunk of cod= e...\n" 0 46 (:parent #3))) #0 (paragraph (:begin 313 :end 349 :contents-be= gin 313 :contents-end 349 :post-blank 0 :post-affiliated 313 :parent #2) #(= "... we get the following backtrace:\n" 0 36 (:parent #3))))))) mapconcat((lambda (element) (org-export-data element info)) ((paragraph (= :begin 83 :end 130 :contents-begin 83 :contents-end 129 :post-blank 1 :post= -affiliated 83 :parent (section (:begin 83 :end 349 :contents-begin 83 :con= tents-end 349 :post-blank 0 :parent (headline (:raw-value "CSS code" :begin= 71 :end 349 :pre-blank 1 :hiddenp nil :contents-begin 83 :contents-end 349= :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-bl= ank 0 :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil := category nil :title (#("CSS code" 0 8 ...)) :parent (org-data nil ... #5)) = #3)) #1 (src-block (:language "css" :switches nil :parameters nil :begin 13= 0 :end 313 :number-lines nil :preserve-indent nil :retain-labels t :use-lab= els t :label-fmt nil :hiddenp nil :value "#panel-button {\n -moz-transfo= rm: rotate(90deg);\n -o-transform: rotate(90deg);\n -webkit-transform= : rotate(90deg);\n background-color: #EFEFEF;\n}\n" :post-blank 1 :post-= affiliated 130 :parent #3)) (paragraph (:begin 313 :end 349 :contents-begin= 313 :contents-end 349 :post-blank 0 :post-affiliated 313 :parent #3) #("..= . we get the following backtrace:\n" 0 36 (:parent #4))))) #("When exportin= g the following chunk of code...\n" 0 46 (:parent #1))) (src-block (:langua= ge "css" :switches nil :parameters nil :begin 130 :end 313 :number-lines ni= l :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :hidde= np nil :value "#panel-button {\n -moz-transform: rotate(90deg);\n -o-= transform: rotate(90deg);\n -webkit-transform: rotate(90deg);\n backg= round-color: #EFEFEF;\n}\n" :post-blank 1 :post-affiliated 130 :parent (sec= tion (:begin 83 :end 349 :contents-begin 83 :contents-end 349 :post-blank 0= :parent (headline (:raw-value "CSS code" :begin 71 :end 349 :pre-blank 1 := hiddenp nil :contents-begin 83 :contents-end 349 :level 1 :priority nil :ta= gs nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p n= il :archivedp nil :commentedp nil :quotedp nil :category nil :title (#("CSS= code" 0 8 ...)) :parent (org-data nil ... #5)) #3)) (paragraph (:begin 83 = :end 130 :contents-begin 83 :contents-end 129 :post-blank 1 :post-affiliate= d 83 :parent #3) #("When exporting the following chunk of code...\n" 0 46 (= :parent #4))) #1 (paragraph (:begin 313 :end 349 :contents-begin 313 :conte= nts-end 349 :post-blank 0 :post-affiliated 313 :parent #3) #("... we get th= e following backtrace:\n" 0 36 (:parent #4)))))) (paragraph (:begin 313 :en= d 349 :contents-begin 313 :contents-end 349 :post-blank 0 :post-affiliated = 313 :parent (section (:begin 83 :end 349 :contents-begin 83 :contents-end 3= 49 :post-blank 0 :parent (headline (:raw-value "CSS code" :begin 71 :end 34= 9 :pre-blank 1 :hiddenp nil :contents-begin 83 :contents-end 349 :level 1 := priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :foot= note-section-p nil :archivedp nil :commentedp nil :quotedp nil :category ni= l :title (#("CSS code" 0 8 ...)) :parent (org-data nil ... #5)) #3)) (parag= raph (:begin 83 :end 130 :contents-begin 83 :contents-end 129 :post-blank 1= :post-affiliated 83 :parent #3) #("When exporting the following chunk of c= ode...\n" 0 46 (:parent #4))) (src-block (:language "css" :switches nil :pa= rameters nil :begin 130 :end 313 :number-lines nil :preserve-indent nil :re= tain-labels t :use-labels t :label-fmt nil :hiddenp nil :value "#panel-butt= on {\n -moz-transform: rotate(90deg);\n -o-transform: rotate(90deg);\= n -webkit-transform: rotate(90deg);\n background-color: #EFEFEF;\n}\n= " :post-blank 1 :post-affiliated 130 :parent #3)) #1)) #("... we get the fo= llowing backtrace:\n" 0 36 (:parent #1)))) "") (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and = (not greaterp) (memq type org-element-recursive-objects))) (contents (mapco= ncat (function (lambda (element) (org-export-data element info))) (org-elem= ent-contents (if (or greaterp objectp) data (org-element-normalize-contents= data (if ... ...)))) ""))) (funcall transcoder data (if (not greaterp) con= tents (org-element-normalize-string contents)) info)) (progn (let* ((greaterp (memq type org-element-greater-elements)) (object= p (and (not greaterp) (memq type org-element-recursive-objects))) (contents= (mapconcat (function (lambda (element) (org-export-data element info))) (o= rg-element-contents (if (or greaterp objectp) data (org-element-normalize-c= ontents data ...))) ""))) (funcall transcoder data (if (not greaterp) conte= nts (org-element-normalize-string contents)) info))) (if transcoder (progn (let* ((greaterp (memq type org-element-greater-ele= ments)) (objectp (and (not greaterp) (memq type org-element-recursive-objec= ts))) (contents (mapconcat (function (lambda ... ...)) (org-element-content= s (if ... data ...)) ""))) (funcall transcoder data (if (not greaterp) cont= ents (org-element-normalize-string contents)) info)))) (let ((transcoder (org-export-transcoder data info))) (if transcoder (pro= gn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and= (not greaterp) (memq type org-element-recursive-objects))) (contents (mapc= oncat (function ...) (org-element-contents ...) ""))) (funcall transcoder d= ata (if (not greaterp) contents (org-element-normalize-string contents)) in= fo))))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote pl= ain-text)) (org-no-properties (org-export-filter-apply-functions (plist-get= info :filter-plain-text) (let ((transcoder (org-export-transcoder data inf= o))) (if transcoder (funcall transcoder data info) data)) info))) ((not (or= g-export--interpret-p data info)) (org-export-data (org-export-expand data = (mapconcat (function (lambda (blob) (org-export-data blob info))) (org-elem= ent-contents data) "")) info)) ((not type) (mapconcat (function (lambda (ob= j) (org-export-data obj info))) data "")) ((or (not (org-element-contents d= ata)) (and (eq type (quote headline)) (eq (plist-get info :with-archived-tr= ees) (quote headline)) (org-element-property :archivedp data))) (let ((tran= scoder (org-export-transcoder data info))) (and (functionp transcoder) (fun= call transcoder data nil info)))) (t (let ((transcoder (org-export-transcod= er data info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (= contents ...)) (funcall transcoder data (if ... contents ...) info))))))) (let* ((type (org-element-type data)) (results (cond ((memq data (plist-g= et info :ignore-list)) nil) ((eq type (quote plain-text)) (org-no-propertie= s (org-export-filter-apply-functions (plist-get info :filter-plain-text) (l= et ... ...) info))) ((not (org-export--interpret-p data info)) (org-export-= data (org-export-expand data (mapconcat ... ... "")) info)) ((not type) (ma= pconcat (function (lambda ... ...)) data "")) ((or (not (org-element-conten= ts data)) (and (eq type ...) (eq ... ...) (org-element-property :archivedp = data))) (let ((transcoder ...)) (and (functionp transcoder) (funcall transc= oder data nil info)))) (t (let ((transcoder ...)) (if transcoder (progn ...= ))))))) (puthash data (cond ((not results) nil) ((memq type (quote (org-dat= a plain-text nil))) results) (t (let ((results (org-export-filter-apply-fun= ctions ... ... info))) results))) (plist-get info :exported-data))) (if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type d= ata)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq t= ype (quote plain-text)) (org-no-properties (org-export-filter-apply-functio= ns ... ... info))) ((not (org-export--interpret-p data info)) (org-export-d= ata (org-export-expand data ...) info)) ((not type) (mapconcat (function ..= .) data "")) ((or (not ...) (and ... ... ...)) (let (...) (and ... ...))) (= t (let (...) (if transcoder ...)))))) (puthash data (cond ((not results) ni= l) ((memq type (quote (org-data plain-text nil))) results) (t (let ((result= s ...)) results))) (plist-get info :exported-data)))) (let ((memo (gethash data (plist-get info :exported-data) (quote no-memo)= ))) (if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type= data)) (results (cond ((memq data ...) nil) ((eq type ...) (org-no-propert= ies ...)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ...= data "")) ((or ... ...) (let ... ...)) (t (let ... ...))))) (puthash data = (cond ((not results) nil) ((memq type (quote ...)) results) (t (let (...) r= esults))) (plist-get info :exported-data))))) org-export-data((section (:begin 83 :end 349 :contents-begin 83 :contents= -end 349 :post-blank 0 :parent (headline (:raw-value "CSS code" :begin 71 := end 349 :pre-blank 1 :hiddenp nil :contents-begin 83 :contents-end 349 :lev= el 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0= :footnote-section-p nil :archivedp nil :commentedp nil :quotedp nil :categ= ory nil :title (#("CSS code" 0 8 (:parent #2))) :parent (org-data nil (sect= ion (:begin 1 :end 71 :contents-begin 1 :contents-end 70 :post-blank 1 :par= ent #4) (keyword (:key "TITLE" :value "ECM face-attribute: css-property ita= lic" :begin 1 :end 54 :post-blank 0 :post-affiliated 1 :parent #5)) (keywor= d (:key "LANGUAGE" :value "en" :begin 54 :end 70 :post-blank 0 :post-affili= ated 54 :parent #5))) #2)) #0)) (paragraph (:begin 83 :end 130 :contents-be= gin 83 :contents-end 129 :post-blank 1 :post-affiliated 83 :parent #0) #("W= hen exporting the following chunk of code...\n" 0 46 (:parent #1))) (src-bl= ock (:language "css" :switches nil :parameters nil :begin 130 :end 313 :num= ber-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fm= t nil :hiddenp nil :value "#panel-button {\n -moz-transform: rotate(90de= g);\n -o-transform: rotate(90deg);\n -webkit-transform: rotate(90deg)= ;\n background-color: #EFEFEF;\n}\n" :post-blank 1 :post-affiliated 130 = :parent #0)) (paragraph (:begin 313 :end 349 :contents-begin 313 :contents-= end 349 :post-blank 0 :post-affiliated 313 :parent #0) #("... we get the fo= llowing backtrace:\n" 0 36 (:parent #1)))) (:input-file "d:/home/sva/Exampl= es/Org-scraps/ecm-htmlize-italic.txt" :title (#("ECM face-attribute: css-pr= operty italic" 0 39 (:parent #1))) :author (#("Fabrice Niessen" 0 15 (:pare= nt #1))) :creator "Generated by Org mo= de 7.9.2 in Emacs 24.2= .50.1." :date nil :description nil :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :excl= ude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :pres= erve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file= t :with-archived-trees headline :with-author t :with-clocks nil :with-crea= tor nil :with-date t :with-drawers nil :with-email nil :with-emphasize t :w= ith-entities t :with-fixed-width t ...)) (lambda (element) (org-export-data element info))((section (:begin 83 :en= d 349 :contents-begin 83 :contents-end 349 :post-blank 0 :parent (headline = (:raw-value "CSS code" :begin 71 :end 349 :pre-blank 1 :hiddenp nil :conten= ts-begin 83 :contents-end 349 :level 1 :priority nil :tags nil :todo-keywor= d nil :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil := commentedp nil :quotedp nil :category nil :title (#("CSS code" 0 8 (:parent= #2))) :parent (org-data nil (section (:begin 1 :end 71 :contents-begin 1 := contents-end 70 :post-blank 1 :parent #4) (keyword (:key "TITLE" :value "EC= M face-attribute: css-property italic" :begin 1 :end 54 :post-blank 0 :post= -affiliated 1 :parent #5)) (keyword (:key "LANGUAGE" :value "en" :begin 54 = :end 70 :post-blank 0 :post-affiliated 54 :parent #5))) #2)) #0)) (paragrap= h (:begin 83 :end 130 :contents-begin 83 :contents-end 129 :post-blank 1 :p= ost-affiliated 83 :parent #0) #("When exporting the following chunk of code= ...\n" 0 46 (:parent #1))) (src-block (:language "css" :switches nil :param= eters nil :begin 130 :end 313 :number-lines nil :preserve-indent nil :retai= n-labels t :use-labels t :label-fmt nil :hiddenp nil :value "#panel-button = {\n -moz-transform: rotate(90deg);\n -o-transform: rotate(90deg);\n = -webkit-transform: rotate(90deg);\n background-color: #EFEFEF;\n}\n" := post-blank 1 :post-affiliated 130 :parent #0)) (paragraph (:begin 313 :end = 349 :contents-begin 313 :contents-end 349 :post-blank 0 :post-affiliated 31= 3 :parent #0) #("... we get the following backtrace:\n" 0 36 (:parent #1)))= )) mapconcat((lambda (element) (org-export-data element info)) ((section (:b= egin 83 :end 349 :contents-begin 83 :contents-end 349 :post-blank 0 :parent= (headline (:raw-value "CSS code" :begin 71 :end 349 :pre-blank 1 :hiddenp = nil :contents-begin 83 :contents-end 349 :level 1 :priority nil :tags nil := todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil :arch= ivedp nil :commentedp nil :quotedp nil :category nil :title (#("CSS code" 0= 8 (:parent #3))) :parent (org-data nil (section (:begin 1 :end 71 :content= s-begin 1 :contents-end 70 :post-blank 1 :parent #5) (keyword ...) (keyword= ...)) #3)) #1)) (paragraph (:begin 83 :end 130 :contents-begin 83 :content= s-end 129 :post-blank 1 :post-affiliated 83 :parent #1) #("When exporting t= he following chunk of code...\n" 0 46 (:parent #2))) (src-block (:language = "css" :switches nil :parameters nil :begin 130 :end 313 :number-lines nil := preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :hiddenp = nil :value "#panel-button {\n -moz-transform: rotate(90deg);\n -o-tra= nsform: rotate(90deg);\n -webkit-transform: rotate(90deg);\n backgrou= nd-color: #EFEFEF;\n}\n" :post-blank 1 :post-affiliated 130 :parent #1)) (p= aragraph (:begin 313 :end 349 :contents-begin 313 :contents-end 349 :post-b= lank 0 :post-affiliated 313 :parent #1) #("... we get the following backtra= ce:\n" 0 36 (:parent #2))))) "") (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and = (not greaterp) (memq type org-element-recursive-objects))) (contents (mapco= ncat (function (lambda (element) (org-export-data element info))) (org-elem= ent-contents (if (or greaterp objectp) data (org-element-normalize-contents= data (if ... ...)))) ""))) (funcall transcoder data (if (not greaterp) con= tents (org-element-normalize-string contents)) info)) (progn (let* ((greaterp (memq type org-element-greater-elements)) (object= p (and (not greaterp) (memq type org-element-recursive-objects))) (contents= (mapconcat (function (lambda (element) (org-export-data element info))) (o= rg-element-contents (if (or greaterp objectp) data (org-element-normalize-c= ontents data ...))) ""))) (funcall transcoder data (if (not greaterp) conte= nts (org-element-normalize-string contents)) info))) (if transcoder (progn (let* ((greaterp (memq type org-element-greater-ele= ments)) (objectp (and (not greaterp) (memq type org-element-recursive-objec= ts))) (contents (mapconcat (function (lambda ... ...)) (org-element-content= s (if ... data ...)) ""))) (funcall transcoder data (if (not greaterp) cont= ents (org-element-normalize-string contents)) info)))) (let ((transcoder (org-export-transcoder data info))) (if transcoder (pro= gn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and= (not greaterp) (memq type org-element-recursive-objects))) (contents (mapc= oncat (function ...) (org-element-contents ...) ""))) (funcall transcoder d= ata (if (not greaterp) contents (org-element-normalize-string contents)) in= fo))))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote pl= ain-text)) (org-no-properties (org-export-filter-apply-functions (plist-get= info :filter-plain-text) (let ((transcoder (org-export-transcoder data inf= o))) (if transcoder (funcall transcoder data info) data)) info))) ((not (or= g-export--interpret-p data info)) (org-export-data (org-export-expand data = (mapconcat (function (lambda (blob) (org-export-data blob info))) (org-elem= ent-contents data) "")) info)) ((not type) (mapconcat (function (lambda (ob= j) (org-export-data obj info))) data "")) ((or (not (org-element-contents d= ata)) (and (eq type (quote headline)) (eq (plist-get info :with-archived-tr= ees) (quote headline)) (org-element-property :archivedp data))) (let ((tran= scoder (org-export-transcoder data info))) (and (functionp transcoder) (fun= call transcoder data nil info)))) (t (let ((transcoder (org-export-transcod= er data info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (= contents ...)) (funcall transcoder data (if ... contents ...) info))))))) (let* ((type (org-element-type data)) (results (cond ((memq data (plist-g= et info :ignore-list)) nil) ((eq type (quote plain-text)) (org-no-propertie= s (org-export-filter-apply-functions (plist-get info :filter-plain-text) (l= et ... ...) info))) ((not (org-export--interpret-p data info)) (org-export-= data (org-export-expand data (mapconcat ... ... "")) info)) ((not type) (ma= pconcat (function (lambda ... ...)) data "")) ((or (not (org-element-conten= ts data)) (and (eq type ...) (eq ... ...) (org-element-property :archivedp = data))) (let ((transcoder ...)) (and (functionp transcoder) (funcall transc= oder data nil info)))) (t (let ((transcoder ...)) (if transcoder (progn ...= ))))))) (puthash data (cond ((not results) nil) ((memq type (quote (org-dat= a plain-text nil))) results) (t (let ((results (org-export-filter-apply-fun= ctions ... ... info))) results))) (plist-get info :exported-data))) (if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type d= ata)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq t= ype (quote plain-text)) (org-no-properties (org-export-filter-apply-functio= ns ... ... info))) ((not (org-export--interpret-p data info)) (org-export-d= ata (org-export-expand data ...) info)) ((not type) (mapconcat (function ..= .) data "")) ((or (not ...) (and ... ... ...)) (let (...) (and ... ...))) (= t (let (...) (if transcoder ...)))))) (puthash data (cond ((not results) ni= l) ((memq type (quote (org-data plain-text nil))) results) (t (let ((result= s ...)) results))) (plist-get info :exported-data)))) (let ((memo (gethash data (plist-get info :exported-data) (quote no-memo)= ))) (if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type= data)) (results (cond ((memq data ...) nil) ((eq type ...) (org-no-propert= ies ...)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ...= data "")) ((or ... ...) (let ... ...)) (t (let ... ...))))) (puthash data = (cond ((not results) nil) ((memq type (quote ...)) results) (t (let (...) r= esults))) (plist-get info :exported-data))))) org-export-data((headline (:raw-value "CSS code" :begin 71 :end 349 :pre-= blank 1 :hiddenp nil :contents-begin 83 :contents-end 349 :level 1 :priorit= y nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-se= ction-p nil :archivedp nil :commentedp nil :quotedp nil :category nil :titl= e (#("CSS code" 0 8 (:parent #0))) :parent (org-data nil (section (:begin 1= :end 71 :contents-begin 1 :contents-end 70 :post-blank 1 :parent #2) (keyw= ord (:key "TITLE" :value "ECM face-attribute: css-property italic" :begin 1= :end 54 :post-blank 0 :post-affiliated 1 :parent #3)) (keyword (:key "LANG= UAGE" :value "en" :begin 54 :end 70 :post-blank 0 :post-affiliated 54 :pare= nt #3))) #0)) (section (:begin 83 :end 349 :contents-begin 83 :contents-end= 349 :post-blank 0 :parent #0) (paragraph (:begin 83 :end 130 :contents-beg= in 83 :contents-end 129 :post-blank 1 :post-affiliated 83 :parent #1) #("Wh= en exporting the following chunk of code...\n" 0 46 (:parent #2))) (src-blo= ck (:language "css" :switches nil :parameters nil :begin 130 :end 313 :numb= er-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt= nil :hiddenp nil :value "#panel-button {\n -moz-transform: rotate(90deg= );\n -o-transform: rotate(90deg);\n -webkit-transform: rotate(90deg);= \n background-color: #EFEFEF;\n}\n" :post-blank 1 :post-affiliated 130 := parent #1)) (paragraph (:begin 313 :end 349 :contents-begin 313 :contents-e= nd 349 :post-blank 0 :post-affiliated 313 :parent #1) #("... we get the fol= lowing backtrace:\n" 0 36 (:parent #2))))) (:input-file "d:/home/sva/Exampl= es/Org-scraps/ecm-htmlize-italic.txt" :title (#("ECM face-attribute: css-pr= operty italic" 0 39 (:parent #1))) :author (#("Fabrice Niessen" 0 15 (:pare= nt #1))) :creator "Generated by Org mo= de 7.9.2 in Emacs 24.2= .50.1." :date nil :description nil :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :excl= ude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :pres= erve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file= t :with-archived-trees headline :with-author t :with-clocks nil :with-crea= tor nil :with-date t :with-drawers nil :with-email nil :with-emphasize t :w= ith-entities t :with-fixed-width t ...)) (lambda (element) (org-export-data element info))((headline (:raw-value "= CSS code" :begin 71 :end 349 :pre-blank 1 :hiddenp nil :contents-begin 83 := contents-end 349 :level 1 :priority nil :tags nil :todo-keyword nil :todo-t= ype nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp ni= l :quotedp nil :category nil :title (#("CSS code" 0 8 (:parent #0))) :paren= t (org-data nil (section (:begin 1 :end 71 :contents-begin 1 :contents-end = 70 :post-blank 1 :parent #2) (keyword (:key "TITLE" :value "ECM face-attrib= ute: css-property italic" :begin 1 :end 54 :post-blank 0 :post-affiliated 1= :parent #3)) (keyword (:key "LANGUAGE" :value "en" :begin 54 :end 70 :post= -blank 0 :post-affiliated 54 :parent #3))) #0)) (section (:begin 83 :end 34= 9 :contents-begin 83 :contents-end 349 :post-blank 0 :parent #0) (paragraph= (:begin 83 :end 130 :contents-begin 83 :contents-end 129 :post-blank 1 :po= st-affiliated 83 :parent #1) #("When exporting the following chunk of code.= ..\n" 0 46 (:parent #2))) (src-block (:language "css" :switches nil :parame= ters nil :begin 130 :end 313 :number-lines nil :preserve-indent nil :retain= -labels t :use-labels t :label-fmt nil :hiddenp nil :value "#panel-button {= \n -moz-transform: rotate(90deg);\n -o-transform: rotate(90deg);\n = -webkit-transform: rotate(90deg);\n background-color: #EFEFEF;\n}\n" :p= ost-blank 1 :post-affiliated 130 :parent #1)) (paragraph (:begin 313 :end 3= 49 :contents-begin 313 :contents-end 349 :post-blank 0 :post-affiliated 313= :parent #1) #("... we get the following backtrace:\n" 0 36 (:parent #2))))= )) mapconcat((lambda (element) (org-export-data element info)) ((section (:b= egin 1 :end 71 :contents-begin 1 :contents-end 70 :post-blank 1 :parent (or= g-data nil #1 (headline (:raw-value "CSS code" :begin 71 :end 349 :pre-blan= k 1 :hiddenp nil :contents-begin 83 :contents-end 349 :level 1 :priority ni= l :tags nil :todo-keyword nil :todo-type nil :post-blank 0 :footnote-sectio= n-p nil :archivedp nil :commentedp nil :quotedp nil :category nil :title (#= ("CSS code" 0 8 ...)) :parent #3) (section (:begin 83 :end 349 :contents-be= gin 83 :contents-end 349 :post-blank 0 :parent #4) (paragraph (:begin 83 :e= nd 130 :contents-begin 83 :contents-end 129 :post-blank 1 :post-affiliated = 83 :parent #5) #("When exporting the following chunk of code...\n" 0 46 ...= )) (src-block (:language "css" :switches nil :parameters nil :begin 130 :en= d 313 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t= :label-fmt nil :hiddenp nil :value "#panel-button {\n -moz-transform: r= otate(90deg);\n -o-transform: rotate(90deg);\n -webkit-transform: rot= ate(90deg);\n background-color: #EFEFEF;\n}\n" :post-blank 1 :post-affil= iated 130 :parent #5)) (paragraph (:begin 313 :end 349 :contents-begin 313 = :contents-end 349 :post-blank 0 :post-affiliated 313 :parent #5) #("... we = get the following backtrace:\n" 0 36 ...)))))) (keyword (:key "TITLE" :valu= e "ECM face-attribute: css-property italic" :begin 1 :end 54 :post-blank 0 = :post-affiliated 1 :parent #1)) (keyword (:key "LANGUAGE" :value "en" :begi= n 54 :end 70 :post-blank 0 :post-affiliated 54 :parent #1))) (headline (:ra= w-value "CSS code" :begin 71 :end 349 :pre-blank 1 :hiddenp nil :contents-b= egin 83 :contents-end 349 :level 1 :priority nil :tags nil :todo-keyword ni= l :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :comm= entedp nil :quotedp nil :category nil :title (#("CSS code" 0 8 (:parent #1)= )) :parent (org-data nil (section (:begin 1 :end 71 :contents-begin 1 :cont= ents-end 70 :post-blank 1 :parent #3) (keyword (:key "TITLE" :value "ECM fa= ce-attribute: css-property italic" :begin 1 :end 54 :post-blank 0 :post-aff= iliated 1 :parent #4)) (keyword (:key "LANGUAGE" :value "en" :begin 54 :end= 70 :post-blank 0 :post-affiliated 54 :parent #4))) #1)) (section (:begin 8= 3 :end 349 :contents-begin 83 :contents-end 349 :post-blank 0 :parent #1) (= paragraph (:begin 83 :end 130 :contents-begin 83 :contents-end 129 :post-bl= ank 1 :post-affiliated 83 :parent #2) #("When exporting the following chunk= of code...\n" 0 46 (:parent #3))) (src-block (:language "css" :switches ni= l :parameters nil :begin 130 :end 313 :number-lines nil :preserve-indent ni= l :retain-labels t :use-labels t :label-fmt nil :hiddenp nil :value "#panel= -button {\n -moz-transform: rotate(90deg);\n -o-transform: rotate(90d= eg);\n -webkit-transform: rotate(90deg);\n background-color: #EFEFEF;= \n}\n" :post-blank 1 :post-affiliated 130 :parent #2)) (paragraph (:begin 3= 13 :end 349 :contents-begin 313 :contents-end 349 :post-blank 0 :post-affil= iated 313 :parent #2) #("... we get the following backtrace:\n" 0 36 (:pare= nt #3)))))) "") (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and = (not greaterp) (memq type org-element-recursive-objects))) (contents (mapco= ncat (function (lambda (element) (org-export-data element info))) (org-elem= ent-contents (if (or greaterp objectp) data (org-element-normalize-contents= data (if ... ...)))) ""))) (funcall transcoder data (if (not greaterp) con= tents (org-element-normalize-string contents)) info)) (progn (let* ((greaterp (memq type org-element-greater-elements)) (object= p (and (not greaterp) (memq type org-element-recursive-objects))) (contents= (mapconcat (function (lambda (element) (org-export-data element info))) (o= rg-element-contents (if (or greaterp objectp) data (org-element-normalize-c= ontents data ...))) ""))) (funcall transcoder data (if (not greaterp) conte= nts (org-element-normalize-string contents)) info))) (if transcoder (progn (let* ((greaterp (memq type org-element-greater-ele= ments)) (objectp (and (not greaterp) (memq type org-element-recursive-objec= ts))) (contents (mapconcat (function (lambda ... ...)) (org-element-content= s (if ... data ...)) ""))) (funcall transcoder data (if (not greaterp) cont= ents (org-element-normalize-string contents)) info)))) (let ((transcoder (org-export-transcoder data info))) (if transcoder (pro= gn (let* ((greaterp (memq type org-element-greater-elements)) (objectp (and= (not greaterp) (memq type org-element-recursive-objects))) (contents (mapc= oncat (function ...) (org-element-contents ...) ""))) (funcall transcoder d= ata (if (not greaterp) contents (org-element-normalize-string contents)) in= fo))))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote pl= ain-text)) (org-no-properties (org-export-filter-apply-functions (plist-get= info :filter-plain-text) (let ((transcoder (org-export-transcoder data inf= o))) (if transcoder (funcall transcoder data info) data)) info))) ((not (or= g-export--interpret-p data info)) (org-export-data (org-export-expand data = (mapconcat (function (lambda (blob) (org-export-data blob info))) (org-elem= ent-contents data) "")) info)) ((not type) (mapconcat (function (lambda (ob= j) (org-export-data obj info))) data "")) ((or (not (org-element-contents d= ata)) (and (eq type (quote headline)) (eq (plist-get info :with-archived-tr= ees) (quote headline)) (org-element-property :archivedp data))) (let ((tran= scoder (org-export-transcoder data info))) (and (functionp transcoder) (fun= call transcoder data nil info)))) (t (let ((transcoder (org-export-transcod= er data info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (= contents ...)) (funcall transcoder data (if ... contents ...) info))))))) (let* ((type (org-element-type data)) (results (cond ((memq data (plist-g= et info :ignore-list)) nil) ((eq type (quote plain-text)) (org-no-propertie= s (org-export-filter-apply-functions (plist-get info :filter-plain-text) (l= et ... ...) info))) ((not (org-export--interpret-p data info)) (org-export-= data (org-export-expand data (mapconcat ... ... "")) info)) ((not type) (ma= pconcat (function (lambda ... ...)) data "")) ((or (not (org-element-conten= ts data)) (and (eq type ...) (eq ... ...) (org-element-property :archivedp = data))) (let ((transcoder ...)) (and (functionp transcoder) (funcall transc= oder data nil info)))) (t (let ((transcoder ...)) (if transcoder (progn ...= ))))))) (puthash data (cond ((not results) nil) ((memq type (quote (org-dat= a plain-text nil))) results) (t (let ((results (org-export-filter-apply-fun= ctions ... ... info))) results))) (plist-get info :exported-data))) (if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type d= ata)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq t= ype (quote plain-text)) (org-no-properties (org-export-filter-apply-functio= ns ... ... info))) ((not (org-export--interpret-p data info)) (org-export-d= ata (org-export-expand data ...) info)) ((not type) (mapconcat (function ..= .) data "")) ((or (not ...) (and ... ... ...)) (let (...) (and ... ...))) (= t (let (...) (if transcoder ...)))))) (puthash data (cond ((not results) ni= l) ((memq type (quote (org-data plain-text nil))) results) (t (let ((result= s ...)) results))) (plist-get info :exported-data)))) (let ((memo (gethash data (plist-get info :exported-data) (quote no-memo)= ))) (if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type= data)) (results (cond ((memq data ...) nil) ((eq type ...) (org-no-propert= ies ...)) ((not ...) (org-export-data ... info)) ((not type) (mapconcat ...= data "")) ((or ... ...) (let ... ...)) (t (let ... ...))))) (puthash data = (cond ((not results) nil) ((memq type (quote ...)) results) (t (let (...) r= esults))) (plist-get info :exported-data))))) org-export-data((org-data nil (section (:begin 1 :end 71 :contents-begin = 1 :contents-end 70 :post-blank 1 :parent #0) (keyword (:key "TITLE" :value = "ECM face-attribute: css-property italic" :begin 1 :end 54 :post-blank 0 :p= ost-affiliated 1 :parent #1)) (keyword (:key "LANGUAGE" :value "en" :begin = 54 :end 70 :post-blank 0 :post-affiliated 54 :parent #1))) (headline (:raw-= value "CSS code" :begin 71 :end 349 :pre-blank 1 :hiddenp nil :contents-beg= in 83 :contents-end 349 :level 1 :priority nil :tags nil :todo-keyword nil = :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil :commen= tedp nil :quotedp nil :category nil :title (#("CSS code" 0 8 (:parent #1)))= :parent #0) (section (:begin 83 :end 349 :contents-begin 83 :contents-end = 349 :post-blank 0 :parent #1) (paragraph (:begin 83 :end 130 :contents-begi= n 83 :contents-end 129 :post-blank 1 :post-affiliated 83 :parent #2) #("Whe= n exporting the following chunk of code...\n" 0 46 (:parent #3))) (src-bloc= k (:language "css" :switches nil :parameters nil :begin 130 :end 313 :numbe= r-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt = nil :hiddenp nil :value "#panel-button {\n -moz-transform: rotate(90deg)= ;\n -o-transform: rotate(90deg);\n -webkit-transform: rotate(90deg);\= n background-color: #EFEFEF;\n}\n" :post-blank 1 :post-affiliated 130 :p= arent #2)) (paragraph (:begin 313 :end 349 :contents-begin 313 :contents-en= d 349 :post-blank 0 :post-affiliated 313 :parent #2) #("... we get the foll= owing backtrace:\n" 0 36 (:parent #3)))))) (:input-file "d:/home/sva/Exampl= es/Org-scraps/ecm-htmlize-italic.txt" :title (#("ECM face-attribute: css-pr= operty italic" 0 39 (:parent #1))) :author (#("Fabrice Niessen" 0 15 (:pare= nt #1))) :creator "Generated by Org mo= de 7.9.2 in Emacs 24.2= .50.1." :date nil :description nil :email "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :excl= ude-tags ("noexport") :headline-levels 3 :keywords nil :language "en" :pres= erve-breaks nil :section-numbers t :select-tags ("export") :time-stamp-file= t :with-archived-trees headline :with-author t :with-clocks nil :with-crea= tor nil :with-date t :with-drawers nil :with-email nil :with-emphasize t :w= ith-entities t :with-fixed-width t ...)) (or (org-export-data tree info) "") (org-element-normalize-string (or (org-export-data tree info) "")) (let* ((body (org-element-normalize-string (or (org-export-data tree info= ) ""))) (template (cdr (assq (quote template) (plist-get info :translate-al= ist)))) (output (org-export-filter-apply-functions (plist-get info :filter-= final-output) (if (or (not (functionp template)) body-only) body (funcall t= emplate body info)) info))) (if (and org-export-copy-to-kill-ring (org-stri= ng-nw-p output)) (progn (org-kill-new output))) output) (let ((info (org-export--get-buffer-attributes)) tree) (org-export-with-c= urrent-buffer-copy (run-hook-with-args (quote org-export-before-processing-= hook) backend) (if noexpand nil (org-export-expand-include-keyword) (org-ma= cro-initialize-templates) (org-macro-replace-all org-macro-templates) (let = ((org-current-export-file (current-buffer))) (org-export-blocks-preprocess)= )) (org-update-radio-target-regexp) (goto-char (point-min)) (run-hook-with-= args (quote org-export-before-parsing-hook) backend) (setq info (org-export= -install-filters (org-combine-plists info (org-export-get-environment backe= nd subtreep ext-plist)))) (if noexpand nil (org-macro-replace-all (list (co= ns "author" (org-element-interpret-data (plist-get info :author))) (cons "d= ate" (org-element-interpret-data (plist-get info :date))) (cons "email" (or= (plist-get info :email) "")) (cons "title" (org-element-interpret-data (pl= ist-get info :title)))))) (setq tree (org-export-filter-apply-functions (pl= ist-get info :filter-parse-tree) (org-element-parse-buffer nil visible-only= ) info))) (setq info (org-combine-plists info (org-export-collect-tree-prop= erties tree info))) (let* ((body (org-element-normalize-string (or (org-exp= ort-data tree info) ""))) (template (cdr (assq (quote template) (plist-get = info :translate-alist)))) (output (org-export-filter-apply-functions (plist= -get info :filter-final-output) (if (or (not ...) body-only) body (funcall = template body info)) info))) (if (and org-export-copy-to-kill-ring (org-str= ing-nw-p output)) (progn (org-kill-new output))) output)) (save-restriction (cond ((org-region-active-p) (narrow-to-region (region-= beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (poi= nt-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let ((inf= o (org-export--get-buffer-attributes)) tree) (org-export-with-current-buffe= r-copy (run-hook-with-args (quote org-export-before-processing-hook) backen= d) (if noexpand nil (org-export-expand-include-keyword) (org-macro-initiali= ze-templates) (org-macro-replace-all org-macro-templates) (let ((org-curren= t-export-file (current-buffer))) (org-export-blocks-preprocess))) (org-upda= te-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quote = org-export-before-parsing-hook) backend) (setq info (org-export-install-fil= ters (org-combine-plists info (org-export-get-environment backend subtreep = ext-plist)))) (if noexpand nil (org-macro-replace-all (list (cons "author" = (org-element-interpret-data ...)) (cons "date" (org-element-interpret-data = ...)) (cons "email" (or ... "")) (cons "title" (org-element-interpret-data = ...))))) (setq tree (org-export-filter-apply-functions (plist-get info :fil= ter-parse-tree) (org-element-parse-buffer nil visible-only) info))) (setq i= nfo (org-combine-plists info (org-export-collect-tree-properties tree info)= )) (let* ((body (org-element-normalize-string (or (org-export-data tree inf= o) ""))) (template (cdr (assq (quote template) (plist-get info :translate-a= list)))) (output (org-export-filter-apply-functions (plist-get info :filter= -final-output) (if (or ... body-only) body (funcall template body info)) in= fo))) (if (and org-export-copy-to-kill-ring (org-string-nw-p output)) (prog= n (org-kill-new output))) output))) (save-excursion (save-restriction (cond ((org-region-active-p) (narrow-to= -region (region-beginning) (region-end))) (subtreep (org-narrow-to-subtree)= (goto-char (point-min)) (forward-line) (narrow-to-region (point) (point-ma= x)))) (let ((info (org-export--get-buffer-attributes)) tree) (org-export-wi= th-current-buffer-copy (run-hook-with-args (quote org-export-before-process= ing-hook) backend) (if noexpand nil (org-export-expand-include-keyword) (or= g-macro-initialize-templates) (org-macro-replace-all org-macro-templates) (= let ((org-current-export-file ...)) (org-export-blocks-preprocess))) (org-u= pdate-radio-target-regexp) (goto-char (point-min)) (run-hook-with-args (quo= te org-export-before-parsing-hook) backend) (setq info (org-export-install-= filters (org-combine-plists info (org-export-get-environment backend subtre= ep ext-plist)))) (if noexpand nil (org-macro-replace-all (list (cons "autho= r" ...) (cons "date" ...) (cons "email" ...) (cons "title" ...)))) (setq tr= ee (org-export-filter-apply-functions (plist-get info :filter-parse-tree) (= org-element-parse-buffer nil visible-only) info))) (setq info (org-combine-= plists info (org-export-collect-tree-properties tree info))) (let* ((body (= org-element-normalize-string (or ... ""))) (template (cdr (assq ... ...))) = (output (org-export-filter-apply-functions (plist-get info :filter-final-ou= tput) (if ... body ...) info))) (if (and org-export-copy-to-kill-ring (org-= string-nw-p output)) (progn (org-kill-new output))) output)))) org-export-as(e-html nil nil nil nil nil) (let ((out (org-export-as backend subtreep visible-only body-only ext-pli= st noexpand))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-c= urrent-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert out) = (let ((coding-system-for-write org-export-coding-system)) (write-file file)= )) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) org-export-to-file(e-html "./ecm-htmlize-italic.html" nil nil nil nil) (let* ((extension (concat "." org-e-html-extension)) (file (org-export-ou= tput-file-name extension subtreep pub-dir)) (org-export-coding-system org-e= -html-coding-system)) (org-export-to-file (quote e-html) file subtreep visi= ble-only body-only ext-plist)) org-e-html-export-to-html(nil nil nil) (org-open-file (org-e-html-export-to-html s v b)) (lambda (s v b) (org-open-file (org-e-html-export-to-html s v b)))(nil ni= l nil) funcall((lambda (s v b) (org-open-file (org-e-html-export-to-html s v b))= ) nil nil nil) (cond ((eql action (quote publish-current-file)) (org-e-publish-current-f= ile (memq (quote force) optns))) ((eql action (quote publish-current-projec= t)) (org-e-publish-current-project (memq (quote force) optns))) ((eql actio= n (quote publish-choose-project)) (org-e-publish (assoc (org-icompleting-re= ad "Publish project: " org-e-publish-project-alist nil t) org-e-publish-pro= ject-alist) (memq (quote force) optns))) ((eql action (quote publish-all)) = (org-e-publish-all (memq (quote force) optns))) (t (funcall action (memq (q= uote subtree) optns) (memq (quote visible) optns) (memq (quote body) optns)= ))) (let* ((input (let ((wconfig (current-window-configuration))) (unwind-pro= tect (progn (unwind-protect (org-export-dispatch-ui ... nil org-export-disp= atch-use-expert-ui) (and ... ...))) (set-window-configuration wconfig)))) (= action (car input)) (optns (cdr input))) (cond ((eql action (quote publish-= current-file)) (org-e-publish-current-file (memq (quote force) optns))) ((e= ql action (quote publish-current-project)) (org-e-publish-current-project (= memq (quote force) optns))) ((eql action (quote publish-choose-project)) (o= rg-e-publish (assoc (org-icompleting-read "Publish project: " org-e-publish= -project-alist nil t) org-e-publish-project-alist) (memq (quote force) optn= s))) ((eql action (quote publish-all)) (org-e-publish-all (memq (quote forc= e) optns))) (t (funcall action (memq (quote subtree) optns) (memq (quote vi= sible) optns) (memq (quote body) optns))))) org-export-dispatch() call-interactively(org-export-dispatch nil nil) #+end_example It is due to the 3 following lines: -moz-transform: rotate(90deg); -o-transform: rotate(90deg); -webkit-transform: rotate(90deg); which are rendered in italic in the Org buffer. Without them, the code expo= rts OK to HTML, but... Best regards, Seb GNU Emacs 24.2.50.1 (i386-mingw-nt5.1.2600) of 2012-10-22 on DANI-PC Org-mode version 7.9.2 (release_7.9.2-585-g7b2df9 @ d:/home/sva/src/org-mod= e/lisp/) --=20 Sebastien Vauban