Ihor Radchenko [2022-05-18 Wed 20:54] wrote:
> Can you set debug-on-error to t and share the full backtrace?
Attached.
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)
Thanks,
--
Daniel Fleischer
