* [bug] wrong-type-argument symbolp (css-property italic)
@ 2012-11-09 14:11 Sebastien Vauban
2012-11-09 15:25 ` Nicolas Goaziou
0 siblings, 1 reply; 3+ messages in thread
From: Sebastien Vauban @ 2012-11-09 14:11 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
#+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 "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :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 "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :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 "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :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 "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :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 "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :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 "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :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 "fni-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org" :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
^ permalink raw reply [flat|nested] 3+ messages in thread* Re: [bug] wrong-type-argument symbolp (css-property italic)
2012-11-09 14:11 [bug] wrong-type-argument symbolp (css-property italic) Sebastien Vauban
@ 2012-11-09 15:25 ` Nicolas Goaziou
2012-11-09 16:43 ` Sebastien Vauban
0 siblings, 1 reply; 3+ messages in thread
From: Nicolas Goaziou @ 2012-11-09 15:25 UTC (permalink / raw)
To: Sebastien Vauban; +Cc: public-emacs-orgmode-mXXj517/zsQ
Hello,
"Sebastien Vauban"
<wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org> writes:
> #+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
It looks like a bug in htmlize, not in Org.
Regards,
--
Nicolas Goaziou
^ permalink raw reply [flat|nested] 3+ messages in thread* Re: [bug] wrong-type-argument symbolp (css-property italic)
2012-11-09 15:25 ` Nicolas Goaziou
@ 2012-11-09 16:43 ` Sebastien Vauban
0 siblings, 0 replies; 3+ messages in thread
From: Sebastien Vauban @ 2012-11-09 16:43 UTC (permalink / raw)
To: emacs-orgmode-mXXj517/zsQ
Hello Nicolas,
Nicolas Goaziou wrote:
> "Sebastien Vauban" writes:
>
>> #+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
>
> It looks like a bug in htmlize, not in Org.
Yes and no. Yes, in htmlize. But, still in Org, as Org uses its own (modified)
version of htmlize (see org-mode/contrib/lisp/htmlize.el).
Best regards,
Seb
--
Sebastien Vauban
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2012-11-09 16:43 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2012-11-09 14:11 [bug] wrong-type-argument symbolp (css-property italic) Sebastien Vauban
2012-11-09 15:25 ` Nicolas Goaziou
2012-11-09 16:43 ` Sebastien Vauban
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).