Hello Org Mode,
I expected to replace a string ("selector" by "creditor") in this
section while narrowing is active:
┌────
│ **** creditor.js
│ :PROPERTIES:
│ :header-args+: :tangle _application/frontend/js/creditor.js
│ :ID: f6253a98-8377-4033-9dab-1e63ec80420d
│ :END:
│
│ ***** dependencies
│
│ #+begin_src js
│ import { css, html } from "lit";
│ import { Message } from "/message";
│ import { Actor } from "/actor";
│ import { assert } from "/tools";
│ import { Widget } from "/widget";
│ import { protocol } from "/proto";
│ #+end_src
│
│ ***** tag
│
│ #+begin_src js
│ const tag = "x-creditor";
│ #+end_src
│
│ ***** mk_actor
│
│ #+begin_src js
│ const mk_actor = () => Actor.mk(init);
│ #+end_src
│
│ ****** init
│
│ #+begin_src js
│ const init = function ({ options }, from) {
│ const selected = options.length > 0 ? options[0][0] : null;
│ return [this, membrane, { options, selected }, eq];
│ };
│ #+end_src
│
│ ****** eq
│
│ #+begin_src js
│ const eq = ({ selected: before }, { selected: after }) => before === after;
│ #+end_src
│
│ ****** membrane
│
│ #+begin_src js
│ const membrane = function (msg, membrane, state, eq) {
│ const { options, selected } = state;
│
│ if (protocol.is_set(msg)) {
│ const { data: selected } = Message.struct(msg);
│ return [this, membrane, { options, selected }, eq];
│ }
│
│ if (protocol.is_read(msg)) {
│ return [{ selected }, membrane, state, eq];
│ }
│
│ assert(`Unexpected message: ${msg}`, false);
│ };
│ #+end_src
│
│ ***** render
│
│ #+begin_src js
│ const option_html = function (selected, [id, name]) {
│ return html`<li @click=${() => protocol.set(this, id)} ?selected=${id ===
selected} id="${id}">${name}</li>`;
│ };
│ const options_html = function (selected, options) {
│ return options.map((option) => option_html.call(this, selected, option));
│ };
│ const render = function ({ selected, options }) {
│ return html`
│ <ul>
│ ${options_html.call(this, selected, options)}
│ </ul>
│ `;
│ };
│ #+end_src
│
│ ***** style_map
│
│ #+begin_src js
│ const style_map = ({ font_color_highlight, font_color_highlight_soft }) => ({
│ "--font-color-highlight-soft": font_color_highlight_soft,
│ "--font-color-highlight": font_color_highlight,
│ });
│ #+end_src
│
│ ***** styles
│
│ #+begin_src js
│ const styles = [
│ css`
│ :host {
│ ul {
│ list-style-type: none;
│ padding: 0;
│ margin: 0;
│
│ li {
│ padding: 0 1ch;
│ cursor: pointer;
│ text-transform: capitalize;
│ }
│ li[selected],
│ li[selected]:hover {
│ background-color: var(--font-color-highlight);
│ }
│ li:hover {
│ background-color: var(--font-color-highlight-soft);
│ }
│ }
│ }
│ `,
│ ];
│ #+end_src
│
│ ***** export
│
│ #+begin_src js
│ const Creditor = Widget.mk(mk_actor, tag, render, styles, style_map);
│ export { Creditor };
│ #+end_src
│
│ ***** TODO ■
│
└────
But I've got this backtrace instead:
┌────
│ ⛔ Warning (org-element): org-element--cache: Org parser error in
maquette.org::65212. Resetting.
│ The error was: (wrong-type-argument integer-or-marker-p nil)
│ Backtrace:
│ " backtrace-to-string(nil)
│ org-element-at-point()
│ org-back-to-heading(t)
│ org-fold-heading(nil)
│ org-fold-show-set-visibility(lineage)
│ org-fold-show-context(isearch)
│ org-fold--isearch-reveal(67859)
│ org-fold-core--isearch-show(#<overlay in no buffer>)
│ isearch-open-necessary-overlays(#<overlay in no buffer>)
│ #<subr isearch-clean-overlays>()
│ isearch-clean-overlays@magit-mode(#<subr isearch-clean-overlays>)
│ apply(isearch-clean-overlays@magit-mode #<subr isearch-clean-overlays> nil)
│ isearch-clean-overlays()
│ replace-dehighlight()
│ #f(compiled-function () #<bytecode 0x19a5ff5019ff0a5c>)()
│ perform-replace(\"selector\" \"creditor\" t nil nil nil nil nil nil nil nil)
│ query-replace(\"selector\" \"creditor\" nil nil nil nil nil)
│ funcall-interactively(query-replace \"selector\" \"creditor\" nil nil nil
nil nil)
│ command-execute(query-replace)
│ "
│ Please report this to Org mode mailing list (M-x org-submit-bug-report).
└────
Emacs : GNU Emacs 29.4 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.43,
cairo version 1.18.2)
Package: Org mode version 9.7.20 (N/A @
/gnu/store/nbqz4xh45yvlpw9dqqfpxp82v0f82vk4-emacs-org-9.7.20/share/emacs/site-lisp/org-9.7.20/)
current state:
`============'
(setq
org-agenda-prefix-format '((agenda . " %-12t %-18:c %s") (todo . " %i %-12:c")
(tags . " %i %-12:c") (search . " %i %-12:c"))
org-link-elisp-confirm-function 'yes-or-no-p
org-link-keep-stored-after-insertion t
org-hide-emphasis-markers t
org-bibtex-headline-format-function 'org-bibtex-headline-format-default
org-pomodoro-long-break-sound "/home/phf/.emacs.d/sounds/braam-braamamma.wav"
org-columns-default-format-for-agenda "%SCHEDULED %CATEGORY %TODO %ITEM
%Effort(Effort){:}"
org-log-into-drawer t
org-startup-folded 'show2levels
org-persist-after-read-hook '(org-element–cache-persist-after-read)
org-export-before-parsing-hook '(org-attach-expand-links)
org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-pomodoro-short-break-sound "/home/phf/.emacs.d/sounds/braam-braamamma.wav"
org-archive-hook '(org-attach-archive-delete-maybe)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines
org-cycle-optimize-window-after-visibility-change
org-cycle-display-inline-images)
org-persist-before-read-hook '(org-element–cache-persist-before-read)
org-yank-image-file-name-function 'org-yank-image-autogen-filename
org-link-from-user-regexp "\\<phf@pc1\\>\\|\\<Pierre-Henry Frohring\\>"
org-babel-post-tangle-hook '(user–org-remove-property-drawers)
org-mode-hook '(er/add-org-mode-expansions
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-fold-show-all append
local] 5]
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-babel-show-result-all
append local]
5]
org-babel-result-hide-spec org-babel-hide-all-hashes
#[0 "\301\211\207" [imenu-create-index-function
org-imenu-get-tree] 2])
org-babel-load-languages '((emacs-lisp . t) (C . t) (css . t) (shell . t)
(lisp . t)
(scheme . t) (dot . t) (awk . t) (R . t) (python .
t) (js . t))
org-agenda-time-grid '((daily today require-timed) (600 2400) " ┄┄┄┄┄ "
"┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄")
org-agenda-span 'day
org-ellipsis " "
org-pomodoro-long-break-length 15
org-pomodoro-overtime-sound
"/gnu/store/amcjfz7k1vk4j9a6v9jhyj134sh0kb6z-emacs-org-pomodoro-2.1.0-1.aa07c11/share/emacs/site-lisp/org-pomodoro-2.1.0-1.aa07c11/resources/bell.wav"
org-confirm-shell-link-function 'yes-or-no-p
outline-isearch-open-invisible-function 'outline-isearch-open-invisible
org-agenda-sorting-strategy '(time-up todo-state-down priority-down)
org-startup-indented t
org-sort-function 'string-collate-lessp
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-src-preserve-indentation t
org-babel-tangle-lang-exts '(("python" . "py") ("awk" . "awk") ("lisp" .
"lisp")
("D" . "d") ("C++" . "cpp") ("emacs-lisp" . "el")
("elisp" . "el"))
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-confirm-elisp-link-function 'yes-or-no-p
org-pomodoro-ticking-sound
"/gnu/store/amcjfz7k1vk4j9a6v9jhyj134sh0kb6z-emacs-org-pomodoro-2.1.0-1.aa07c11/share/emacs/site-lisp/org-pomodoro-2.1.0-1.aa07c11/resources/tick.wav"
org-hide-leading-stars t
org-todo-keywords '((sequence "TODO(t)" "WAITING(w)" "|" "DONE(d)" "FAILED(f)"
"CANCELED(c)")
)
org-id-link-to-org-use-id t
org–warnings '("org-element–cache: Org parser error in maquette.org::65212.
Resetting.\n The error was: (wrong-type-argument integer-or-marker-p nil)\n
Backtrace:\n\" backtrace-to-string(nil)\n org-element-at-point()\n
org-back-to-heading(t)\n org-fold-heading(nil)\n
org-fold-show-set-visibility(lineage)\n org-fold-show-context(isearch)\n
org-fold–isearch-reveal(67859)\n org-fold-core–isearch-show(#<overlay in no
buffer>)\n isearch-open-necessary-overlays(#<overlay in no buffer>)\n #<subr
isearch-clean-overlays>()\n isearch-clean-overlays@magit-mode(#<subr
isearch-clean-overlays>)\n apply(isearch-clean-overlays@magit-mode #<subr
isearch-clean-overlays> nil)\n isearch-clean-overlays()\n
replace-dehighlight()\n #f(compiled-function () #<bytecode
0x19a5ff5019ff0a5c>)()\n perform-replace(\\\"selector\\\" \\\"creditor\\\" t
nil nil nil nil nil nil nil nil)\n query-replace(\\\"selector\\\"
\\\"creditor\\\" nil nil nil nil nil)\n funcall-interactively(query-replace
\\\"selector\\\" \\\"creditor\\\" nil nil nil nil nil)\n
command-execute(query-replace)\n\"\n Please report this to Org mode mailing
list (M-x org-submit-bug-report).")
org-deadline-warning-days 1
org-pomodoro-keep-killed-pomodoro-time t
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-pomodoro-long-break-frequency 3
org-pomodoro-finished-sound
"/home/phf/.emacs.d/sounds/short-sad_little_sonar.wav"
org-fold-core-isearch-open-function 'org-fold–isearch-reveal
org-persist-before-write-hook '(org-element–cache-persist-before-write)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-link-shell-confirm-function 'yes-or-no-p
org-babel-pre-tangle-hook '(save-buffer)
org-agenda-loop-over-headlines-in-active-region nil
org-todo-keyword-faces '(("TODO" :foreground "red" :family "JetBrains Mono"
:height 0.9)
("WAITING" :foreground "orange" :family "JetBrains
Mono" :height
0.9)
("FAILED" :foreground "purple" :family "JetBrains
Mono" :height
0.9)
("DONE" :foreground "green" :family "JetBrains Mono"
:height 0.9)
("CANCELED" :foreground "grey" :family "JetBrains
Mono" :height
0.9)
)
org-occur-hook '(org-first-headline-recenter)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-parameters '(("attachment" :follow org-attach-follow :complete
org-attach-complete-link)
("eww" :follow org-eww-open :store org-eww-store-link)
("rmail" :follow org-rmail-open :store
org-rmail-store-link)
("mhe" :follow org-mhe-open :store org-mhe-store-link)
("irc" :follow org-irc-visit :store org-irc-store-link
:export
org-irc-export)
("info" :follow org-info-open :export org-info-export
:store
org-info-store-link :insert-description
org-info-description-as-command)
("gnus" :follow org-gnus-open :store org-gnus-store-link)
("docview" :follow org-docview-open :export
org-docview-export :store
org-docview-store-link)
("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link)
("bbdb" :follow org-bbdb-open :export org-bbdb-export
:complete
org-bbdb-complete-link :store org-bbdb-store-link)
("w3m" :store org-w3m-store-link)
("doi" :follow org-link-doi-open :export
org-link-doi-export)
("mu4e" :follow mu4e-org-open :store mu4e-org-store-link)
("id" :follow org-id-open :store org-id-store-link-maybe)
("treemacs" :store treemacs-store-org-link) ("file+sys")
("file+emacs") ("shell" :follow org-link–open-shell)
("news" :follow
#[514 "\301\300\302Q\"\207" ["news" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("mailto" :follow
#[514 "\301\300\302Q\"\207" ["mailto" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("https" :follow
#[514 "\301\300\302Q\"\207" ["https" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("http" :follow
#[514 "\301\300\302Q\"\207" ["http" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("ftp" :follow
#[514 "\301\300\302Q\"\207" ["ftp" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("help" :follow org-link–open-help :store
org-link–store-help)
("file" :complete org-link-complete-file)
("elisp" :follow org-link–open-elisp))
org-metaup-hook '(org-babel-load-in-session-maybe)
org-pomodoro-length 60
org-imenu-depth 100
org-pomodoro-start-sound "/home/phf/.emacs.d/sounds/braam-braamamma.wav"
org-src-lang-modes '(("heex" . heex-ts) ("json" . js-ts) ("js" . js-ts) ("C" .
c)
("C++" . c++) ("asymptote" . asy) ("beamer" . latex)
("calc" . fundamental) ("cpp" . c++) ("ditaa" . artist)
("desktop" . conf-desktop) ("dot" . fundamental)
("elisp" . emacs-lisp) ("ocaml" . tuareg) ("screen" .
shell-script)
("sqlite" . sql) ("toml" . conf-toml) ("shell" . sh)
("ash" . sh)
("sh" . sh) ("bash" . sh) ("jsh" . sh) ("bash2" . sh)
("dash" . sh)
("dtksh" . sh) ("ksh" . sh) ("es" . sh) ("rc" . sh)
("itcsh" . sh)
("tcsh" . sh) ("jcsh" . sh) ("csh" . sh) ("ksh88" . sh)
("oash" . sh)
("pdksh" . sh) ("mksh" . sh) ("posix" . sh) ("wksh" . sh)
("wsh" . sh)
("zsh" . sh) ("rpm" . sh))
org-agenda-show-future-repeats 'next
org-agenda-current-time-string "now - - - - - - - - - - - - - - - - - - - - -
- - - -"
org-agenda-block-separator 61
)
–
Pierre-Henry FRÖHRING
signature.asc
Description: PGP signature
