[BUG] HTML export of buffer with fringe indicators

[BUG] HTML export of buffer with fringe indicators

[Daniel Fleischer]

The case I have in mind is some code with folding indicators in the
fringe. E.g. have this python block:

    #+begin_src python
    def hi():
        pass
    #+end_src

Have `elpy' installed with enabled fringe markers (have
`elpy-folding-fringe-indicators' non-nil). Then try to export, say to
HTML. I get the error

    cons: Args out of range: " ", 0, -3

Org cdbb1c9633.
Emacs eaa198cd75.

Thanks,

-- 

Daniel Fleischer

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

[Ihor Radchenko]

Daniel Fleischer <danflscr@gmail.com> writes:

> Have `elpy' installed with enabled fringe markers (have
> `elpy-folding-fringe-indicators' non-nil). Then try to export, say to
> HTML. I get the error
>
>     cons: Args out of range: " ", 0, -3

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

Best,
Ihor

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

[Daniel Fleischer]

[-- 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

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

[Ihor Radchenko]

Daniel Fleischer <danflscr@gmail.com> writes:

> Ihor Radchenko [2022-05-18 Wed 20:54] wrote:
>
>> Can you set debug-on-error to t and share the full backtrace?
>
> Attached.
> ...
>   htmlize-buffer-1()

What if you try to run M-: (htmlize-buffer) <RET>
on your file?

Best,
Ihor

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

[Daniel Fleischer]

Ihor Radchenko [2022-05-19 Thu 21:43] wrote:

> What if you try to run M-: (htmlize-buffer) <RET>
> on your file?

It works, creating an HTML buffer that can be opened and looks good. 

-- 

Daniel Fleischer

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

[Ihor Radchenko]

Daniel Fleischer <danflscr@gmail.com> writes:

> Ihor Radchenko [2022-05-19 Thu 21:43] wrote:
>
>> What if you try to run M-: (htmlize-buffer) <RET>
>> on your file?
>
> It works, creating an HTML buffer that can be opened and looks good. 

Then I have no more ideas.

I am unable to reproduce your problem on my side using the following
steps:

1. Install https://github.com/alphapapa/with-emacs.sh
2. Create /tmp/bug.org with the following contents
#+begin_src python
def hi():
    pass
#+end_src
3. cd /tmp/
4. git clone git://git.sv.gnu.org/emacs/org-mode.git
5. cd org-mode
6. make clean; make autoloads; with-emacs.sh -e emacs -O -i elpy -- -Q
-L ./lisp/ -l org -l org-inlinetask --eval "(setq elpy-folding-fringe-indicators t)" --eval "(elpy-enable)" /tmp/bug.org

7. C-c ' and install the dependencies
8. C-e h o to export html

Best,
Ihor

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

[Daniel Fleischer]

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

Ihor Radchenko [2022-05-20 Fri 16:36]  wrote:

> I am unable to reproduce your problem on my side using the following
> steps.

Ok, thanks anyway. BTW, even the steps you took are useful for me for future debugging. 

Best,

Daniel Fleischer

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

[Ihor Radchenko]

Daniel Fleischer <danflscr@gmail.com> writes:

> Ihor Radchenko [2022-05-20 Fri 16:36]  wrote:
>
>> I am unable to reproduce your problem on my side using the following
>> steps.
>
> Ok, thanks anyway. BTW, even the steps you took are useful for me for future debugging. 

It is exactly the reason I listed the steps. So that you can also try on
your side.

If you cannot reproduce using my steps, there is a chance that the
problem is also caused by some other part of your config. In which case,
you can use https://github.com/Malabarba/elisp-bug-hunter to hunt down
the cause. Also, see
https://open.tube/videos/watch/4d819114-43bf-42df-af94-f94fc53dd0d9

Best,
Ihor