Re: [BUG] HTML export of buffer with fringe indicators

[Daniel Fleischer <danflscr@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 122 bytes --]

Ihor Radchenko [2022-05-18 Wed 20:54] wrote:

> Can you set debug-on-error to t and share the full backtrace?

Attached.


[-- Attachment #2: backtrace --]
[-- Type: text/plain, Size: 30865 bytes --]

Debugger entered--Lisp error: (args-out-of-range " " 0 -3)
  substring(" " 0 -3)
  (cons (substring text strpos addpos) textlist)
  (setq textlist (cons (substring text strpos addpos) textlist))
  (let ((addpos (car add)) (addtext (cdr add))) (setq textlist (cons (substring text strpos addpos) textlist)) (setq textlist (cons addtext textlist)) (setq strpos addpos))
  (let ((add (car --dolist-tail--))) (let ((addpos (car add)) (addtext (cdr add))) (setq textlist (cons (substring text strpos addpos) textlist)) (setq textlist (cons addtext textlist)) (setq strpos addpos)) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (while --dolist-tail-- (let ((add (car --dolist-tail--))) (let ((addpos (car add)) (addtext (cdr add))) (setq textlist (cons (substring text strpos addpos) textlist)) (setq textlist (cons addtext textlist)) (setq strpos addpos)) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let ((--dolist-tail-- (cl-stable-sort additions #'< :key #'car))) (while --dolist-tail-- (let ((add (car --dolist-tail--))) (let ((addpos (car add)) (addtext (cdr add))) (setq textlist (cons (substring text strpos addpos) textlist)) (setq textlist (cons addtext textlist)) (setq strpos addpos)) (setq --dolist-tail-- (cdr --dolist-tail--)))))
  (let ((textlist nil) (strpos 0)) (let ((--dolist-tail-- (cl-stable-sort additions #'< :key #'car))) (while --dolist-tail-- (let ((add (car --dolist-tail--))) (let ((addpos (car add)) (addtext (cdr add))) (setq textlist (cons (substring text strpos addpos) textlist)) (setq textlist (cons addtext textlist)) (setq strpos addpos)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq textlist (cons (substring text strpos) textlist)) (apply #'concat (nreverse textlist)))
  (if additions (let ((textlist nil) (strpos 0)) (let ((--dolist-tail-- (cl-stable-sort additions #'< :key #'car))) (while --dolist-tail-- (let ((add (car --dolist-tail--))) (let ((addpos ...) (addtext ...)) (setq textlist (cons ... textlist)) (setq textlist (cons addtext textlist)) (setq strpos addpos)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq textlist (cons (substring text strpos) textlist)) (apply #'concat (nreverse textlist))) text)
  (let (additions) (let ((--dolist-tail-- (overlays-in beg end))) (while --dolist-tail-- (let ((overlay (car --dolist-tail--))) (let ((before (overlay-get overlay ...)) (after (overlay-get overlay ...))) (if after (progn (setq additions ...))) (if before (progn (setq additions ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if additions (let ((textlist nil) (strpos 0)) (let ((--dolist-tail-- (cl-stable-sort additions #'< :key #'car))) (while --dolist-tail-- (let ((add ...)) (let (... ...) (setq textlist ...) (setq textlist ...) (setq strpos addpos)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (setq textlist (cons (substring text strpos) textlist)) (apply #'concat (nreverse textlist))) text))
  htmlize-add-before-after-strings(4 5 " ")
  (setq text (htmlize-add-before-after-strings beg end text))
  (let ((text (buffer-substring-no-properties beg end))) (htmlize-copy-prop 'display beg end text) (htmlize-copy-prop 'htmlize-link beg end text) (setq text (htmlize-add-before-after-strings beg end text)) text)
  htmlize-get-text-with-display(4 5)
  (cons (htmlize-get-text-with-display pos next-change) visible-list)
  (setq visible-list (cons (htmlize-get-text-with-display pos next-change) visible-list))
  (cond ((eq show t) (setq visible-list (cons (htmlize-get-text-with-display pos next-change) visible-list))) ((and (eq show 'ellipsis) (not (eq last-show 'ellipsis)) (setq visible-list (cons htmlize-ellipsis visible-list)))))
  (while (< pos end) (setq invisible (get-char-property pos 'invisible) next-change (htmlize-next-change pos 'invisible end) show (htmlize-decode-invisibility-spec invisible)) (cond ((eq show t) (setq visible-list (cons (htmlize-get-text-with-display pos next-change) visible-list))) ((and (eq show 'ellipsis) (not (eq last-show 'ellipsis)) (setq visible-list (cons htmlize-ellipsis visible-list))))) (setq pos next-change last-show show))
  (let ((pos beg) visible-list invisible show last-show next-change) (while (< pos end) (setq invisible (get-char-property pos 'invisible) next-change (htmlize-next-change pos 'invisible end) show (htmlize-decode-invisibility-spec invisible)) (cond ((eq show t) (setq visible-list (cons (htmlize-get-text-with-display pos next-change) visible-list))) ((and (eq show 'ellipsis) (not (eq last-show 'ellipsis)) (setq visible-list (cons htmlize-ellipsis visible-list))))) (setq pos next-change last-show show)) (htmlize-concat (nreverse visible-list)))
  htmlize-buffer-substring-no-invisible(4 5)
  (let ((text (htmlize-buffer-substring-no-invisible beg end))) (if trailing-ellipsis (progn (setq text (htmlize-trim-ellipsis text)))) (if (> (length text) 0) (progn (setq trailing-ellipsis (get-text-property (1- (length text)) 'htmlize-ellipsis text)))) (if htmlize-untabify (progn (setq text (htmlize-untabify-string text (current-column))))) (setq text (htmlize-string-to-html text)) (cl-values text trailing-ellipsis))
  htmlize-extract-text(4 5 nil)
  (let ((--cl-var-- (htmlize-extract-text (point) next-change trailing-ellipsis))) (prog1 (setq text (car --cl-var--)) (setq trailing-ellipsis (nth 1 --cl-var--))))
  (while (not (eobp)) (setq next-change (htmlize-next-face-change (point))) (setq face-list (htmlize-faces-at-point) fstruct-list (delq nil (mapcar #'(lambda (f) (gethash f face-map)) 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 (cl-equalp fstruct-list last-fstruct-list)) (progn (funcall close-markup) (setq last-fstruct-list fstruct-list close-markup (funcall text-markup fstruct-list htmlbuf)))) (princ text htmlbuf))) (goto-char next-change))
  (let ((text-markup (htmlize-method-function 'text-markup)) next-change text face-list trailing-ellipsis fstruct-list last-fstruct-list (close-markup #'(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 #'(lambda (f) (gethash f face-map)) 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 (cl-equalp fstruct-list last-fstruct-list)) (progn (funcall close-markup) (setq last-fstruct-list fstruct-list close-markup (funcall text-markup fstruct-list htmlbuf)))) (princ text htmlbuf))) (goto-char next-change)) (funcall close-markup))
  (let* ((buffer-faces (htmlize-faces-in-buffer)) (face-map (htmlize-make-face-map (if (memql 'default buffer-faces) buffer-faces (cons 'default buffer-faces)))) (places (cl-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 'doctype)) 10 (format "<!-- Created by htmlize-%s in %s mode. -->\n" htmlize-version htmlize-output-type) "<html>\n  ") (put places '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 'insert-head) buffer-faces face-map) (insert "  </head>") (put places 'head-end (point-marker)) (insert "\n  ") (put places 'body-start (point-marker)) (insert (funcall (htmlize-method-function 'body-tag) face-map) "\n    ") (put places 'content-start (point-marker)) (insert (funcall (htmlize-method-function 'pre-tag) face-map) "\n")) (let ((text-markup (htmlize-method-function 'text-markup)) next-change text face-list trailing-ellipsis fstruct-list last-fstruct-list (close-markup #'(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 #'(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 (cl-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 'content-end (point-marker)) (insert "\n  </body>") (put places '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 'htmlize-buffer-places) (symbol-plist places)) (run-hooks '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 'default buffer-faces) buffer-faces (cons 'default buffer-faces)))) (places (cl-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 'doctype)) 10 (format "<!-- Created by htmlize-%s in %s mode. -->\n" htmlize-version htmlize-output-type) "<html>\n  ") (put places '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 'insert-head) buffer-faces face-map) (insert "  </head>") (put places 'head-end (point-marker)) (insert "\n  ") (put places 'body-start (point-marker)) (insert (funcall (htmlize-method-function 'body-tag) face-map) "\n    ") (put places 'content-start (point-marker)) (insert (funcall (htmlize-method-function 'pre-tag) face-map) "\n")) (let ((text-markup (htmlize-method-function 'text-markup)) next-change text face-list trailing-ellipsis fstruct-list last-fstruct-list (close-markup #'(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-- (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 'content-end (point-marker)) (insert "\n  </body>") (put places '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 'htmlize-buffer-places) (symbol-plist places)) (run-hooks '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 (cl-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 'doctype)) 10 (format "<!-- Created by htmlize-%s in %s mode. -->\n" htmlize-version htmlize-output-type) "<html>\n  ") (put places '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 'insert-head) buffer-faces face-map) (insert "  </head>") (put places 'head-end (point-marker)) (insert "\n  ") (put places 'body-start (point-marker)) (insert (funcall (htmlize-method-function 'body-tag) face-map) "\n    ") (put places 'content-start (point-marker)) (insert (funcall (htmlize-method-function 'pre-tag) face-map) "\n")) (let ((text-markup (htmlize-method-function 'text-markup)) next-change text face-list trailing-ellipsis fstruct-list last-fstruct-list (close-markup #'(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 'content-end (point-marker)) (insert "\n  </body>") (put places '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 'htmlize-buffer-places) (symbol-plist places)) (run-hooks '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 '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 (cl-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 '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 'insert-head) buffer-faces face-map) (insert "  </head>") (put places 'head-end (point-marker)) (insert "\n  ") (put places 'body-start (point-marker)) (insert (funcall (htmlize-method-function ...) face-map) "\n    ") (put places 'content-start (point-marker)) (insert (funcall (htmlize-method-function ...) face-map) "\n")) (let ((text-markup (htmlize-method-function ...)) next-change text face-list trailing-ellipsis fstruct-list last-fstruct-list (close-markup #'...)) (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 'content-end (point-marker)) (insert "\n  </body>") (put places '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 'htmlize-buffer-places) (symbol-plist places)) (run-hooks '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 22)
  org-html-htmlize-region-for-paste(1 22)
  org-html-fontify-code("def hello():\n    pass" "python")
  org-html-do-format-code("def hello():\n    pass" "python" nil t nil nil)
  org-html-format-code((src-block (:language "python" :switches nil :parameters nil :begin 77 :end 128 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "def hello():\n    pass\n" :post-blank 0 :post-affiliated 77 ...)) (:export-options (subtree) :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data #<hash-table eq 0/4001 0x1ffd7dca4cc5> :input-buffer "כתיבה.txt" :input-file "/Users/danielfleischer/Doc..." :html-doctype "xhtml-strict" :html-container "div" :html-content-class "content" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil ...))
  org-html-src-block((src-block (:language "python" :switches nil :parameters nil :begin 77 :end 128 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "def hello():\n    pass\n" :post-blank 0 :post-affiliated 77 ...)) nil (:export-options (subtree) :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data #<hash-table eq 0/4001 0x1ffd7dca4cc5> :input-buffer "כתיבה.txt" :input-file "/Users/danielfleischer/Doc..." :html-doctype "xhtml-strict" :html-container "div" :html-content-class "content" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil ...))
  org-export-data((src-block (:language "python" :switches nil :parameters nil :begin 77 :end 128 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "def hello():\n    pass\n" :post-blank 0 :post-affiliated 77 ...)) (:export-options (subtree) :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data #<hash-table eq 0/4001 0x1ffd7dca4cc5> :input-buffer "כתיבה.txt" :input-file "/Users/danielfleischer/Doc..." :html-doctype "xhtml-strict" :html-container "div" :html-content-class "content" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil ...))
  #f(compiled-function (element) #<bytecode -0x6dd50ff10fdc3b7>)((src-block (:language "python" :switches nil :parameters nil :begin 77 :end 128 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "def hello():\n    pass\n" :post-blank 0 :post-affiliated 77 :mode top-comment :granularity nil :parent (section (:begin 77 :end 128 :contents-begin 77 :contents-end 128 :robust-begin 77 :robust-end 126 :post-blank 0 :post-affiliated 77 :mode first-section :granularity nil :parent (org-data (:begin 1 :contents-begin 1 :contents-end 1223774 :end 1223775 :robust-begin 3 :robust-end 1223772 :post-blank 1 :post-affiliated 1 :path "/Users/danielfleischer/Documents/My Files/Org/כתיב..." :mode org-data :CATEGORY "כתיבה" :granularity nil) #35)) #1))))
  mapconcat(#f(compiled-function (element) #<bytecode -0x6dd50ff10fdc3b7>) ((src-block (:language "python" :switches nil :parameters nil :begin 77 :end 128 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "def hello():\n    pass\n" :post-blank 0 :post-affiliated 77 :mode top-comment :granularity nil :parent (section (:begin 77 :end 128 :contents-begin 77 :contents-end 128 :robust-begin 77 :robust-end 126 :post-blank 0 :post-affiliated 77 :mode first-section :granularity nil :parent (org-data (:begin 1 :contents-begin 1 :contents-end 1223774 :end 1223775 :robust-begin 3 :robust-end 1223772 :post-blank 1 :post-affiliated 1 :path "/Users/danielfleischer/Documents/My Files/Org/כתיב..." :mode org-data :CATEGORY "כתיבה" :granularity nil) #37)) . #2)))) "")
  org-export-data((section (:begin 77 :end 128 :contents-begin 77 :contents-end 128 :robust-begin 77 :robust-end 126 :post-blank 0 :post-affiliated 77 :mode first-section :granularity nil :parent (org-data ... #1)) (src-block (:language "python" :switches nil :parameters nil :begin 77 :end 128 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "def hello():\n    pass\n" :post-blank 0 :post-affiliated 77 ...))) (:export-options (subtree) :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data #<hash-table eq 0/4001 0x1ffd7dca4cc5> :input-buffer "כתיבה.txt" :input-file "/Users/danielfleischer/Doc..." :html-doctype "xhtml-strict" :html-container "div" :html-content-class "content" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil ...))
  #f(compiled-function (element) #<bytecode -0x6dd50ff10fdc3b7>)((section (:begin 77 :end 128 :contents-begin 77 :contents-end 128 :robust-begin 77 :robust-end 126 :post-blank 0 :post-affiliated 77 :mode first-section :granularity nil :parent (org-data (:begin 1 :contents-begin 1 :contents-end 1223774 :end 1223775 :robust-begin 3 :robust-end 1223772 :post-blank 1 :post-affiliated 1 :path "/Users/danielfleischer/Documents/My Files/Org/כתיב..." :mode org-data :CATEGORY "כתיבה" :granularity nil) #1)) (src-block (:language "python" :switches nil :parameters nil :begin 77 :end 128 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "def hello():\n    pass\n" :post-blank 0 :post-affiliated 77 :mode top-comment :granularity nil :parent #1))))
  mapconcat(#f(compiled-function (element) #<bytecode -0x6dd50ff10fdc3b7>) ((section (:begin 77 :end 128 :contents-begin 77 :contents-end 128 :robust-begin 77 :robust-end 126 :post-blank 0 :post-affiliated 77 :mode first-section :granularity nil :parent (org-data (:begin 1 :contents-begin 1 :contents-end 1223774 :end 1223775 :robust-begin 3 :robust-end 1223772 :post-blank 1 :post-affiliated 1 :path "/Users/danielfleischer/Documents/My Files/Org/כתיב..." :mode org-data :CATEGORY "כתיבה" :granularity nil) . #2)) (src-block (:language "python" :switches nil :parameters nil :begin 77 :end 128 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "def hello():\n    pass\n" :post-blank 0 :post-affiliated 77 :mode top-comment :granularity nil :parent #3)))) "")
  org-export-data((org-data (:begin 1 :contents-begin 1 :contents-end 1223774 :end 1223775 :robust-begin 3 :robust-end 1223772 :post-blank 1 :post-affiliated 1 :path "/Users/danielfleischer/Doc..." :mode org-data :CATEGORY "כתיבה" :granularity nil) (section (:begin 77 :end 128 :contents-begin 77 :contents-end 128 :robust-begin 77 :robust-end 126 :post-blank 0 :post-affiliated 77 :mode first-section :granularity nil :parent #1) (src-block ...))) (:export-options (subtree) :back-end #s(org-export-backend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-block . org-html-example-block) (export-block . org-html-export-block) (export-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inner-template) (italic . org-html-italic) (item . org-html-item) (keyword . org-html-keyword) (latex-environment . org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-line-break) (link . org-html-link) (node-property . org-html-node-property) (paragraph . org-html-paragraph) ...) :exported-data #<hash-table eq 0/4001 0x1ffd7dca4cc5> :input-buffer "כתיבה.txt" :input-file "/Users/danielfleischer/Doc..." :html-doctype "xhtml-strict" :html-container "div" :html-content-class "content" :description nil :keywords nil :html-html5-fancy t :html-link-use-abs-url nil ...))
  org-export-as(html t nil nil (:output-file "כתיבה.html"))
  org-export-to-file(html "כתיבה.html" nil t nil nil nil)
  org-html-export-to-html(nil t nil nil)
  (org-open-file (org-html-export-to-html nil s v b))
  (if a (org-html-export-to-html t s v b) (org-open-file (org-html-export-to-html nil s v b)))
  (lambda (a s v b) (if a (org-html-export-to-html t s v b) (org-open-file (org-html-export-to-html nil s v b))))(nil t nil nil)
  org-export-dispatch(nil)
  funcall-interactively(org-export-dispatch nil)
  command-execute(org-export-dispatch)

[-- Attachment #3: Type: text/plain, Size: 32 bytes --]


Thanks,

-- 

Daniel Fleischer