emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG] ob-scheme: geiser command has changed [9.6 (9.6-??-86c4635 @ /home/zilti/.emacs.d/.local/straight/build-27.2/org/)]
@ 2022-10-18 19:41 Daniel Ziltener
  2022-10-19  4:21 ` Ihor Radchenko
  0 siblings, 1 reply; 3+ messages in thread
From: Daniel Ziltener @ 2022-10-18 19:41 UTC (permalink / raw)
  To: emacs-orgmode


[-- Attachment #1.1.1: Type: text/plain, Size: 31895 bytes --]



Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See

https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

The latest Geiser release 0.26 got rid of the "run-geiser" function. It
is sufficient to just replace the call to "run-geiser" with "geiser"
instead to make ob-scheme work again.

Emacs : GNU Emacs 27.2 (build 1, x86_64-suse-linux-gnu, GTK+ Version 
3.24.31, cairo version 1.16.0)
Package: Org mode version 9.6 (9.6-??-86c4635 @ 
/home/zilti/.emacs.d/.local/straight/build-27.2/org/)

current state:
==============
(setq
org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
org-fontify-whole-heading-line t
org-capture-prepare-finalize-hook '(org-roam-capture--install-finalize-h)
org-link-shell-confirm-function 'yes-or-no-p
org-mode-local-vars-hook '(+indent-guides-disable-maybe-h +org-init-gifs-h)
org-babel-after-execute-hook 
'(+org-redisplay-inline-images-in-babel-result-h)
org-insert-heading-respect-content t
org-after-refile-insert-hook '(save-buffer)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-roam-log-setup-hook '(org-roam--register-completion-functions-h)
org-follow-link-hook '(+nav-flash-delayed-blink-cursor-h)
org-roam-db-node-include-function '(closure (t) nil t)
org-persist-directory "/home/zilti/.emacs.d/.local/cacheorg/persist/"
org-refile-targets '((nil :maxlevel . 3) (org-agenda-files :maxlevel . 3))
org-html-format-inlinetask-function 
'org-html-format-inlinetask-default-function
org-enforce-todo-dependencies t
org-odt-format-headline-function 'org-odt-format-headline-default-function
org-special-ctrl-a/e t
org-imenu-depth 6
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-agenda-files '("~/org/")
org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
org-reveal-start-hook '(org-decrypt-entry)
org-modules '(ol-bibtex)
org-startup-folded nil
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-log-buffer-setup-hook '(org-roam-log--setup)
org-mode-hook '(er/add-org-mode-expansions 
+lookup--init-org-mode-handlers-h
(closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
(add-hook 'before-save-hook 'org-encrypt-entries nil t))
(closure
(org--rds reftex-docstruct-symbol org--single-lines-list-is-paragraph 
org-element-greater-elements
visual-fill-column-width org-clock-history org-agenda-current-date 
org-with-time org-defdecode org-def
org-read-date-inactive org-ans2 org-ans1 
org-columns-current-fmt-compiled org-clock-current-task org-clock-effort
org-agenda-skip-function org-agenda-skip-comment-trees 
org-agenda-archives-mode org-end-time-was-given
org-time-was-given org-log-note-extra org-log-note-purpose 
org-log-post-message org-last-inserted-timestamp
org-last-changed-timestamp org-entry-property-inherited-from 
org-blocked-by-checkboxes org-state
org-agenda-headline-snapshot-before-repeat org-agenda-buffer-name 
org-agenda-start-on-weekday
org-agenda-buffer-tmp-name org-priority-regexp org-mode-abbrev-table 
org-mode-syntax-table org-element-use-cache
org-element-cache-persistent buffer-face-mode-face org-tbl-menu 
org-org-menu org-struct-menu org-entities
org-last-state org-id-track-globally org-clock-start-time texmathp-why 
remember-data-file
org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist 
align-mode-rules-list org-emphasis-alist
org-emphasis-regexp-components org-export-registered-backends 
crm-separator org-babel-load-languages
org-id-overriding-file-name org-indent-indentation-per-level 
org-element--timestamp-regexp
org-element-cache-map-continue-from org-element-paragraph-separate 
org-agenda-buffer-name
org-inlinetask-min-level t)
nil (add-hook 'change-major-mode-hook 'org-fold-show-all 'append 'local))
(closure
(org-src-window-setup *this* org-babel-confirm-evaluate-answer-no 
org-babel-tangle-uncomment-comments
org-src-preserve-indentation org-src-lang-modes 
org-edit-src-content-indentation org-babel-library-of-babel t)
nil (add-hook 'change-major-mode-hook #'org-babel-show-result-all 
'append 'local))
org-babel-result-hide-spec org-babel-hide-all-hashes
(closure
(org-agenda-skip-regexp org-fold-core-style org-table1-hline-regexp 
org-table-tab-recognizes-table\.el
org-table-dataline-regexp org-table-any-border-regexp 
org-agenda-restriction-lock-overlay
org-agenda-overriding-restriction org-agenda-diary-file 
org-complex-heading-regexp calendar-mode-map t)
nil (setq imenu-create-index-function 'org-imenu-get-tree))
doom-disable-show-paren-mode-h doom-disable-show-trailing-whitespace-h 
+org-enable-auto-reformat-tables-h
+org-enable-auto-update-cookies-h +org-make-last-point-visible-h 
evil-org-mode toc-org-enable writegood-mode
flyspell-mode embrace-org-mode-hook org-eldoc-load)
org-clock-persist 'history
org-export-with-smart-quotes t
org-odt-format-drawer-function '(closure
(hfy-user-sheet-assoc hfy-html-quote-regex hfy-html-quote-map 
hfy-face-to-css
hfy-begin-span-handler hfy-end-span-handler archive-zip-extract
nxml-auto-insert-xml-declaration-flag t)
(_name contents) contents)
org-outline-path-complete-in-steps nil
org-archive-hook '(org-attach-archive-delete-maybe)
org-roam-capture-new-node-hook '(org-roam-capture--insert-captured-ref-h)
org-persist-before-read-hook '(org-element--cache-persist-before-read)
org-agenda-finalize-hook '(+org-exclude-agenda-buffers-from-workspace-h 
+org-defer-mode-in-agenda-buffers-h)
org-startup-indented t
org-clock-history-length 20
org-roam-db-gc-threshold 2305843009213693951
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-bibtex-headline-format-function '(closure (t) (entry) (cdr (assq 
:title entry)))
org-latex-format-drawer-function '(closure
(engrave-faces-latex-mathescape engrave-faces-current-preset-style
engrave-faces-latex-output-style t)
(_ contents) contents)
org-agenda-deadline-faces '((1.001 . error) (1.0 . org-warning) (0.5 . 
org-upcoming-deadline) (0.0 . org-upcoming-distant-deadline))
org-crypt-key nil
org-babel-pre-tangle-hook '(save-buffer)
org-file-apps '((remote . emacs) (auto-mode . emacs) (directory . emacs) 
("\\.mm\\'" . default) ("\\.x?html?\\'" . default)
("\\.pdf\\'" . default))
org-tab-first-hook '(+org-yas-expand-maybe-h +org-indent-maybe-h 
org-babel-hide-result-toggle-maybe org-babel-header-arg-expand
+org-clear-babel-results-h +org-cycle-only-current-subtree-h)
org-hide-leading-stars t
org-babel-load-languages '((scheme . t) (emacs-lisp . t))
org-roam-capture-preface-hook 
'(org-roam-dailies--override-capture-time-h 
org-roam-capture--try-capture-to-ref-h)
org-load-hook '(+org-init-org-directory-h +org-init-appearance-h 
+org-init-agenda-h +org-init-attachments-h +org-init-babel-h
+org-init-babel-lazy-loader-h +org-init-capture-defaults-h 
+org-init-capture-frame-h +org-init-custom-links-h
+org-init-export-h +org-init-habit-h +org-init-hacks-h 
+org-init-keybinds-h +org-init-popup-rules-h
+org-init-smartparens-h)
org-link-abbrev-alist '(("doomdir" . "/home/zilti/.config/doom/%s") 
("emacsdir" . "/home/zilti/.emacs.d/%s")
("doom-repo" . "https://github.com/doomemacs/doomemacs/%s")
("wolfram" . "https://wolframalpha.com/input/?i=%s") ("wikipedia" . 
"https://en.wikipedia.org/wiki/%s")
("duckduckgo" . "https://duckduckgo.com/?q=%s") ("gmap" . 
"https://maps.google.com/maps?q=%s")
("gimages" . "https://google.com/images?q=%s") ("google" . 
"https://google.com/search?q=")
("youtube" . "https://youtube.com/watch?v=%s") ("github" . 
"https://github.com/%s"))
org-export-backends '(md ascii html icalendar latex odt)
org-clock-in-resume t
org-ascii-format-drawer-function '(closure (t) (_name contents _width) 
contents)
org-attach-store-link-p t
org-cycle-tab-first-hook '(+org-yas-expand-maybe-h +org-indent-maybe-h 
org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand +org-clear-babel-results-h 
+org-cycle-only-current-subtree-h)
org-archive-subtree-save-file-p t
org-agenda-span 10
org-agenda-loop-over-headlines-in-active-region nil
org-src-lang-modes '(("php" . php) ("md" . markdown) ("C" . c) ("C++" . 
c++) ("asymptote" . asy) ("bash" . sh) ("beamer" . latex)
("calc" . fundamental) ("cpp" . c++) ("ditaa" . artist) ("desktop" . 
conf-desktop) ("dot" . fundamental)
("elisp" . emacs-lisp) ("ocaml" . tuareg) ("screen" . shell-script) 
("shell" . sh) ("sqlite" . sql)
("toml" . conf-toml))
org-src-preserve-indentation t
org-fontify-quote-and-verse-blocks t
org-roam-find-file-hook '(org-roam-buffer--setup-redisplay-h 
org-roam--register-completion-functions-h
org-roam--replace-roam-links-on-save-h 
org-roam-db-autosync--setup-update-on-save-h)
org-fold-core-isearch-open-function 'org-fold--isearch-reveal
org-occur-hook '(org-first-headline-recenter)
org-agenda-mode-hook '(+org-habit-resize-graph-h evil-org-agenda-mode)
org-agenda-window-setup 'current-window
org-fold-reveal-start-hook '(org-decrypt-entry)
org-roam-preview-function 'org-roam-preview-default-function
org-indirect-buffer-display 'current-window
org-cycle-hook '(org-cycle-hide-archived-subtrees 
org-cycle-show-empty-lines 
org-cycle-optimize-window-after-visibility-change)
org-todo-keywords '((sequence "TODO(t)" "PROJ(p)" "LOOP(r)" "STRT(s)" 
"WAIT(w)" "HOLD(h)" "IDEA(i)" "|" "DONE(d)" "KILL(k)")
(sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)") (sequence "|" 
"OKAY(o)" "YES(y)" "NO(n)"))
org-speed-command-hook '(org-speed-command-activate 
org-babel-speed-command-activate)
org-roam-node-annotation-function 'org-roam-node-read--annotation
org-tags-column 0
org-capture-mode-hook '(+org-show-target-in-capture-header-h 
evil-insert-state)
org-clock-persist-file "/home/zilti/.emacs.d/.local/etcorg-clock-save.el"
org-attach-id-dir "/home/zilti/org/.attach/"
org-roam-ui-browser-function 'browse-url
org-M-RET-may-split-line nil
org-odt-format-inlinetask-function 
'org-odt-format-inlinetask-default-function
org-latex-prefer-user-labels t
org-roam-ref-annotation-function 'org-roam-ref-read--annotation
org-publish-timestamp-directory 
"/home/zilti/.emacs.d/.local/cacheorg/timestamps/"
org-display-remote-inline-images 'download
org-refile-use-outline-path 'file
org-priority-faces '((65 . error) (66 . warning) (67 . success))
org-export-before-parsing-hook '(org-attach-expand-links)
org-font-lock-set-keywords-hook '(doom-themes-enable-org-fontification)
org-id-locations-file "/home/zilti/org/.orgids"
org-confirm-shell-link-function 'yes-or-no-p
org-link-parameters '(("bibtex" :follow org-bibtex-open :store 
org-bibtex-store-link) ("roam" :follow org-roam-link-follow-link)
("pdf" :follow
(closure ((args) (fn . org-pdftools-open) t) (&rest args)
(and (condition-case nil (progn (require 'org-pdftools nil t)) (error nil))
(file-executable-p pdf-info-epdfinfo-program) (apply fn args))
)
:complete
(closure ((args) (fn . org-pdftools-complete-link) t) (&rest args)
(and (condition-case nil (progn (require 'org-pdftools nil t)) (error nil))
(file-executable-p pdf-info-epdfinfo-program) (apply fn args))
)
:store
(closure ((args) (fn . org-pdftools-store-link) t) (&rest args)
(and (condition-case nil (progn (require 'org-pdftools nil t)) (error nil))
(file-executable-p pdf-info-epdfinfo-program) (apply fn args))
)
:export
(closure ((args) (fn . org-pdftools-export) t) (&rest args)
(and (condition-case nil (progn (require 'org-pdftools nil t)) (error nil))
(file-executable-p pdf-info-epdfinfo-program) (apply fn args))
)
)
("orgit-rev" :store orgit-rev-store :follow orgit-rev-open :export 
orgit-rev-export :complete
orgit-rev-complete-link)
("orgit-log" :store orgit-log-store :follow orgit-log-open :export 
orgit-log-export :complete
orgit-log-complete-link)
("orgit" :store orgit-status-store :follow orgit-status-open :export 
orgit-status-export :complete
orgit-status-complete-link)
("yt" :follow org-yt-follow :image-data-fun org-yt-image-data-fun) ("id" 
:follow org-roam-id-open)
("img" :image-data-fun +org-inline-image-data-fn)
("doom-changelog" :follow
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(link) (find-file (doom-path doom-docs-dir "changelog.org")) 
(org-match-sparse-tree nil link))
)
("doom-source" :follow
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(link) (user-error "-- %S %S %S" source url link)
(let*
((url
(let ((save-match-data-internal (match-data)))
(unwind-protect
(progn (and (string-match "^\\([^:]+\\):\\(.+\\)$" link) (cons 
(match-string 1) (match-string 2))))
(set-match-data save-match-data-internal 'evaporate))
)
)
(source
(if url (car-safe (prog1 url (setq url (cdr url))))
(signal 'wrong-number-of-arguments (list '(source . url) (length url))))
)
)
(cond ((equal source '"doom") (org-link-open (expand-file-name url 
doom-modules-dir)))
((equal source '"contrib")
(browse-url
(format "https://docs.doomemacs.org/modules/" (replace-regexp-in-string 
"::\\(.+\\)$" "#\\1" url)))
)
(t (user-error "%s is not a valid module source" source)))
)
)
)
("doom-user" :follow
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(link)
(browse-url (format "https://github.com/%s" (string-remove-prefix "@" 
(+org-link-read-desc-at-point link))))
)
:face
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(_) 'org-priority)
)
("doom-ref" :follow
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(link)
(let
((link (+org-link-read-desc-at-point link)) (url "https://github.com") 
(doom-repo "doomemacs/doomemacs"))
(let ((save-match-data-internal (match-data)))
(unwind-protect
(progn
(browse-url
(cond
((string-match "^\\([^/]+\\(?:/[^/]+\\)?\\)?#\\([0-9]+\\(?:#.*\\)?\\)" 
link)
(format "%s/%s/issues/%s" url (or (match-string 1 link) doom-repo) 
(match-string 2 link)))
((string-match 
"^\\([^/]+\\(?:/[^/]+\\)?@\\)?\\([a-z0-9]\\{7,\\}\\(?:#.*\\)?\\)" link)
(format "%s/%s/commit/%s" url (or (match-string 1 link) doom-repo) 
(match-string 2 link)))
((user-error "Invalid doom-ref link: %S" link)))
)
)
(set-match-data save-match-data-internal 'evaporate))
)
)
)
:face
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(link)
(let ((link (+org-link-read-desc-at-point link)))
(if
(or (string-match 
"^\\([^/]+\\(?:/[^/]+\\)?\\)?#\\([0-9]+\\(?:#.*\\)?\\)" link)
(string-match 
"^\\([^/]+\\(?:/[^/]+\\)?@\\)?\\([a-z0-9]\\{7,\\}\\(?:#.*\\)?\\)" link))
'org-link 'error)
)
)
)
("doom-module" :follow +org-link-follow-doom-module-fn :face 
+org-link--doom-module-link-face-fn :eldoc
(closure
((face . org-priority) (label . "Doom module") (-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
("doom-package" :follow +org-link-follow-doom-package-fn :face
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(_) '(:inherit org-priority :slant italic))
:eldoc
(closure
((face . org-priority) (label . "Doom package") (-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
("face" :follow
(closure ((fn . describe-face) (-call-interactively) t) (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
:face (font-lock-type-face underline))
("fn" :follow
(closure ((fn . helpful-callable) (-call-interactively) t) (path 
_prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
:face (font-lock-function-name-face underline))
("var" :follow
(closure ((fn . helpful-variable) (-call-interactively) t) (path 
_prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
:face (font-lock-variable-name-face underline))
("kbd" :follow
(closure
((old)
(vnew closure
((-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(label face)
#'(lambda (context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
(-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(_) (minibuffer-message "%s" (+org-display-link-in-eldoc-a)))
:help-echo +org-link-read-kbd-at-point :face help-key-binding :eldoc
(closure
((face . help-key-binding) (label . "Key sequence") (-eldoc-fn) (old)
(vnew closure ((-call-interactively) t) (fn)
#'(lambda (path _prefixarg)
(funcall fn (or (intern-soft path) (user-error "Can't find documentation 
for %S" path))))
)
(-call-interactively) t)
(context)
(format "%s %s" (propertize (format "%s:" label) 'face 'bold)
(propertize (+org-link-read-desc-at-point (org-element-property :path 
context) context) 'face face))
)
)
("doom-modules" :complete
(closure
((dir-fn closure ((plist) (dir-var . doom-modules-dir) (key . 
"doom-modules") t) nil (symbol-value dir-var))
(requires) (plist) (dir-var . doom-modules-dir) (key . "doom-modules") t)
nil (if requires (mapc #'require (ensure-list requires)))
(+org--relative-path (+org--read-link-path key (funcall dir-fn)) 
(funcall dir-fn)))
:follow
(closure
((dir-fn closure ((plist) (dir-var . doom-modules-dir) (key . 
"doom-modules") t) nil (symbol-value dir-var))
(requires) (plist) (dir-var . doom-modules-dir) (key . "doom-modules") t)
(link) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) 
nil))
:face
(closure
((dir-fn closure ((plist) (dir-var . doom-modules-dir) (key . 
"doom-modules") t) nil (symbol-value dir-var))
(requires) (plist) (dir-var . doom-modules-dir) (key . "doom-modules") t)
(link)
(let*
((path (expand-file-name link (funcall dir-fn))) (option-index 
(string-match-p "::\\(.*\\)\\'" path))
(file-name (substring path 0 option-index)))
(if (file-exists-p file-name) 'org-link 'error))
)
:requires nil)
("doom-docs" :complete
(closure
((dir-fn closure ((plist) (dir-var . doom-docs-dir) (key . "doom-docs") 
t) nil (symbol-value dir-var))
(requires) (plist) (dir-var . doom-docs-dir) (key . "doom-docs") t)
nil (if requires (mapc #'require (ensure-list requires)))
(+org--relative-path (+org--read-link-path key (funcall dir-fn)) 
(funcall dir-fn)))
:follow
(closure
((dir-fn closure ((plist) (dir-var . doom-docs-dir) (key . "doom-docs") 
t) nil (symbol-value dir-var))
(requires) (plist) (dir-var . doom-docs-dir) (key . "doom-docs") t)
(link) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) 
nil))
:face
(closure
((dir-fn closure ((plist) (dir-var . doom-docs-dir) (key . "doom-docs") 
t) nil (symbol-value dir-var))
(requires) (plist) (dir-var . doom-docs-dir) (key . "doom-docs") t)
(link)
(let*
((path (expand-file-name link (funcall dir-fn))) (option-index 
(string-match-p "::\\(.*\\)\\'" path))
(file-name (substring path 0 option-index)))
(if (file-exists-p file-name) 'org-link 'error))
)
:requires nil)
("doom" :complete
(closure
((dir-fn closure ((plist) (dir-var . doom-emacs-dir) (key . "doom") t) 
nil (symbol-value dir-var))
(requires) (plist) (dir-var . doom-emacs-dir) (key . "doom") t)
nil (if requires (mapc #'require (ensure-list requires)))
(+org--relative-path (+org--read-link-path key (funcall dir-fn)) 
(funcall dir-fn)))
:follow
(closure
((dir-fn closure ((plist) (dir-var . doom-emacs-dir) (key . "doom") t) 
nil (symbol-value dir-var))
(requires) (plist) (dir-var . doom-emacs-dir) (key . "doom") t)
(link) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) 
nil))
:face
(closure
((dir-fn closure ((plist) (dir-var . doom-emacs-dir) (key . "doom") t) 
nil (symbol-value dir-var))
(requires) (plist) (dir-var . doom-emacs-dir) (key . "doom") t)
(link)
(let*
((path (expand-file-name link (funcall dir-fn))) (option-index 
(string-match-p "::\\(.*\\)\\'" path))
(file-name (substring path 0 option-index)))
(if (file-exists-p file-name) 'org-link 'error))
)
:requires nil)
("org" :complete
(closure
((dir-fn closure ((plist) (dir-var . org-directory) (key . "org") t) nil 
(symbol-value dir-var)) (requires)
(plist) (dir-var . org-directory) (key . "org") t)
nil (if requires (mapc #'require (ensure-list requires)))
(+org--relative-path (+org--read-link-path key (funcall dir-fn)) 
(funcall dir-fn)))
:follow
(closure
((dir-fn closure ((plist) (dir-var . org-directory) (key . "org") t) nil 
(symbol-value dir-var)) (requires)
(plist) (dir-var . org-directory) (key . "org") t)
(link) (org-link-open-as-file (expand-file-name link (funcall dir-fn)) 
nil))
:face
(closure
((dir-fn closure ((plist) (dir-var . org-directory) (key . "org") t) nil 
(symbol-value dir-var)) (requires)
(plist) (dir-var . org-directory) (key . "org") t)
(link)
(let*
((path (expand-file-name link (funcall dir-fn))) (option-index 
(string-match-p "::\\(.*\\)\\'" path))
(file-name (substring path 0 option-index)))
(if (file-exists-p file-name) 'org-link 'error))
)
:requires nil)
("attachment" :image-data-fun +org-inline-image-data-fn :follow 
org-attach-follow :complete
org-attach-complete-link)
("file+sys") ("file+emacs") ("shell" :follow org-link--open-shell)
("news" :follow
(closure
((scheme . "news") (--dolist-tail--) org-ts-regexp 
org-time-stamp-formats org-src-source-file-name
org-outline-regexp-bol org-inhibit-startup org-id-link-to-org-use-id 
org-highlight-links
org-comment-string org-agenda-buffer-name 
clean-buffer-list-kill-buffer-names t)
(url arg) (browse-url (concat scheme ":" url) arg))
)
("mailto" :follow
(closure
((scheme . "mailto") (--dolist-tail--) org-ts-regexp 
org-time-stamp-formats org-src-source-file-name
org-outline-regexp-bol org-inhibit-startup org-id-link-to-org-use-id 
org-highlight-links
org-comment-string org-agenda-buffer-name 
clean-buffer-list-kill-buffer-names t)
(url arg) (browse-url (concat scheme ":" url) arg))
)
("https" :follow
(closure
((scheme . "https") (--dolist-tail--) org-ts-regexp 
org-time-stamp-formats org-src-source-file-name
org-outline-regexp-bol org-inhibit-startup org-id-link-to-org-use-id 
org-highlight-links
org-comment-string org-agenda-buffer-name 
clean-buffer-list-kill-buffer-names t)
(url arg) (browse-url (concat scheme ":" url) arg))
:image-data-fun +org-http-image-data-fn)
("http" :follow
(closure
((scheme . "http") (--dolist-tail--) org-ts-regexp 
org-time-stamp-formats org-src-source-file-name
org-outline-regexp-bol org-inhibit-startup org-id-link-to-org-use-id 
org-highlight-links
org-comment-string org-agenda-buffer-name 
clean-buffer-list-kill-buffer-names t)
(url arg) (browse-url (concat scheme ":" url) arg))
:image-data-fun +org-http-image-data-fn)
("ftp" :follow
(closure
((scheme . "ftp") (--dolist-tail--) org-ts-regexp org-time-stamp-formats 
org-src-source-file-name
org-outline-regexp-bol org-inhibit-startup org-id-link-to-org-use-id 
org-highlight-links
org-comment-string org-agenda-buffer-name 
clean-buffer-list-kill-buffer-names t)
(url arg) (browse-url (concat scheme ":" url) arg))
)
("help" :follow org-link--open-help :store org-link--store-help)
("file" :complete org-link-complete-file :face
(closure (t) (path)
(if (or (file-remote-p path) (if IS-WINDOWS (string-prefix-p "\\\\" 
path)) (file-exists-p path)) 'org-link
'(warning org-link))
)
)
("elisp" :follow org-link--open-elisp))
org-roam-indirect-buffer-hook '(org-roam--register-completion-functions-h)
org-latex-format-headline-function 
'org-latex-format-headline-default-function
org-capture-templates '(("t" "Personal todo" entry (file+headline 
+org-capture-todo-file "Inbox") "* [ ] %?\n%i\n%a" :prepend t)
("n" "Personal notes" entry (file+headline +org-capture-notes-file 
"Inbox") "* %u %?\n%i\n%a" :prepend t)
("j" "Journal" entry (file+olp+datetree +org-capture-journal-file) "* %U 
%?\n%i\n%a" :prepend t)
("p" "Templates for projects")
("pt" "Project-local todo" entry (file+headline 
+org-capture-project-todo-file "Inbox") "* TODO %?\n%i\n%a"
:prepend t)
("pn" "Project-local notes" entry (file+headline 
+org-capture-project-notes-file "Inbox") "* %U %?\n%i\n%a"
:prepend t)
("pc" "Project-local changelog" entry (file+headline 
+org-capture-project-changelog-file "Unreleased")
"* %U %?\n%i\n%a" :prepend t)
("o" "Centralized templates for projects")
("ot" "Project todo" entry #'+org-capture-central-project-todo-file "* 
TODO %?\n %i\n %a" :heading "Tasks"
:prepend nil)
("on" "Project notes" entry #'+org-capture-central-project-notes-file "* 
%U %?\n %i\n %a" :heading "Notes"
:prepend t)
("oc" "Project changelog" entry 
#'+org-capture-central-project-changelog-file "* %U %?\n %i\n %a" :heading
"Changelog" :prepend t)
)
org-link-translation-function 'toc-org-unhrefify
org-link-elisp-confirm-function nil
org-todo-keyword-faces '(("[-]" . +org-todo-active) ("STRT" . 
+org-todo-active) ("[?]" . +org-todo-onhold)
("WAIT" . +org-todo-onhold) ("HOLD" . +org-todo-onhold) ("PROJ" . 
+org-todo-project)
("NO" . +org-todo-cancel) ("KILL" . +org-todo-cancel))
org-roam-db-autosync-mode t
org-capture-after-finalize-hook '(+org-capture-cleanup-frame-h)
org-latex-format-inlinetask-function 
'org-latex-format-inlinetask-default-function
org-html-format-drawer-function '(closure
(htmlize-buffer-places org-html-format-table-no-css 
htmlize-css-name-prefix htmlize-output-type
htmlize-output-type htmlize-css-name-prefix t)
(_name contents) contents)
org-image-actual-width nil
org-roam-directory "/home/zilti/org/roam"
org-eldoc-breadcrumb-separator " → "
org-html-format-headline-function 
'org-html-format-headline-default-function
org-entities-user '(("flat" "\\flat" nil "" "" "266D" "♭") ("sharp" 
"\\sharp" nil "" "" "266F" "♯"))
org-src-window-setup 'other-window
org-clock-out-remove-zero-time-clocks t
org-confirm-babel-evaluate nil
org-use-sub-superscripts '{}
org-directory "~/org/"
org-preview-latex-image-directory 
"/home/zilti/.emacs.d/.local/cacheorg/latex/"
org-tags-exclude-from-inheritance '("crypt")
org-html-validation-link nil
org-attach-use-inheritance t
org-agenda-inhibit-startup t
org-agenda-start-on-weekday nil
org-default-notes-file "/home/zilti/org/notes.org"
org-id-locations-file-relative t
org-list-allow-alphabetical t
org-agenda-skip-unavailable-files t
)


[-- Attachment #1.1.2: OpenPGP public key --]
[-- Type: application/pgp-keys, Size: 1205 bytes --]

[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 236 bytes --]

^ permalink raw reply	[flat|nested] 3+ messages in thread
end of thread, other threads:[~2022-11-13 12:30 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2022-10-18 19:41 [BUG] ob-scheme: geiser command has changed [9.6 (9.6-??-86c4635 @ /home/zilti/.emacs.d/.local/straight/build-27.2/org/)] Daniel Ziltener
2022-10-19  4:21 ` Ihor Radchenko
2022-11-13 12:30   ` 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).