[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [bug] wrong-type-argument symbolp (css-property italic)
|
From: |
Sebastien Vauban |
|
Subject: |
[O] [bug] wrong-type-argument symbolp (css-property italic) |
|
Date: |
Fri, 09 Nov 2012 15:11:35 +0100 |
|
User-agent: |
Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.2.50 (windows-nt) |
#+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
italic))
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 :height))
(setq --cl-var-- (cons (if (eq h (quote unspecified)) nil h) --cl-var--)) (setq
--cl-var-- nil))
(let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var-- t)) (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 :height)) (setq --cl-var-- (cons (if
(eq h (quote unspecified)) nil h) --cl-var--)) (setq --cl-var-- nil)) (nreverse
--cl-var--))
(progn (let* ((f nil) (h nil) (--cl-var-- nil) (--cl-var-- t)) (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 :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 :height))
(setq --cl-var-- (cons ... --cl-var--)) (setq --cl-var-- nil)) (nreverse
--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) (>= (length fstruct) 10) (memq (aref fstruct 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)))))
(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 fstruct) (>= ...
10) (memq ... cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s"
(quote htmlize-fstruct-boldp) (quote htmlize-fstruct))) (let* ((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)
(>= ... 10) (memq ... cl-struct-htmlize-fstruct-tags)) (error "%s accessing a
non-%s" (quote htmlize-fstruct-italicp) (quote htmlize-fstruct))) (let* ((v
fstruct)) (aset v 5 t))))) (progn (or (and (vectorp fstruct) (>= (length
fstruct) 10) (memq (aref fstruct 0) cl-struct-htmlize-fstruct-tags)) (error "%s
accessing a non-%s" (quote htmlize-fstruct-strikep) (quote htmlize-fstruct)))
(let* ((v fstruct)) (aset v 8 (face-strikethru-p face)))) (progn (or (and
(vectorp fstruct) (>= (length fstruct) 10) (memq (aref fstruct 0)
cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote
htmlize-fstruct-underlinep) (quote htmlize-fstruct))) (let* ((v fstruct)) (aset
v 6 (face-underline-p face))))) (progn (let ((--dolist-tail-- (quote (:weight
:slant :underline :overline :strike-through))) 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-tail--))))) (let ((size (htmlize-face-size
face))) (if (eql size 1.0) nil (progn (or (and (vectorp fstruct) (>= (length
fstruct) 10) (memq (aref fstruct 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
(htmlize-face-foreground face)) :background (htmlize-color-to-rgb
(htmlize-face-background face))))) (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 ... ... ...) (error "%s accessing a non-%s" ... ...))
(let* (...) (aset v 4 t))))) (if (or (equalp (cdr (assq ... props)) "i")
(equalp (cdr (assq ... props)) "o")) (progn (progn (or (and ... ... ...) (error
"%s accessing a non-%s" ... ...)) (let* (...) (aset v 5 t))))) (progn (or (and
(vectorp fstruct) (>= (length fstruct) 10) (memq (aref fstruct 0)
cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s" (quote
htmlize-fstruct-strikep) (quote htmlize-fstruct))) (let* ((v fstruct)) (aset v
8 (face-strikethru-p face)))) (progn (or (and (vectorp fstruct) (>= (length
fstruct) 10) (memq (aref fstruct 0) cl-struct-htmlize-fstruct-tags)) (error "%s
accessing a non-%s" (quote htmlize-fstruct-underlinep) (quote
htmlize-fstruct))) (let* ((v fstruct)) (aset v 6 (face-underline-p face)))))
(progn (let ((--dolist-tail-- (quote (:weight :slant :underline :overline
:strike-through))) attr) (while --dolist-tail-- (setq attr (car
--dolist-tail--)) (let ((value ...)) (if (and value ...) (progn ...))) (setq
--dolist-tail-- (cdr --dolist-tail--))))) (let ((size (htmlize-face-size
face))) (if (eql size 1.0) nil (progn (or (and (vectorp fstruct) (>= ... 10)
(memq ... 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)))))) (progn (or (and (vectorp fstruct) (>= (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)) (aset 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-fstruct face))
(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 (and (vectorp fstruct) (>= ... 10)
(memq ... cl-struct-htmlize-fstruct-tags)) (error "%s accessing a non-%s"
(quote htmlize-fstruct-css-name) (quote htmlize-fstruct))) (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 (1+ i))))) (if (equal new-name css-name) nil
(progn (or (and (vectorp fstruct) (>= (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)) (aset v
9 new-name)))) (setq css-names (cons new-name css-names))))
(if (gethash face 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 (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 (format
"%s-%s" css-name (setq i (1+ i))))) (if (equal new-name css-name) nil (progn
(or (and (vectorp fstruct) (>= ... 10) (memq ...
cl-struct-htmlize-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 face
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 (car
--dolist-tail--)) (if (gethash face 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
... ...)) (new-name css-name) (i 0)) (while (member new-name css-names) (setq
new-name (format "%s-%s" css-name ...))) (if (equal new-name css-name) nil
(progn (or ... ...) (let* ... ...))) (setq css-names (cons new-name
css-names))))) (setq --dolist-tail-- (cdr --dolist-tail--))))
(progn (let ((--dolist-tail-- faces) face) (while --dolist-tail-- (setq face
(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-names)
(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-tail--))))) 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-face-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-generate-hyperlinks (progn (htmlize-create-auto-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 (quote doctype))) 10 (format "<!-- Created by
htmlize-%s in %s mode. -->\n" htmlize-version htmlize-output-type) "<html>\n
") (put places (quote head-start) (point-marker)) (insert "<head>\n" "
<title>" (htmlize-protect-string title) "</title>\n" (if htmlize-html-charset
(format (concat " <meta http-equiv=\"Content-Type\" " "content=\"text/html;
charset=%s\">\n") htmlize-html-charset) "") htmlize-head-tags) (funcall
(htmlize-method-function (quote insert-head)) buffer-faces face-map) (insert "
</head>") (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) (point-marker)) (insert "<pre>\n")) (let ((text-markup
(htmlize-method-function (quote text-markup))) next-change text face-list
trailing-ellipsis fstruct-list last-fstruct-list (close-markup (function
(lambda nil)))) (goto-char (point-min)) (while (not (eobp)) (setq next-change
(htmlize-next-face-change (point))) (setq face-list (htmlize-faces-at-point)
fstruct-list (delq nil (mapcar (function (lambda ... ...)) face-list))) (let
((--cl-var-- (htmlize-extract-text (point) next-change trailing-ellipsis)))
(prog1 (setq text (car --cl-var--)) (setq trailing-ellipsis (nth 1
--cl-var--)))) (if (> (length text) 0) (progn (if (not (equalp fstruct-list
last-fstruct-list)) (progn (funcall close-markup) (setq last-fstruct-list
fstruct-list close-markup ...))) (princ text htmlbuf))) (goto-char
next-change)) (funcall close-markup)) (save-current-buffer (set-buffer htmlbuf)
(insert "</pre>") (put places (quote content-end) (point-marker)) (insert "\n
</body>") (put places (quote body-end) (point-marker)) (insert "\n</html>\n")
(htmlize-defang-local-variables) (goto-char (point-min)) (if
htmlize-html-major-mode (progn (funcall htmlize-html-major-mode))) (set
(make-local-variable (quote htmlize-buffer-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-faces
(cons (quote default) buffer-faces)))) (places (gensym)) (title (if
(buffer-file-name) (file-name-nondirectory (buffer-file-name)) (buffer-name))))
(if htmlize-generate-hyperlinks (progn (htmlize-create-auto-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 (quote doctype))) 10 (format "<!-- Created by
htmlize-%s in %s mode. -->\n" htmlize-version htmlize-output-type) "<html>\n
") (put places (quote head-start) (point-marker)) (insert "<head>\n" "
<title>" (htmlize-protect-string title) "</title>\n" (if htmlize-html-charset
(format (concat " <meta http-equiv=\"Content-Type\" " "content=\"text/html;
charset=%s\">\n") htmlize-html-charset) "") htmlize-head-tags) (funcall
(htmlize-method-function (quote insert-head)) buffer-faces face-map) (insert "
</head>") (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) (point-marker)) (insert "<pre>\n")) (let ((text-markup
(htmlize-method-function (quote text-markup))) next-change text face-list
trailing-ellipsis fstruct-list last-fstruct-list (close-markup (function
(lambda nil)))) (goto-char (point-min)) (while (not (eobp)) (setq next-change
(htmlize-next-face-change (point))) (setq face-list (htmlize-faces-at-point)
fstruct-list (delq nil (mapcar (function ...) face-list))) (let ((--cl-var--
(htmlize-extract-text ... next-change trailing-ellipsis))) (prog1 (setq text
(car --cl-var--)) (setq trailing-ellipsis (nth 1 --cl-var--)))) (if (> (length
text) 0) (progn (if (not ...) (progn ... ...)) (princ text htmlbuf)))
(goto-char next-change)) (funcall close-markup)) (save-current-buffer
(set-buffer htmlbuf) (insert "</pre>") (put places (quote content-end)
(point-marker)) (insert "\n </body>") (put places (quote body-end)
(point-marker)) (insert "\n</html>\n") (htmlize-defang-local-variables)
(goto-char (point-min)) (if htmlize-html-major-mode (progn (funcall
htmlize-html-major-mode))) (set (make-local-variable (quote
htmlize-buffer-places)) (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))
(let ((htmlbuf (generate-new-buffer (if (buffer-file-name)
(htmlize-make-file-name (file-name-nondirectory (buffer-file-name)))
"*html*"))) (completed nil)) (unwind-protect (let* ((buffer-faces
(htmlize-faces-in-buffer)) (face-map (htmlize-make-face-map (if (memql ...
buffer-faces) buffer-faces (cons ... buffer-faces)))) (places (gensym)) (title
(if (buffer-file-name) (file-name-nondirectory (buffer-file-name))
(buffer-name)))) (if htmlize-generate-hyperlinks (progn
(htmlize-create-auto-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 (quote
doctype))) 10 (format "<!-- Created by htmlize-%s in %s mode. -->\n"
htmlize-version htmlize-output-type) "<html>\n ") (put places (quote
head-start) (point-marker)) (insert "<head>\n" " <title>"
(htmlize-protect-string title) "</title>\n" (if htmlize-html-charset (format
(concat " <meta http-equiv=\"Content-Type\" " "content=\"text/html;
charset=%s\">\n") htmlize-html-charset) "") htmlize-head-tags) (funcall
(htmlize-method-function (quote insert-head)) buffer-faces face-map) (insert "
</head>") (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) (point-marker)) (insert "<pre>\n")) (let ((text-markup
(htmlize-method-function (quote text-markup))) next-change text face-list
trailing-ellipsis fstruct-list last-fstruct-list (close-markup (function
(lambda nil)))) (goto-char (point-min)) (while (not (eobp)) (setq next-change
(htmlize-next-face-change (point))) (setq face-list (htmlize-faces-at-point)
fstruct-list (delq nil (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)) (save-current-buffer (set-buffer htmlbuf) (insert "</pre>") (put
places (quote content-end) (point-marker)) (insert "\n </body>") (put places
(quote body-end) (point-marker)) (insert "\n</html>\n")
(htmlize-defang-local-variables) (goto-char (point-min)) (if
htmlize-html-major-mode (progn (funcall htmlize-html-major-mode))) (set
(make-local-variable (quote htmlize-buffer-places)) (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) (clrhash
htmlize-memoization-table) (let ((htmlbuf (generate-new-buffer (if
(buffer-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 ...))) (places (gensym)) (title (if (buffer-file-name)
(file-name-nondirectory ...) (buffer-name)))) (if htmlize-generate-hyperlinks
(progn (htmlize-create-auto-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 "<!-- Created by htmlize-%s in %s mode. -->\n" htmlize-version
htmlize-output-type) "<html>\n ") (put places (quote head-start)
(point-marker)) (insert "<head>\n" " <title>" (htmlize-protect-string title)
"</title>\n" (if htmlize-html-charset (format ... htmlize-html-charset) "")
htmlize-head-tags) (funcall (htmlize-method-function (quote insert-head))
buffer-faces face-map) (insert " </head>") (put places (quote head-end)
(point-marker)) (insert "\n ") (put places (quote body-start) (point-marker))
(insert (funcall (htmlize-method-function ...) face-map) "\n ") (put places
(quote content-start) (point-marker)) (insert "<pre>\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-markup)) (save-current-buffer (set-buffer htmlbuf)
(insert "</pre>") (put places (quote content-end) (point-marker)) (insert "\n
</body>") (put places (quote body-end) (point-marker)) (insert "\n</html>\n")
(htmlize-defang-local-variables) (goto-char (point-min)) (if
htmlize-html-major-mode (progn (funcall htmlize-html-major-mode))) (set
(make-local-variable (quote htmlize-buffer-places)) (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))))
htmlize-buffer-1()
(save-restriction (narrow-to-region beg end) (htmlize-buffer-1))
(let ((htmlbuf (save-restriction (narrow-to-region beg end)
(htmlize-buffer-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-css-name-prefix org-export-e-htmlize-css-font-prefix) (htmlbuf
(htmlize-region beg end))) (unwind-protect (save-current-buffer (set-buffer
htmlbuf) (buffer-substring (plist-get htmlize-buffer-places (quote
content-start)) (plist-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)
(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-min)
(point-max)))
(unwind-protect (progn (insert code) (funcall lang-mode)
(font-lock-fontify-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-min) (point-max))) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert
code) (funcall lang-mode) (font-lock-fontify-buffer) (save-excursion (let ((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-export-e-htmlize-region-for-paste (point-min) (point-max))) (and
(buffer-name temp-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
lang-mode) (font-lock-fontify-buffer) (save-excursion (let ((beg ...) (end
...)) (goto-char beg) (while (progn ... ...) (put-text-property ... ... ...
nil) (forward-char 1)))) (org-src-mode) (set-buffer-modified-p nil)
(org-export-e-htmlize-region-for-paste (point-min) (point-max))) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer)))))
(setq code (let ((temp-buffer (generate-new-buffer " *temp*")))
(save-current-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))) (and (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-current-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
"<pre[^>]*>\n*\\([^]*\\)</pre>" code) (match-string 1 code) code)))
(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
((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer
(set-buffer temp-buffer) (unwind-protect (progn ... ... ... ... ... ... ...)
(and ... ...))))) (if (string-match "<pre[^>]*>\n*\\([^]*\\)</pre>" code)
(match-string 1 code) code))))
(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 >= 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 (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-match
"<pre[^>]*>\n*\\([^]*\\)</pre>" 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 >= 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 code
(let ... ...)) (if (string-match "<pre[^>]*>\n*\\([^]*\\)</pre>" 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 >=
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
...))) (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(90deg);\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
code-lines)) (num-fmt (and num-start (format "%%%ds: " (length
(number-to-string (+ code-length num-start)))))) (code (org-e-html-fontify-code
code lang))) (progn (or (= code-length (length (org-split-string code "\n")))
(signal (quote cl-assertion-failed) (list (quote (= 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 "<span
id=\"coderef-%s\" class=\"coderef-off\">%s</span>" ref loc)))) num-start refs))
org-e-html-do-format-code("#panel-button {\n -moz-transform:
rotate(90deg);\n -o-transform: rotate(90deg);\n -webkit-transform:
rotate(90deg);\n background-color: #EFEFEF;\n}\n" "css" nil t nil nil)
(let* ((lang (org-element-property :language element)) (switches nil)
(textarea-p (and switches (string-match "-t\\>" switches))) (code-info
(org-export-unravel-code element)) (code (car code-info)) (refs (cdr
code-info)) (retain-labels (org-element-property :retain-labels element))
(num-start (let ((--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 :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-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-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 nil :quotedp nil :category nil :title (#("CSS code"
0 8 ...)) :parent (org-data nil (section ... ... ...) #4)) #2)) (paragraph
(:begin 83 :end 130 :contents-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 backtrace:\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 <a
href=\"http://orgmode.org\";>Org</a> mode 7.9.2 in <a
href=\"http://www.gnu.org/software/emacs/\";>Emacs</a> 24.2.50.1." :date nil
:description nil :email "address@hidden" :exclude-tags ("noexport")
:headline-levels 3 :keywords nil :language "en" :preserve-breaks nil
:section-numbers t :select-tags ("export") :time-stamp-file t
:with-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-entities
t :with-fixed-width t ...))
(let ((lang (org-element-property :language src-block)) (caption
(org-export-get-caption src-block)) (attr (org-export-read-attribute :attr_html
src-block)) (code (org-e-html-format-code src-block info))) (cond (lang (format
"<div class=\"org-src-container\">\n%s%s\n</div>" (if (not caption) "" (format
"<label class=\"org-src-name\">%s</label>" (org-export-data caption info)))
(format "\n<pre class=\"src src-%s\">%s</pre>" lang code))) ((plist-get attr
:textarea) (let ((cols (or (plist-get attr :width) 80)) (rows (or (plist-get
attr :height) (org-count-lines code)))) (format "<p>\n<textarea cols=\"%d\"
rows=\"%d\">\n%s</textarea>\n</p>" cols rows code))) (t (format "<pre
class=\"example\">\n%s</pre>" code))))
org-e-html-src-block((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-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-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 nil :quotedp nil :category nil :title (#("CSS code"
0 8 ...)) :parent (org-data nil (section ... ... ...) #4)) #2)) (paragraph
(:begin 83 :end 130 :contents-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 backtrace:\n" 0 36 (:parent #3))))))
nil (: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 <a
href=\"http://orgmode.org\";>Org</a> mode 7.9.2 in <a
href=\"http://www.gnu.org/software/emacs/\";>Emacs</a> 24.2.50.1." :date nil
:description nil :email "address@hidden" :exclude-tags ("noexport")
:headline-levels 3 :keywords nil :language "en" :preserve-breaks nil
:section-numbers t :select-tags ("export") :time-stamp-file t
:with-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-entities
t :with-fixed-width t ...))
funcall(org-e-html-src-block (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-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-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 nil :quotedp nil :category nil :title (#("CSS code"
0 8 ...)) :parent (org-data nil (section ... ... ...) #4)) #2)) (paragraph
(:begin 83 :end 130 :contents-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 backtrace:\n" 0 36 (:parent #3))))))
nil (: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 <a
href=\"http://orgmode.org\";>Org</a> mode 7.9.2 in <a
href=\"http://www.gnu.org/software/emacs/\";>Emacs</a> 24.2.50.1." :date nil
:description nil :email "address@hidden" :exclude-tags ("noexport")
:headline-levels 3 :keywords nil :language "en" :preserve-breaks nil
:section-numbers t :select-tags ("export") :time-stamp-file t
:with-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-entities
t :with-fixed-width t ...))
(and (functionp transcoder) (funcall transcoder data nil info))
(let ((transcoder (org-export-transcoder data info))) (and (functionp
transcoder) (funcall transcoder data nil info)))
(cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote
plain-text)) (org-no-properties (org-export-filter-apply-functions (plist-get
info :filter-plain-text) (let ((transcoder (org-export-transcoder data info)))
(if transcoder (funcall transcoder data info) data)) info))) ((not
(org-export--interpret-p data info)) (org-export-data (org-export-expand data
(mapconcat (function (lambda (blob) (org-export-data blob info)))
(org-element-contents data) "")) info)) ((not type) (mapconcat (function
(lambda (obj) (org-export-data obj info))) data "")) ((or (not
(org-element-contents data)) (and (eq type (quote headline)) (eq (plist-get
info :with-archived-trees) (quote headline)) (org-element-property :archivedp
data))) (let ((transcoder (org-export-transcoder data info))) (and (functionp
transcoder) (funcall transcoder data nil info)))) (t (let ((transcoder
(org-export-transcoder 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-get
info :ignore-list)) nil) ((eq type (quote plain-text)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info))) ((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data (mapconcat ... ... "")) info)) ((not type) (mapconcat
(function (lambda ... ...)) data "")) ((or (not (org-element-contents data))
(and (eq type ...) (eq ... ...) (org-element-property :archivedp data))) (let
((transcoder ...)) (and (functionp transcoder) (funcall transcoder data nil
info)))) (t (let ((transcoder ...)) (if transcoder (progn ...))))))) (puthash
data (cond ((not results) nil) ((memq type (quote (org-data plain-text nil)))
results) (t (let ((results (org-export-filter-apply-functions ... ... info)))
results))) (plist-get info :exported-data)))
(if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type
data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type
(quote plain-text)) (org-no-properties (org-export-filter-apply-functions ...
... info))) ((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data ...) info)) ((not type) (mapconcat (function ...) data
"")) ((or (not ...) (and ... ... ...)) (let (...) (and ... ...))) (t (let (...)
(if transcoder ...)))))) (puthash data (cond ((not results) nil) ((memq type
(quote (org-data plain-text nil))) results) (t (let ((results ...)) 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-properties ...))
((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 (...) results)))
(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
-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-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 nil :quotedp nil :category nil :title (#("CSS code"
0 8 ...)) :parent (org-data nil (section ... ... ...) #4)) #2)) (paragraph
(:begin 83 :end 130 :contents-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 backtrace:\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 <a
href=\"http://orgmode.org\";>Org</a> mode 7.9.2 in <a
href=\"http://www.gnu.org/software/emacs/\";>Emacs</a> 24.2.50.1." :date nil
:description nil :email "address@hidden" :exclude-tags ("noexport")
:headline-levels 3 :keywords nil :language "en" :preserve-breaks nil
:section-numbers t :select-tags ("export") :time-stamp-file t
:with-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-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
: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 (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 :level 1 :priority nil :tags nil
:todo-keyword 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 (org-data nil (section ... ... ...) #4)) #2)) (paragraph
(:begin 83 :end 130 :contents-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 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
: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 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 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" :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 exporting the following chunk of code...\n" 0 46 (:parent #1)))
(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-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-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 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-affiliated 83 :parent #3) #("When exporting the following chunk of
code...\n" 0 46 (:parent #4))) #1 (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))))))
(paragraph (:begin 313 :end 349 :contents-begin 313 :contents-end 349
:post-blank 0 :post-affiliated 313 :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-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 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-affiliated 83 :parent
#3) #("When exporting the following chunk of code...\n" 0 46 (:parent #4)))
(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-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 following
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 (mapconcat
(function (lambda (element) (org-export-data element info)))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data (if ... ...)))) ""))) (funcall transcoder
data (if (not greaterp) contents (org-element-normalize-string contents)) info))
(progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp
(and (not greaterp) (memq type org-element-recursive-objects))) (contents
(mapconcat (function (lambda (element) (org-export-data element info)))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (funcall transcoder data (if
(not greaterp) contents (org-element-normalize-string contents)) info)))
(if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat (function (lambda ...
...)) (org-element-contents (if ... data ...)) ""))) (funcall transcoder data
(if (not greaterp) contents (org-element-normalize-string contents)) info))))
(let ((transcoder (org-export-transcoder data info))) (if transcoder (progn
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not
greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
(function ...) (org-element-contents ...) ""))) (funcall transcoder data (if
(not greaterp) contents (org-element-normalize-string contents)) info)))))
(cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote
plain-text)) (org-no-properties (org-export-filter-apply-functions (plist-get
info :filter-plain-text) (let ((transcoder (org-export-transcoder data info)))
(if transcoder (funcall transcoder data info) data)) info))) ((not
(org-export--interpret-p data info)) (org-export-data (org-export-expand data
(mapconcat (function (lambda (blob) (org-export-data blob info)))
(org-element-contents data) "")) info)) ((not type) (mapconcat (function
(lambda (obj) (org-export-data obj info))) data "")) ((or (not
(org-element-contents data)) (and (eq type (quote headline)) (eq (plist-get
info :with-archived-trees) (quote headline)) (org-element-property :archivedp
data))) (let ((transcoder (org-export-transcoder data info))) (and (functionp
transcoder) (funcall transcoder data nil info)))) (t (let ((transcoder
(org-export-transcoder 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-get
info :ignore-list)) nil) ((eq type (quote plain-text)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info))) ((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data (mapconcat ... ... "")) info)) ((not type) (mapconcat
(function (lambda ... ...)) data "")) ((or (not (org-element-contents data))
(and (eq type ...) (eq ... ...) (org-element-property :archivedp data))) (let
((transcoder ...)) (and (functionp transcoder) (funcall transcoder data nil
info)))) (t (let ((transcoder ...)) (if transcoder (progn ...))))))) (puthash
data (cond ((not results) nil) ((memq type (quote (org-data plain-text nil)))
results) (t (let ((results (org-export-filter-apply-functions ... ... info)))
results))) (plist-get info :exported-data)))
(if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type
data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type
(quote plain-text)) (org-no-properties (org-export-filter-apply-functions ...
... info))) ((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data ...) info)) ((not type) (mapconcat (function ...) data
"")) ((or (not ...) (and ... ... ...)) (let (...) (and ... ...))) (t (let (...)
(if transcoder ...)))))) (puthash data (cond ((not results) nil) ((memq type
(quote (org-data plain-text nil))) results) (t (let ((results ...)) 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-properties ...))
((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 (...) results)))
(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 :level 1
:priority nil :tags nil :todo-keyword 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 "ECM 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)) (paragraph (:begin 83 :end 130 :contents-begin 83
:contents-end 129 :post-blank 1 :post-affiliated 83 :parent #0) #("When
exporting the following chunk of code...\n" 0 46 (:parent #1))) (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-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 following backtrace:\n" 0 36 (:parent #1))))
(: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 <a
href=\"http://orgmode.org\";>Org</a> mode 7.9.2 in <a
href=\"http://www.gnu.org/software/emacs/\";>Emacs</a> 24.2.50.1." :date nil
:description nil :email "address@hidden" :exclude-tags ("noexport")
:headline-levels 3 :keywords nil :language "en" :preserve-breaks nil
:section-numbers t :select-tags ("export") :time-stamp-file t
:with-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-entities
t :with-fixed-width t ...))
(lambda (element) (org-export-data element info))((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 :level 1 :priority nil :tags nil
:todo-keyword 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 "ECM 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)) (paragraph (:begin 83 :end 130 :contents-begin 83 :contents-end 129
:post-blank 1 :post-affiliated 83 :parent #0) #("When exporting the following
chunk of code...\n" 0 46 (:parent #1))) (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-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 following backtrace:\n" 0 36
(:parent #1)))))
mapconcat((lambda (element) (org-export-data element info)) ((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 :level 1 :priority nil :tags nil
:todo-keyword 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 #3))) :parent (org-data nil (section (:begin 1 :end 71
:contents-begin 1 :contents-end 70 :post-blank 1 :parent #5) (keyword ...)
(keyword ...)) #3)) #1)) (paragraph (:begin 83 :end 130 :contents-begin 83
:contents-end 129 :post-blank 1 :post-affiliated 83 :parent #1) #("When
exporting the 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-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-end 349 :post-blank 0 :post-affiliated 313
:parent #1) #("... we get the following backtrace:\n" 0 36 (:parent #2))))) "")
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not
greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
(function (lambda (element) (org-export-data element info)))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data (if ... ...)))) ""))) (funcall transcoder
data (if (not greaterp) contents (org-element-normalize-string contents)) info))
(progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp
(and (not greaterp) (memq type org-element-recursive-objects))) (contents
(mapconcat (function (lambda (element) (org-export-data element info)))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (funcall transcoder data (if
(not greaterp) contents (org-element-normalize-string contents)) info)))
(if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat (function (lambda ...
...)) (org-element-contents (if ... data ...)) ""))) (funcall transcoder data
(if (not greaterp) contents (org-element-normalize-string contents)) info))))
(let ((transcoder (org-export-transcoder data info))) (if transcoder (progn
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not
greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
(function ...) (org-element-contents ...) ""))) (funcall transcoder data (if
(not greaterp) contents (org-element-normalize-string contents)) info)))))
(cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote
plain-text)) (org-no-properties (org-export-filter-apply-functions (plist-get
info :filter-plain-text) (let ((transcoder (org-export-transcoder data info)))
(if transcoder (funcall transcoder data info) data)) info))) ((not
(org-export--interpret-p data info)) (org-export-data (org-export-expand data
(mapconcat (function (lambda (blob) (org-export-data blob info)))
(org-element-contents data) "")) info)) ((not type) (mapconcat (function
(lambda (obj) (org-export-data obj info))) data "")) ((or (not
(org-element-contents data)) (and (eq type (quote headline)) (eq (plist-get
info :with-archived-trees) (quote headline)) (org-element-property :archivedp
data))) (let ((transcoder (org-export-transcoder data info))) (and (functionp
transcoder) (funcall transcoder data nil info)))) (t (let ((transcoder
(org-export-transcoder 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-get
info :ignore-list)) nil) ((eq type (quote plain-text)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info))) ((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data (mapconcat ... ... "")) info)) ((not type) (mapconcat
(function (lambda ... ...)) data "")) ((or (not (org-element-contents data))
(and (eq type ...) (eq ... ...) (org-element-property :archivedp data))) (let
((transcoder ...)) (and (functionp transcoder) (funcall transcoder data nil
info)))) (t (let ((transcoder ...)) (if transcoder (progn ...))))))) (puthash
data (cond ((not results) nil) ((memq type (quote (org-data plain-text nil)))
results) (t (let ((results (org-export-filter-apply-functions ... ... info)))
results))) (plist-get info :exported-data)))
(if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type
data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type
(quote plain-text)) (org-no-properties (org-export-filter-apply-functions ...
... info))) ((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data ...) info)) ((not type) (mapconcat (function ...) data
"")) ((or (not ...) (and ... ... ...)) (let (...) (and ... ...))) (t (let (...)
(if transcoder ...)))))) (puthash data (cond ((not results) nil) ((memq type
(quote (org-data plain-text nil))) results) (t (let ((results ...)) 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-properties ...))
((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 (...) results)))
(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
:priority nil :tags nil :todo-keyword 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 #0))) :parent (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-attribute: 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 349 :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 :post-affiliated 83 :parent
#1) #("When exporting the 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-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-end 349 :post-blank 0 :post-affiliated 313
:parent #1) #("... we get the following backtrace:\n" 0 36 (:parent #2)))))
(: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 <a
href=\"http://orgmode.org\";>Org</a> mode 7.9.2 in <a
href=\"http://www.gnu.org/software/emacs/\";>Emacs</a> 24.2.50.1." :date nil
:description nil :email "address@hidden" :exclude-tags ("noexport")
:headline-levels 3 :keywords nil :language "en" :preserve-breaks nil
:section-numbers t :select-tags ("export") :time-stamp-file t
:with-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-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-type
nil :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil
:quotedp nil :category nil :title (#("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) (keyword (:key "TITLE" :value "ECM face-attribute:
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 349
: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
:post-affiliated 83 :parent #1) #("When exporting the 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-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-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 (:begin
1 :end 71 :contents-begin 1 :contents-end 70 :post-blank 1 :parent (org-data
nil #1 (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 nil :quotedp nil :category nil :title (#("CSS code"
0 8 ...)) :parent #3) (section (:begin 83 :end 349 :contents-begin 83
:contents-end 349 :post-blank 0 :parent #4) (paragraph (:begin 83 :end 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 :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" :post-blank 1
:post-affiliated 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" :value "ECM face-attribute: css-property italic" :begin 1 :end 54
:post-blank 0 :post-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-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 nil :quotedp nil :category nil :title (#("CSS code"
0 8 (:parent #1))) :parent (org-data nil (section (:begin 1 :end 71
:contents-begin 1 :contents-end 70 :post-blank 1 :parent #3) (keyword (:key
"TITLE" :value "ECM face-attribute: css-property italic" :begin 1 :end 54
:post-blank 0 :post-affiliated 1 :parent #4)) (keyword (:key "LANGUAGE" :value
"en" :begin 54 :end 70 :post-blank 0 :post-affiliated 54 :parent #4))) #1))
(section (:begin 83 :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-blank 1 :post-affiliated 83 :parent #2) #("When exporting the following
chunk of code...\n" 0 46 (:parent #3))) (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-transform:
rotate(90deg);\n -webkit-transform: rotate(90deg);\n background-color:
#EFEFEF;\n}\n" :post-blank 1 :post-affiliated 130 :parent #2)) (paragraph
(:begin 313 :end 349 :contents-begin 313 :contents-end 349 :post-blank 0
:post-affiliated 313 :parent #2) #("... we get the following backtrace:\n" 0 36
(:parent #3)))))) "")
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not
greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
(function (lambda (element) (org-export-data element info)))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data (if ... ...)))) ""))) (funcall transcoder
data (if (not greaterp) contents (org-element-normalize-string contents)) info))
(progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp
(and (not greaterp) (memq type org-element-recursive-objects))) (contents
(mapconcat (function (lambda (element) (org-export-data element info)))
(org-element-contents (if (or greaterp objectp) data
(org-element-normalize-contents data ...))) ""))) (funcall transcoder data (if
(not greaterp) contents (org-element-normalize-string contents)) info)))
(if transcoder (progn (let* ((greaterp (memq type
org-element-greater-elements)) (objectp (and (not greaterp) (memq type
org-element-recursive-objects))) (contents (mapconcat (function (lambda ...
...)) (org-element-contents (if ... data ...)) ""))) (funcall transcoder data
(if (not greaterp) contents (org-element-normalize-string contents)) info))))
(let ((transcoder (org-export-transcoder data info))) (if transcoder (progn
(let* ((greaterp (memq type org-element-greater-elements)) (objectp (and (not
greaterp) (memq type org-element-recursive-objects))) (contents (mapconcat
(function ...) (org-element-contents ...) ""))) (funcall transcoder data (if
(not greaterp) contents (org-element-normalize-string contents)) info)))))
(cond ((memq data (plist-get info :ignore-list)) nil) ((eq type (quote
plain-text)) (org-no-properties (org-export-filter-apply-functions (plist-get
info :filter-plain-text) (let ((transcoder (org-export-transcoder data info)))
(if transcoder (funcall transcoder data info) data)) info))) ((not
(org-export--interpret-p data info)) (org-export-data (org-export-expand data
(mapconcat (function (lambda (blob) (org-export-data blob info)))
(org-element-contents data) "")) info)) ((not type) (mapconcat (function
(lambda (obj) (org-export-data obj info))) data "")) ((or (not
(org-element-contents data)) (and (eq type (quote headline)) (eq (plist-get
info :with-archived-trees) (quote headline)) (org-element-property :archivedp
data))) (let ((transcoder (org-export-transcoder data info))) (and (functionp
transcoder) (funcall transcoder data nil info)))) (t (let ((transcoder
(org-export-transcoder 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-get
info :ignore-list)) nil) ((eq type (quote plain-text)) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-plain-text) (let ...
...) info))) ((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data (mapconcat ... ... "")) info)) ((not type) (mapconcat
(function (lambda ... ...)) data "")) ((or (not (org-element-contents data))
(and (eq type ...) (eq ... ...) (org-element-property :archivedp data))) (let
((transcoder ...)) (and (functionp transcoder) (funcall transcoder data nil
info)))) (t (let ((transcoder ...)) (if transcoder (progn ...))))))) (puthash
data (cond ((not results) nil) ((memq type (quote (org-data plain-text nil)))
results) (t (let ((results (org-export-filter-apply-functions ... ... info)))
results))) (plist-get info :exported-data)))
(if (not (eq memo (quote no-memo))) memo (let* ((type (org-element-type
data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type
(quote plain-text)) (org-no-properties (org-export-filter-apply-functions ...
... info))) ((not (org-export--interpret-p data info)) (org-export-data
(org-export-expand data ...) info)) ((not type) (mapconcat (function ...) data
"")) ((or (not ...) (and ... ... ...)) (let (...) (and ... ...))) (t (let (...)
(if transcoder ...)))))) (puthash data (cond ((not results) nil) ((memq type
(quote (org-data plain-text nil))) results) (t (let ((results ...)) 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-properties ...))
((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 (...) results)))
(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
:post-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-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 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-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))) (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-transform:
rotate(90deg);\n -webkit-transform: rotate(90deg);\n background-color:
#EFEFEF;\n}\n" :post-blank 1 :post-affiliated 130 :parent #2)) (paragraph
(:begin 313 :end 349 :contents-begin 313 :contents-end 349 :post-blank 0
:post-affiliated 313 :parent #2) #("... we get the following backtrace:\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 <a
href=\"http://orgmode.org\";>Org</a> mode 7.9.2 in <a
href=\"http://www.gnu.org/software/emacs/\";>Emacs</a> 24.2.50.1." :date nil
:description nil :email "address@hidden" :exclude-tags ("noexport")
:headline-levels 3 :keywords nil :language "en" :preserve-breaks nil
:section-numbers t :select-tags ("export") :time-stamp-file t
:with-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-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-alist)))) (output (org-export-filter-apply-functions (plist-get info
:filter-final-output) (if (or (not (functionp template)) body-only) body
(funcall template body info)) info))) (if (and org-export-copy-to-kill-ring
(org-string-nw-p output)) (progn (org-kill-new output))) output)
(let ((info (org-export--get-buffer-attributes)) tree)
(org-export-with-current-buffer-copy (run-hook-with-args (quote
org-export-before-processing-hook) backend) (if noexpand nil
(org-export-expand-include-keyword) (org-macro-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 backend subtreep ext-plist)))) (if noexpand nil
(org-macro-replace-all (list (cons "author" (org-element-interpret-data
(plist-get info :author))) (cons "date" (org-element-interpret-data (plist-get
info :date))) (cons "email" (or (plist-get info :email) "")) (cons "title"
(org-element-interpret-data (plist-get info :title)))))) (setq tree
(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 (org-export-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-string-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
(point-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let
((info (org-export--get-buffer-attributes)) tree)
(org-export-with-current-buffer-copy (run-hook-with-args (quote
org-export-before-processing-hook) backend) (if noexpand nil
(org-export-expand-include-keyword) (org-macro-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 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 :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 (org-export-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 ... body-only) body (funcall template body info))
info))) (if (and org-export-copy-to-kill-ring (org-string-nw-p output)) (progn
(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-max)))) (let ((info
(org-export--get-buffer-attributes)) tree) (org-export-with-current-buffer-copy
(run-hook-with-args (quote org-export-before-processing-hook) backend) (if
noexpand nil (org-export-expand-include-keyword)
(org-macro-initialize-templates) (org-macro-replace-all org-macro-templates)
(let ((org-current-export-file ...)) (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 backend subtreep ext-plist)))) (if noexpand nil
(org-macro-replace-all (list (cons "author" ...) (cons "date" ...) (cons
"email" ...) (cons "title" ...)))) (setq tree
(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-output) (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-plist
noexpand))) (let ((temp-buffer (generate-new-buffer " *temp*")))
(save-current-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-output-file-name extension subtreep pub-dir))
(org-export-coding-system org-e-html-coding-system)) (org-export-to-file (quote
e-html) file subtreep visible-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 nil
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-file
(memq (quote force) optns))) ((eql action (quote publish-current-project))
(org-e-publish-current-project (memq (quote force) optns))) ((eql action (quote
publish-choose-project)) (org-e-publish (assoc (org-icompleting-read "Publish
project: " org-e-publish-project-alist nil t) org-e-publish-project-alist)
(memq (quote force) optns))) ((eql action (quote publish-all))
(org-e-publish-all (memq (quote force) optns))) (t (funcall action (memq (quote
subtree) optns) (memq (quote visible) optns) (memq (quote body) optns))))
(let* ((input (let ((wconfig (current-window-configuration))) (unwind-protect
(progn (unwind-protect (org-export-dispatch-ui ... nil
org-export-dispatch-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)))
((eql action (quote publish-current-project)) (org-e-publish-current-project
(memq (quote force) optns))) ((eql action (quote publish-choose-project))
(org-e-publish (assoc (org-icompleting-read "Publish project: "
org-e-publish-project-alist nil t) org-e-publish-project-alist) (memq (quote
force) optns))) ((eql action (quote publish-all)) (org-e-publish-all (memq
(quote force) optns))) (t (funcall action (memq (quote subtree) optns) (memq
(quote visible) 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 exports
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-mode/lisp/)
--
Sebastien Vauban
- [O] [bug] wrong-type-argument symbolp (css-property italic),
Sebastien Vauban <=