emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG] HTML export of buffer with fringe indicators
@ 2022-05-17 11:01 Daniel Fleischer
  2022-05-18 12:54 ` Ihor Radchenko
  0 siblings, 1 reply; 8+ messages in thread
From: Daniel Fleischer @ 2022-05-17 11:01 UTC (permalink / raw)
  To: emacs-orgmode

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


^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: [BUG] HTML export of buffer with fringe indicators
  2022-05-17 11:01 [BUG] HTML export of buffer with fringe indicators Daniel Fleischer
@ 2022-05-18 12:54 ` Ihor Radchenko
  2022-05-18 17:14   ` Daniel Fleischer
  0 siblings, 1 reply; 8+ messages in thread
From: Ihor Radchenko @ 2022-05-18 12:54 UTC (permalink / raw)
  To: Daniel Fleischer; +Cc: emacs-orgmode

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


^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: [BUG] HTML export of buffer with fringe indicators
  2022-05-18 12:54 ` Ihor Radchenko
@ 2022-05-18 17:14   ` Daniel Fleischer
  2022-05-19 13:43     ` Ihor Radchenko
  0 siblings, 1 reply; 8+ messages in thread
From: Daniel Fleischer @ 2022-05-18 17:14 UTC (permalink / raw)
  To: Ihor Radchenko; +Cc: emacs-orgmode

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

^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: [BUG] HTML export of buffer with fringe indicators
  2022-05-18 17:14   ` Daniel Fleischer
@ 2022-05-19 13:43     ` Ihor Radchenko
  2022-05-19 14:54       ` Daniel Fleischer
  0 siblings, 1 reply; 8+ messages in thread
From: Ihor Radchenko @ 2022-05-19 13:43 UTC (permalink / raw)
  To: Daniel Fleischer; +Cc: emacs-orgmode

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


^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: [BUG] HTML export of buffer with fringe indicators
  2022-05-19 13:43     ` Ihor Radchenko
@ 2022-05-19 14:54       ` Daniel Fleischer
  2022-05-20  8:36         ` Ihor Radchenko
  0 siblings, 1 reply; 8+ messages in thread
From: Daniel Fleischer @ 2022-05-19 14:54 UTC (permalink / raw)
  To: Ihor Radchenko; +Cc: emacs-orgmode

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


^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: [BUG] HTML export of buffer with fringe indicators
  2022-05-19 14:54       ` Daniel Fleischer
@ 2022-05-20  8:36         ` Ihor Radchenko
  2022-05-21  9:52           ` Daniel Fleischer
  0 siblings, 1 reply; 8+ messages in thread
From: Ihor Radchenko @ 2022-05-20  8:36 UTC (permalink / raw)
  To: Daniel Fleischer; +Cc: emacs-orgmode

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


^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: [BUG] HTML export of buffer with fringe indicators
  2022-05-20  8:36         ` Ihor Radchenko
@ 2022-05-21  9:52           ` Daniel Fleischer
  2022-05-21 10:08             ` Ihor Radchenko
  0 siblings, 1 reply; 8+ messages in thread
From: Daniel Fleischer @ 2022-05-21  9:52 UTC (permalink / raw)
  To: Ihor Radchenko; +Cc: emacs-orgmode

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

^ permalink raw reply	[flat|nested] 8+ messages in thread

* Re: [BUG] HTML export of buffer with fringe indicators
  2022-05-21  9:52           ` Daniel Fleischer
@ 2022-05-21 10:08             ` Ihor Radchenko
  0 siblings, 0 replies; 8+ messages in thread
From: Ihor Radchenko @ 2022-05-21 10:08 UTC (permalink / raw)
  To: Daniel Fleischer; +Cc: emacs-orgmode

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


^ permalink raw reply	[flat|nested] 8+ messages in thread

end of thread, other threads:[~2022-05-21 10:08 UTC | newest]

Thread overview: 8+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-05-17 11:01 [BUG] HTML export of buffer with fringe indicators Daniel Fleischer
2022-05-18 12:54 ` Ihor Radchenko
2022-05-18 17:14   ` Daniel Fleischer
2022-05-19 13:43     ` Ihor Radchenko
2022-05-19 14:54       ` Daniel Fleischer
2022-05-20  8:36         ` Ihor Radchenko
2022-05-21  9:52           ` Daniel Fleischer
2022-05-21 10:08             ` Ihor Radchenko

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).