org-mode blocks when running esy-mode

[ManasJayanth]

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  #<subr shell-command>("esy status" t nil)
  shell-command--shell-command-with-editor-mode(#<subr shell-command> "esy status" t nil)
  apply(shell-command--shell-command-with-editor-mode #<subr shell-command> ("esy status" t))
  shell-command("esy status" t)
  shell-command-to-string("esy status")
  (let* ((default-directory cwd) (json-str (shell-command-to-string (concat esy-command " status"))) (json-array-type 'list) (json-key-type 'string) (json-false 'nil) (json-object-type 'hash-table)) (condition-case nil (json-read-from-string json-str) (error (progn (message (format "Error while json parsing 'esy status' -> %s" json-str)) (esy--make-hash-table)))))
  esy/internal--esy-status(nil)
  (let* ((esy-status (esy/internal--esy-status cwd))) (esy/internal-status--get-project-root esy-status))
  esy/internal--root-of-cwd(nil)
  (let* ((project-root (esy/internal--root-of-cwd (esy/internal--cwd-of-buffer buffer)))) (if project-root (let* ((cached-project (esy/project--read-db project-root))) (if cached-project cached-project (esy/project--of-buffer buffer)))))
  esy/cached-project--of-buffer(#<buffer  *temp*>)
  (let* ((project (esy/cached-project--of-buffer (current-buffer)))) (if project (esy/project--persist project)) (if (esy/project--p project) (progn (let* ((project-type (esy/project--get-type project))) (cond ((eq project-type 'opam) (esy/setup--opam project #'...)) ((eq project-type 'esy) (esy/setup--esy project #'...)) ((eq project-type 'npm) (esy/setup--npm project #'...))))) (message "Doesn't look like an esy project. esy-mode will st...")))
  (condition-case nil (let* ((project (esy/cached-project--of-buffer (current-buffer)))) (if project (esy/project--persist project)) (if (esy/project--p project) (progn (let* ((project-type (esy/project--get-type project))) (cond ((eq project-type ...) (esy/setup--opam project ...)) ((eq project-type ...) (esy/setup--esy project ...)) ((eq project-type ...) (esy/setup--npm project ...))))) (message "Doesn't look like an esy project. esy-mode will st..."))) (file-from-source-cache-error (message "File is from esy's source cache. Not doing anythin...")))
  (if (esy-mode-init) (condition-case nil (let* ((project (esy/cached-project--of-buffer (current-buffer)))) (if project (esy/project--persist project)) (if (esy/project--p project) (progn (let* ((project-type ...)) (cond (... ...) (... ...) (... ...)))) (message "Doesn't look like an esy project. esy-mode will st..."))) (file-from-source-cache-error (message "File is from esy's source cache. Not doing anythin..."))) (message "esy command not found. Try 'npm i -g esy' or refer..."))
  (progn (if (esy-mode-init) (condition-case nil (let* ((project (esy/cached-project--of-buffer (current-buffer)))) (if project (esy/project--persist project)) (if (esy/project--p project) (progn (let* (...) (cond ... ... ...))) (message "Doesn't look like an esy project. esy-mode will st..."))) (file-from-source-cache-error (message "File is from esy's source cache. Not doing anythin..."))) (message "esy command not found. Try 'npm i -g esy' or refer...")))
  (if esy-mode (progn (if (esy-mode-init) (condition-case nil (let* ((project (esy/cached-project--of-buffer ...))) (if project (esy/project--persist project)) (if (esy/project--p project) (progn (let* ... ...)) (message "Doesn't look like an esy project. esy-mode will st..."))) (file-from-source-cache-error (message "File is from esy's source cache. Not doing anythin..."))) (message "esy command not found. Try 'npm i -g esy' or refer..."))))
  (let ((last-message (current-message))) (setq esy-mode (cond ((eq arg 'toggle) (not esy-mode)) ((and (numberp arg) (< arg 1)) nil) (t t))) (if (boundp 'local-minor-modes) (progn (setq local-minor-modes (delq 'esy-mode local-minor-modes)) (if esy-mode (progn (setq local-minor-modes (cons 'esy-mode local-minor-modes)))))) (if esy-mode (progn (if (esy-mode-init) (condition-case nil (let* ((project ...)) (if project (esy/project--persist project)) (if (esy/project--p project) (progn ...) (message "Doesn't look like an esy project. esy-mode will st..."))) (file-from-source-cache-error (message "File is from esy's source cache. Not doing anythin..."))) (message "esy command not found. Try 'npm i -g esy' or refer...")))) (run-hooks 'esy-mode-hook (if esy-mode 'esy-mode-on-hook 'esy-mode-off-hook)) (if (called-interactively-p 'any) (progn nil (if (and (current-message) (not (equal last-message (current-message)))) nil (let ((local " in current buffer")) (message "esy mode %sabled%s" (if esy-mode "en" "dis") local))))))
  esy-mode()
  run-hooks(change-major-mode-after-body-hook prog-mode-hook tuareg-load-hook tuareg-mode-hook)
  apply(run-hooks (change-major-mode-after-body-hook prog-mode-hook tuareg-load-hook tuareg-mode-hook))
  run-mode-hooks(tuareg-mode-hook)
  tuareg-mode()
  org-html-fontify-code("val fun_: ?loc:loc -> ?attrs:attrs -> arg_label ->..." "tuareg")
  org-html-do-format-code("val fun_: ?loc:loc -> ?attrs:attrs -> arg_label ->..." "tuareg" nil t nil nil)
  org-html-format-code((src-block (:language "tuareg" :switches nil :parameters nil :begin 864 :end 1080 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val fun_: ?loc:loc -> ?att..." :post-blank 2 :post-affiliated 864 ...)) (:export-options nil :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 10/4001 0x4b247f8b> :input-buffer "index.org<notes>" :input-file "/Users/psac/development/p..." :html-doctype "xhtml-strict" :html-container "div" :html-content-class "content" :description nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...))
  org-html-src-block((src-block (:language "tuareg" :switches nil :parameters nil :begin 864 :end 1080 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val fun_: ?loc:loc -> ?att..." :post-blank 2 :post-affiliated 864 ...)) nil (:export-options nil :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 10/4001 0x4b247f8b> :input-buffer "index.org<notes>" :input-file "/Users/psac/development/p..." :html-doctype "xhtml-strict" :html-container "div" :html-content-class "content" :description nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...))
  org-export-data((src-block (:language "tuareg" :switches nil :parameters nil :begin 864 :end 1080 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val fun_: ?loc:loc -> ?att..." :post-blank 2 :post-affiliated 864 ...)) (:export-options nil :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 10/4001 0x4b247f8b> :input-buffer "index.org<notes>" :input-file "/Users/psac/development/p..." :html-doctype "xhtml-strict" :html-container "div" :html-content-class "content" :description nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...))
  #f(compiled-function (element) #<bytecode -0x1d308bf0e3b3da43>)((src-block (:language "tuareg" :switches nil :parameters nil :begin 864 :end 1080 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val fun_: ?loc:loc -> ?attrs:attrs -> arg_label ->..." :post-blank 2 :post-affiliated 864 :mode nil :granularity nil :parent (section (:begin 685 :end 3541 :contents-begin 685 :contents-end 3540 :robust-begin 685 :robust-end 3538 :post-blank 1 :post-affiliated 685 :mode section :granularity nil :parent (headline (:raw-value "[2023-11-13 Mon 17:39]  OCaml 5.2.0 will make a ch..." :begin 583 :end 3541 :pre-blank 0 :contents-begin 685 :contents-end 3540 :robust-begin 783 :robust-end 3538 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 583 :ID "F18B0D0E-E4F5-47A4-992B-D4B8B1794C77" :PUBDATE "2023-11-15 Wed 18:14" :title (... ...) :mode nil :granularity nil :parent (org-data ... ... #59 ... ... ... ... ... ... ... ... ... ... ... ... ...)) #35)) (paragraph (:begin 785 :end 864 :contents-begin 785 :contents-end 863 :post-blank 1 :post-affiliated 785 :mode nil :granularity nil :parent #35) #("OCaml 5.1.0 has two different helper APIs to creat..." 0 78 (:parent #38))) #1 (paragraph (:begin 1080 :end 1201 :contents-begin 1080 :contents-end 1199 :post-blank 2 :post-affiliated 1080 :mode nil :granularity nil :parent #35) (link (:type "https" :path "//github.com/ocaml/ocaml/blob/5717a14d0e3dc2b0e41a..." :format bracket :raw-link "https://github.com/ocaml/ocaml/blob/5717a14d0e3dc2..." :application nil :search-option nil :begin 1080 :end 1198 :contents-begin 1193 :contents-end 1196 :post-blank 0 :parent #40) #("ref" 0 3 (:parent #43))) #("\n" 0 1 (:parent #40))) (paragraph (:begin 1201 :end 1427 :contents-begin 1201 :contents-end 1426 :post-blank 1 :post-affiliated 1201 :mode nil :granularity nil :parent #35) #("With " 0 5 (:parent #41)) (link (:type "https" :path "//github.com/ocaml/ocaml/pull/12236" :format bracket :raw-link "https://github.com/ocaml/ocaml/pull/12236" :application nil :search-option nil :begin 1206 :end 1260 :contents-begin 1251 :contents-end 1258 :post-blank 0 :parent #41) #("this PR" 0 7 (:parent #45))) #(", specifically " 0 15 (:parent #41)) (link (:type "https" :path "//github.com/ocaml/ocaml/commit/739f574cd1bbda3489..." :format bracket :raw-link "https://github.com/ocaml/ocaml/commit/739f574cd1bb..." :application nil :search-option nil :begin 1275 :end 1370 :contents-begin 1357 :contents-end 1368 :post-blank 0 :parent #41) #("this commit" 0 11 (:parent #47))) #(", these helpers have been merged\ninto one - " 0 44 (:parent #41)) (verbatim (:begin 1414 :end 1425 :post-blank 0 :value #("function_" 0 9 ...) :parent #41)) #("\n" 0 1 (:parent #41))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 1427 :end 1608 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val function_ : ?loc:loc -> ?attrs:attrs -> functi..." :post-blank 1 :post-affiliated 1427 :mode nil :granularity nil :parent #35)) (paragraph (:begin 1608 :end 1647 :contents-begin 1608 :contents-end 1646 :post-blank 1 :post-affiliated 1608 :mode nil :granularity nil :parent #35) #("This helper needs the following types\n" 0 38 (:parent #43))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 1647 :end 2060 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "and function_param = { pparam_loc : Location.t;\n  ..." :post-blank 1 :post-affiliated 1647 :mode nil :granularity nil :parent #35)) (paragraph (:begin 2060 :end 2152 :contents-begin 2060 :contents-end 2151 :post-blank 1 :post-affiliated 2060 :mode nil :granularity nil :parent #35) #("An example illustrating usage of the new API, comp..." 0 91 (:parent #45))) (src-block (:language "diff" :switches nil :parameters nil :begin 2152 :end 3414 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "@@ -358,11 +372,28 @@ let check_phrase phrase =\n  ..." :post-blank 1 :post-affiliated 2152 :mode nil :granularity nil :parent #35)) (paragraph (:begin 3414 :end 3540 :contents-begin 3414 :contents-end 3540 :post-blank 0 :post-affiliated 3414 :mode nil :granularity nil :parent #35) #("Ref: " 0 5 (:parent #47)) (link (:type "https" :path "//github.com/ocaml-community/utop/compare/master....." :format plain :raw-link "https://github.com/ocaml-community/utop/compare/ma..." :application nil :search-option nil :begin 3419 :end 3539 :contents-begin nil :contents-end nil :post-blank 0 :parent #47)) #("\n" 0 1 (:parent #47)))))))
  mapconcat(#f(compiled-function (element) #<bytecode -0x1d308bf0e3b3da43>) ((paragraph (:begin 785 :end 864 :contents-begin 785 :contents-end 863 :post-blank 1 :post-affiliated 785 :mode nil :granularity nil :parent (section ... . #2)) #("OCaml 5.1.0 has two different he..." 0 78 (:parent #3))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 864 :end 1080 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val fun_: ?loc:loc -> ?attrs:att..." :post-blank 2 :post-affiliated 864 :mode nil :granularity nil :parent (section ... . #2))) (paragraph (:begin 1080 :end 1201 :contents-begin 1080 :contents-end 1199 :post-blank 2 :post-affiliated 1080 :mode nil :granularity nil :parent (section ... . #2)) (link (:type "https" :path "//github.com/ocaml/ocaml/blob/57..." :format bracket :raw-link "https://github.com/ocaml/ocaml/b..." :application nil :search-option nil :begin 1080 :end 1198 :contents-begin 1193 :contents-end 1196 :post-blank 0 :parent #5) #("ref" 0 3 ...)) #("\n" 0 1 (:parent #5))) (paragraph (:begin 1201 :end 1427 :contents-begin 1201 :contents-end 1426 :post-blank 1 :post-affiliated 1201 :mode nil :granularity nil :parent (section ... . #2)) #("With " 0 5 (:parent #6)) (link (:type "https" :path "//github.com/ocaml/ocaml/pull/12..." :format bracket :raw-link "https://github.com/ocaml/ocaml/p..." :application nil :search-option nil :begin 1206 :end 1260 :contents-begin 1251 :contents-end 1258 :post-blank 0 :parent #6) #("this PR" 0 7 ...)) #(", specifically " 0 15 (:parent #6)) (link (:type "https" :path "//github.com/ocaml/ocaml/commit/..." :format bracket :raw-link "https://github.com/ocaml/ocaml/c..." :application nil :search-option nil :begin 1275 :end 1370 :contents-begin 1357 :contents-end 1368 :post-blank 0 :parent #6) #("this commit" 0 11 ...)) #(", these helpers have been merged..." 0 44 (:parent #6)) (verbatim (:begin 1414 :end 1425 :post-blank 0 :value ... :parent #6)) #("\n" 0 1 (:parent #6))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 1427 :end 1608 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val function_ : ?loc:loc -> ?att..." :post-blank 1 :post-affiliated 1427 :mode nil :granularity nil :parent (section ... . #2))) (paragraph (:begin 1608 :end 1647 :contents-begin 1608 :contents-end 1646 :post-blank 1 :post-affiliated 1608 :mode nil :granularity nil :parent (section ... . #2)) #("This helper needs the following ..." 0 38 (:parent #8))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 1647 :end 2060 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "and function_param = { pparam_lo..." :post-blank 1 :post-affiliated 1647 :mode nil :granularity nil :parent (section ... . #2))) (paragraph (:begin 2060 :end 2152 :contents-begin 2060 :contents-end 2151 :post-blank 1 :post-affiliated 2060 :mode nil :granularity nil :parent (section ... . #2)) #("An example illustrating usage of..." 0 91 (:parent #10))) (src-block (:language "diff" :switches nil :parameters nil :begin 2152 :end 3414 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "@@ -358,11 +372,28 @@ let check_..." :post-blank 1 :post-affiliated 2152 :mode nil :granularity nil :parent (section ... . #2))) (paragraph (:begin 3414 :end 3540 :contents-begin 3414 :contents-end 3540 :post-blank 0 :post-affiliated 3414 :mode nil :granularity nil :parent (section ... . #2)) #("Ref: " 0 5 (:parent #12)) (link (:type "https" :path "//github.com/ocaml-community/uto..." :format plain :raw-link "https://github.com/ocaml-communi..." :application nil :search-option nil :begin 3419 :end 3539 :contents-begin nil :contents-end nil :post-blank 0 :parent #12)) #("\n" 0 1 (:parent #12)))) "")
  org-export-data((section (:begin 685 :end 3541 :contents-begin 685 :contents-end 3540 :robust-begin 685 :robust-end 3538 :post-blank 1 :post-affiliated 685 :mode section :granularity nil :parent (headline ... #1)) (paragraph (:begin 785 :end 864 :contents-begin 785 :contents-end 863 :post-blank 1 :post-affiliated 785 :mode nil :granularity nil :parent #1) #("OCaml 5.1.0 has two differ..." 0 78 ...)) (src-block (:language "tuareg" :switches nil :parameters nil :begin 864 :end 1080 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val fun_: ?loc:loc -> ?att..." :post-blank 2 :post-affiliated 864 ...)) (paragraph (:begin 1080 :end 1201 :contents-begin 1080 :contents-end 1199 :post-blank 2 :post-affiliated 1080 :mode nil :granularity nil :parent #1) (link ... ...) #("\n" 0 1 ...)) (paragraph (:begin 1201 :end 1427 :contents-begin 1201 :contents-end 1426 :post-blank 1 :post-affiliated 1201 :mode nil :granularity nil :parent #1) #("With " 0 5 ...) (link ... ...) #(", specifically " 0 15 ...) (link ... ...) #(", these helpers have been ..." 0 44 ...) (verbatim ...) #("\n" 0 1 ...)) (src-block (:language "tuareg" :switches nil :parameters nil :begin 1427 :end 1608 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val function_ : ?loc:loc -..." :post-blank 1 :post-affiliated 1427 ...)) (paragraph (:begin 1608 :end 1647 :contents-begin 1608 :contents-end 1646 :post-blank 1 :post-affiliated 1608 :mode nil :granularity nil :parent #1) #("This helper needs the foll..." 0 38 ...)) (src-block (:language "tuareg" :switches nil :parameters nil :begin 1647 :end 2060 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "and function_param = { ppa..." :post-blank 1 :post-affiliated 1647 ...)) (paragraph (:begin 2060 :end 2152 :contents-begin 2060 :contents-end 2151 :post-blank 1 :post-affiliated 2060 :mode nil :granularity nil :parent #1) #("An example illustrating us..." 0 91 ...)) (src-block (:language "diff" :switches nil :parameters nil :begin 2152 :end 3414 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "@@ -358,11 +372,28 @@ let ..." :post-blank 1 :post-affiliated 2152 ...)) (paragraph (:begin 3414 :end 3540 :contents-begin 3414 :contents-end 3540 :post-blank 0 :post-affiliated 3414 :mode nil :granularity nil :parent #1) #("Ref: " 0 5 ...) (link ...) #("\n" 0 1 ...))) (:export-options nil :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 10/4001 0x4b247f8b> :input-buffer "index.org<notes>" :input-file "/Users/psac/development/p..." :html-doctype "xhtml-strict" :html-container "div" :html-content-class "content" :description nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...))
  #f(compiled-function (element) #<bytecode -0x1d308bf0e3b3da43>)((section (:begin 685 :end 3541 :contents-begin 685 :contents-end 3540 :robust-begin 685 :robust-end 3538 :post-blank 1 :post-affiliated 685 :mode section :granularity nil :parent (headline (:raw-value "[2023-11-13 Mon 17:39]  OCaml 5.2.0 wi..." :begin 583 :end 3541 :pre-blank 0 :contents-begin 685 :contents-end 3540 :robust-begin 783 :robust-end 3538 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 583 :ID "F18B0D0E-E4F5-47A4-992B-D4B8B1794C77" ...) #1)) (paragraph (:begin 785 :end 864 :contents-begin 785 :contents-end 863 :post-blank 1 :post-affiliated 785 :mode nil :granularity nil :parent #1) #("OCaml 5.1.0 has two different helper A..." 0 78 (:parent #4))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 864 :end 1080 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val fun_: ?loc:loc -> ?attrs:attrs -> ..." :post-blank 2 :post-affiliated 864 :mode nil :granularity nil :parent #1)) (paragraph (:begin 1080 :end 1201 :contents-begin 1080 :contents-end 1199 :post-blank 2 :post-affiliated 1080 :mode nil :granularity nil :parent #1) (link (:type "https" :path "//github.com/ocaml/ocaml/blob/5717a14d..." :format bracket :raw-link "https://github.com/ocaml/ocaml/blob/57..." :application nil :search-option nil :begin 1080 :end 1198 :contents-begin 1193 :contents-end 1196 :post-blank 0 :parent #6) #("ref" 0 3 (:parent #9))) #("\n" 0 1 (:parent #6))) (paragraph (:begin 1201 :end 1427 :contents-begin 1201 :contents-end 1426 :post-blank 1 :post-affiliated 1201 :mode nil :granularity nil :parent #1) #("With " 0 5 (:parent #7)) (link (:type "https" :path "//github.com/ocaml/ocaml/pull/12236" :format bracket :raw-link "https://github.com/ocaml/ocaml/pull/12..." :application nil :search-option nil :begin 1206 :end 1260 :contents-begin 1251 :contents-end 1258 :post-blank 0 :parent #7) #("this PR" 0 7 (:parent #11))) #(", specifically " 0 15 (:parent #7)) (link (:type "https" :path "//github.com/ocaml/ocaml/commit/739f57..." :format bracket :raw-link "https://github.com/ocaml/ocaml/commit/..." :application nil :search-option nil :begin 1275 :end 1370 :contents-begin 1357 :contents-end 1368 :post-blank 0 :parent #7) #("this commit" 0 11 (:parent #13))) #(", these helpers have been merged\ninto ..." 0 44 (:parent #7)) (verbatim (:begin 1414 :end 1425 :post-blank 0 :value #("function_" 0 9 ...) :parent #7)) #("\n" 0 1 (:parent #7))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 1427 :end 1608 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val function_ : ?loc:loc -> ?attrs:att..." :post-blank 1 :post-affiliated 1427 :mode nil :granularity nil :parent #1)) (paragraph (:begin 1608 :end 1647 :contents-begin 1608 :contents-end 1646 :post-blank 1 :post-affiliated 1608 :mode nil :granularity nil :parent #1) #("This helper needs the following types\n" 0 38 (:parent #9))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 1647 :end 2060 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "and function_param = { pparam_loc : Lo..." :post-blank 1 :post-affiliated 1647 :mode nil :granularity nil :parent #1)) (paragraph (:begin 2060 :end 2152 :contents-begin 2060 :contents-end 2151 :post-blank 1 :post-affiliated 2060 :mode nil :granularity nil :parent #1) #("An example illustrating usage of the n..." 0 91 (:parent #11))) (src-block (:language "diff" :switches nil :parameters nil :begin 2152 :end 3414 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "@@ -358,11 +372,28 @@ let check_phrase..." :post-blank 1 :post-affiliated 2152 :mode nil :granularity nil :parent #1)) (paragraph (:begin 3414 :end 3540 :contents-begin 3414 :contents-end 3540 :post-blank 0 :post-affiliated 3414 :mode nil :granularity nil :parent #1) #("Ref: " 0 5 (:parent #13)) (link (:type "https" :path "//github.com/ocaml-community/utop/comp..." :format plain :raw-link "https://github.com/ocaml-community/uto..." :application nil :search-option nil :begin 3419 :end 3539 :contents-begin nil :contents-end nil :post-blank 0 :parent #13)) #("\n" 0 1 (:parent #13)))))
  mapconcat(#f(compiled-function (element) #<bytecode -0x1d308bf0e3b3da43>) ((section (:begin 685 :end 3541 :contents-begin 685 :contents-end 3540 :robust-begin 685 :robust-end 3538 :post-blank 1 :post-affiliated 685 :mode section :granularity nil :parent (headline (:raw-value "[2023-11-13 Mon 17:39]  OCaml 5.2.0 will mak..." :begin 583 :end 3541 :pre-blank 0 :contents-begin 685 :contents-end 3540 :robust-begin 783 :robust-end 3538 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 1 :footnote-section-p nil :archivedp nil :commentedp nil :post-affiliated 583 :ID "F18B0D0E-E4F5-47A4-992B-D4B8B1794C77" :PUBDATE "2023-11-15 Wed 18:14" :title (... ...) :mode nil ...) . #2)) (paragraph (:begin 785 :end 864 :contents-begin 785 :contents-end 863 :post-blank 1 :post-affiliated 785 :mode nil :granularity nil :parent #3) #("OCaml 5.1.0 has two different helper APIs to..." 0 78 (:parent #6))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 864 :end 1080 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val fun_: ?loc:loc -> ?attrs:attrs -> arg_la..." :post-blank 2 :post-affiliated 864 :mode nil :granularity nil :parent #3)) (paragraph (:begin 1080 :end 1201 :contents-begin 1080 :contents-end 1199 :post-blank 2 :post-affiliated 1080 :mode nil :granularity nil :parent #3) (link (:type "https" :path "//github.com/ocaml/ocaml/blob/5717a14d0e3dc2..." :format bracket :raw-link "https://github.com/ocaml/ocaml/blob/5717a14d..." :application nil :search-option nil :begin 1080 :end 1198 :contents-begin 1193 :contents-end 1196 :post-blank 0 :parent #8) #("ref" 0 3 (:parent #11))) #("\n" 0 1 (:parent #8))) (paragraph (:begin 1201 :end 1427 :contents-begin 1201 :contents-end 1426 :post-blank 1 :post-affiliated 1201 :mode nil :granularity nil :parent #3) #("With " 0 5 (:parent #9)) (link (:type "https" :path "//github.com/ocaml/ocaml/pull/12236" :format bracket :raw-link "https://github.com/ocaml/ocaml/pull/12236" :application nil :search-option nil :begin 1206 :end 1260 :contents-begin 1251 :contents-end 1258 :post-blank 0 :parent #9) #("this PR" 0 7 (:parent #13))) #(", specifically " 0 15 (:parent #9)) (link (:type "https" :path "//github.com/ocaml/ocaml/commit/739f574cd1bb..." :format bracket :raw-link "https://github.com/ocaml/ocaml/commit/739f57..." :application nil :search-option nil :begin 1275 :end 1370 :contents-begin 1357 :contents-end 1368 :post-blank 0 :parent #9) #("this commit" 0 11 (:parent #15))) #(", these helpers have been merged\ninto one - " 0 44 (:parent #9)) (verbatim (:begin 1414 :end 1425 :post-blank 0 :value #("function_" 0 9 ...) :parent #9)) #("\n" 0 1 (:parent #9))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 1427 :end 1608 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "val function_ : ?loc:loc -> ?attrs:attrs -> ..." :post-blank 1 :post-affiliated 1427 :mode nil :granularity nil :parent #3)) (paragraph (:begin 1608 :end 1647 :contents-begin 1608 :contents-end 1646 :post-blank 1 :post-affiliated 1608 :mode nil :granularity nil :parent #3) #("This helper needs the following types\n" 0 38 (:parent #11))) (src-block (:language "tuareg" :switches nil :parameters nil :begin 1647 :end 2060 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "and function_param = { pparam_loc : Location..." :post-blank 1 :post-affiliated 1647 :mode nil :granularity nil :parent #3)) (paragraph (:begin 2060 :end 2152 :contents-begin 2060 :contents-end 2151 :post-blank 1 :post-affiliated 2060 :mode nil :granularity nil :parent #3) #("An example illustrating usage of the new API..." 0 91 (:parent #13))) (src-block (:language "diff" :switches nil :parameters nil :begin 2152 :end 3414 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value "@@ -358,11 +372,28 @@ let check_phrase phras..." :post-blank 1 :post-affiliated 2152 :mode nil :granularity nil :parent #3)) (paragraph (:begin 3414 :end 3540 :contents-begin 3414 :contents-end 3540 :post-blank 0 :post-affiliated 3414 :mode nil :granularity nil :parent #3) #("Ref: " 0 5 (:parent #15)) (link (:type "https" :path "//github.com/ocaml-community/utop/compare/ma..." :format plain :raw-link "https://github.com/ocaml-community/utop/comp..." :application nil :search-option nil :begin 3419 :end 3539 :contents-begin nil :contents-end nil :post-blank 0 :parent #15)) #("\n" 0 1 (:parent #15))))) "")
  org-export-data((headline ... ...) (:export-options nil :back-end ... :translate-alist ... :exported-data #<hash-table eq 10/4001 0x4b247f8b> :input-buffer "index.org<note..." :input-file "/Users/psac/d..." :html-doctype "xhtml-strict" ...))
  #f(compiled-function (element) #<bytecode -0x1d308bf0e3b3da43>)((headline (:raw-value "[2023-11-13 Mon 17:3..." :begin 583 :end 3541 :pre-blank 0 :contents-begin 685 :contents-end 3540 :robust-begin 783 :robust-end 3538 :level 1 :priority nil ...) (section ... ... ... ... ... ... ... ... ... ... ...)))
  mapconcat(#f(compiled-function (element) #<bytecode -0x1d308bf0e3b3da43>) (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) "")
  org-export-data((org-data ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (:export-options nil :back-end ... :translate-alist ... :exported-data #<hash-table eq 10/4001 0x4b247f8b> :input-buffer "index.org<note..." :input-file "/Users/psac/d..." :html-doctype "xhtml-strict" ...))
  org-export-as(html nil nil nil (:output-file "/Users/psac/development/prometheansacrifice/notes..." :base-directory "~/development/prometheansacrifice/notes/" :publishing-directory "~/development/prometheansacrifice/notes/" :recursive t :publishing-function org-html-publish-to-html :crossrefs (((other "[2023-11-07" "Tue" "16:08]" "Compiling" "an" "OCaml" "module" "from" "another" "directory" "with" "ocamlopt") . 99170180) ((headline "[2023-11-07" "Tue" "16:08]" "Compiling" "an" "OCaml" "module" "from" "another" "directory" "with" "ocamlopt") . 99170180) ((other "[2023-11-07" "Tue" "17:10]" "Example" "of" "how" "order" "of" "cmo" "files" "matter" "when" "compiling" "with" "ocamlopt") . 251597418) ((headline "[2023-11-07" "Tue" "17:10]" "Example" "of" "how" "order" "of" "cmo" "files" "matter" "when" "compiling" "with" "ocamlopt") . 251597418) ((other "[2023-11-07" "Tue" "17:33]" "The" "new" "-I" "+str" "while" "using" "ocamlopt" "with" "ocaml" "5") . 36360887) ((headline "[2023-11-07" "Tue" "17:33]" "The" "new" "-I" "+str" "while" "using" "ocamlopt" "with" "ocaml" "5") . 36360887) ((other "[2023-11-08" "Wed" "11:10]" "Go" "runtime" "is" "not" "aware" "of" "the" "CPU" "limits" "set" "on" "the" "docker" "container") . 127176001) ((headline "[2023-11-08" "Wed" "11:10]" "Go" "runtime" "is" "not" "aware" "of" "the" "CPU" "limits" "set" "on" "the" "docker" "container") . 127176001) ((other "[2023-11-09" "Thu" "10:01]" "Constant" "binary" "expressions" "in" "JS" "are" "usually" "unintentional" "and" "can" "be" "avoided") . 111119952) ((headline "[2023-11-09" "Thu" "10:01]" "Constant" "binary" "expressions" "in" "JS" "are" "usually" "unintentional" "and" "can" "be" "avoided") . 111119952) ((other "[2023-11-09" "Thu" "10:11]" "HTTP" "303" "redirect") . 136512101) ((headline "[2023-11-09" "Thu" "10:11]" "HTTP" "303" "redirect") . 136512101) ((other "[2023-11-09" "Thu" "22:52]" "Script" "to" "repeatedly" "run" "rtop" "and" "find" "missing" "runtime" "opam" "dependency" "and" "add" "it" "to" "esy.json") . 216757994) ((headline "[2023-11-09" "Thu" "22:52]" "Script" "to" "repeatedly" "run" "rtop" "and" "find" "missing" "runtime" "opam" "dependency" "and" "add" "it" "to" "esy.json") . 216757994) ((other "[2023-11-10" "Fri" "09:48]" "Edebug" "can" "be" "used" "to" "instrument" "elisp." "And" "likely," "to" "figure" "how" "undocumented" "elisp" "code" "works") . 99655025) ((headline "[2023-11-10" "Fri" "09:48]" "Edebug" "can" "be" "used" "to" "instrument" "elisp." "And" "likely," "to" "figure" "how" "undocumented" "elisp" "code" "works") . 99655025) ((other "[2023-11-10" "Fri" "16:42]" "Path" "resolution" "of" "a" "command" "can" "fail" "if" "the" "executable" "bit" "is" "unset") . 252457687) ((headline "[2023-11-10" "Fri" "16:42]" "Path" "resolution" "of" "a" "command" "can" "fail" "if" "the" "executable" "bit" "is" "unset") . 252457687) ((other "[2023-11-10" "Fri" "17:42]" "Opinion" "I" "agree" "with") . 76749695) ((headline "[2023-11-10" "Fri" "17:42]" "Opinion" "I" "agree" "with") . 76749695) ((other "[2023-11-12" "Sun" "17:38]" "ocaml" "-" "the" "toplevel" "command" "-" "doesn't" "have" "a" "-pp" "option") . 8288153) ((headline "[2023-11-12" "Sun" "17:38]" "ocaml" "-" "the" "toplevel" "command" "-" "doesn't" "have" "a" "-pp" "option") . 8288153) ((other "[2023-11-12" "Sun" "17:40]" "Command" "to" "compiler" "a" "single" "Reason" "file" "without" "Dune" "-" "ie." "with" "just" "the" "compiler") . 55852217) ((headline "[2023-11-12" "Sun" "17:40]" "Command" "to" "compiler" "a" "single" "Reason" "file" "without" "Dune" "-" "ie." "with" "just" "the" "compiler") . 55852217) ((other "[2023-11-13" "Mon" "15:33]" "Trunk" "OCaml" "compiler" "usually" "has" "bad" "tooling" "supports") . 156409897) ((headline "[2023-11-13" "Mon" "15:33]" "Trunk" "OCaml" "compiler" "usually" "has" "bad" "tooling" "supports") . 156409897)) :filter-final-output (org-publish--store-crossrefs org-publish-collect-index)))
  org-export-to-file(html "/Users/psac/development/prometheansacrifice/notes..." nil nil nil nil (:base-directory "~/development/prometheansacrifice/notes/" :publishing-directory "~/development/prometheansacrifice/notes/" :recursive t :publishing-function org-html-publish-to-html :crossrefs (((other "[2023-11-07" "Tue" "16:08]" "Compiling" "an" "OCaml" "module" "from" "another" "directory" "with" "ocamlopt") . 99170180) ((headline "[2023-11-07" "Tue" "16:08]" "Compiling" "an" "OCaml" "module" "from" "another" "directory" "with" "ocamlopt") . 99170180) ((other "[2023-11-07" "Tue" "17:10]" "Example" "of" "how" "order" "of" "cmo" "files" "matter" "when" "compiling" "with" "ocamlopt") . 251597418) ((headline "[2023-11-07" "Tue" "17:10]" "Example" "of" "how" "order" "of" "cmo" "files" "matter" "when" "compiling" "with" "ocamlopt") . 251597418) ((other "[2023-11-07" "Tue" "17:33]" "The" "new" "-I" "+str" "while" "using" "ocamlopt" "with" "ocaml" "5") . 36360887) ((headline "[2023-11-07" "Tue" "17:33]" "The" "new" "-I" "+str" "while" "using" "ocamlopt" "with" "ocaml" "5") . 36360887) ((other "[2023-11-08" "Wed" "11:10]" "Go" "runtime" "is" "not" "aware" "of" "the" "CPU" "limits" "set" "on" "the" "docker" "container") . 127176001) ((headline "[2023-11-08" "Wed" "11:10]" "Go" "runtime" "is" "not" "aware" "of" "the" "CPU" "limits" "set" "on" "the" "docker" "container") . 127176001) ((other "[2023-11-09" "Thu" "10:01]" "Constant" "binary" "expressions" "in" "JS" "are" "usually" "unintentional" "and" "can" "be" "avoided") . 111119952) ((headline "[2023-11-09" "Thu" "10:01]" "Constant" "binary" "expressions" "in" "JS" "are" "usually" "unintentional" "and" "can" "be" "avoided") . 111119952) ((other "[2023-11-09" "Thu" "10:11]" "HTTP" "303" "redirect") . 136512101) ((headline "[2023-11-09" "Thu" "10:11]" "HTTP" "303" "redirect") . 136512101) ((other "[2023-11-09" "Thu" "22:52]" "Script" "to" "repeatedly" "run" "rtop" "and" "find" "missing" "runtime" "opam" "dependency" "and" "add" "it" "to" "esy.json") . 216757994) ((headline "[2023-11-09" "Thu" "22:52]" "Script" "to" "repeatedly" "run" "rtop" "and" "find" "missing" "runtime" "opam" "dependency" "and" "add" "it" "to" "esy.json") . 216757994) ((other "[2023-11-10" "Fri" "09:48]" "Edebug" "can" "be" "used" "to" "instrument" "elisp." "And" "likely," "to" "figure" "how" "undocumented" "elisp" "code" "works") . 99655025) ((headline "[2023-11-10" "Fri" "09:48]" "Edebug" "can" "be" "used" "to" "instrument" "elisp." "And" "likely," "to" "figure" "how" "undocumented" "elisp" "code" "works") . 99655025) ((other "[2023-11-10" "Fri" "16:42]" "Path" "resolution" "of" "a" "command" "can" "fail" "if" "the" "executable" "bit" "is" "unset") . 252457687) ((headline "[2023-11-10" "Fri" "16:42]" "Path" "resolution" "of" "a" "command" "can" "fail" "if" "the" "executable" "bit" "is" "unset") . 252457687) ((other "[2023-11-10" "Fri" "17:42]" "Opinion" "I" "agree" "with") . 76749695) ((headline "[2023-11-10" "Fri" "17:42]" "Opinion" "I" "agree" "with") . 76749695) ((other "[2023-11-12" "Sun" "17:38]" "ocaml" "-" "the" "toplevel" "command" "-" "doesn't" "have" "a" "-pp" "option") . 8288153) ((headline "[2023-11-12" "Sun" "17:38]" "ocaml" "-" "the" "toplevel" "command" "-" "doesn't" "have" "a" "-pp" "option") . 8288153) ((other "[2023-11-12" "Sun" "17:40]" "Command" "to" "compiler" "a" "single" "Reason" "file" "without" "Dune" "-" "ie." "with" "just" "the" "compiler") . 55852217) ((headline "[2023-11-12" "Sun" "17:40]" "Command" "to" "compiler" "a" "single" "Reason" "file" "without" "Dune" "-" "ie." "with" "just" "the" "compiler") . 55852217) ((other "[2023-11-13" "Mon" "15:33]" "Trunk" "OCaml" "compiler" "usually" "has" "bad" "tooling" "supports") . 156409897) ((headline "[2023-11-13" "Mon" "15:33]" "Trunk" "OCaml" "compiler" "usually" "has" "bad" "tooling" "supports") . 156409897)) :filter-final-output (org-publish--store-crossrefs org-publish-collect-index)))
  org-publish-org-to(html "/Users/psac/development/prometheansacrifice/notes..." ".html" (:base-directory "~/development/prometheansacrifice/notes/" :publishing-directory "~/development/prometheansacrifice/notes/" :recursive t :publishing-function org-html-publish-to-html) "/Users/psac/development/prometheansacrifice/notes...")
  org-html-publish-to-html((:base-directory "~/development/prometheansacrifice/notes/" :publishing-directory "~/development/prometheansacrifice/notes/" :recursive t :publishing-function org-html-publish-to-html) "/Users/psac/development/prometheansacrifice/notes..." "/Users/psac/development/prometheansacrifice/notes...")
  org-publish-file("/Users/psac/development/prometheansacrifice/notes..." ("public-notes-org" :base-directory "~/development/prometheansacrifice/notes/" :publishing-directory "~/development/prometheansacrifice/notes/" :recursive t :publishing-function org-html-publish-to-html) t)
  org-publish-projects((("public-notes-org" :base-directory "~/development/prometheansacrifice/notes/" :publishing-directory "~/development/prometheansacrifice/notes/" :recursive t :publishing-function org-html-publish-to-html)))
  org-publish(("public-notes-org" :base-directory "~/development/prometheansacrifice/notes/" :publishing-directory "~/development/prometheansacrifice/notes/" :recursive t :publishing-function org-html-publish-to-html) nil nil)
  org-publish-current-project(nil nil)
  org-export-dispatch(nil)
  funcall-interactively(org-export-dispatch nil)
  god-mode-self-insert()
  funcall-interactively(god-mode-self-insert)
  command-execute(god-mode-self-insert)