all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [BUG] Babel Noweb and python name clashing [9.6.1 (9.6.1-??-fe92a3ced @ /var/home/kwalerie/.emacs.d/.local/straight/build-27.1/org/)]
@ 2023-04-21  0:12 Weaver Marquez
  2023-04-23 15:47 ` Ihor Radchenko
  0 siblings, 1 reply; 2+ messages in thread
From: Weaver Marquez @ 2023-04-21  0:12 UTC (permalink / raw)
  To: emacs-orgmode

Following the Worg documentation for python babel linked
[[here][https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-python.html]],
I had a lot of trouble with the =savefig= related examples.

Expected Behaviour:
The two code snippets below have the exact same code, except one has its
Babel name as =savefig=, which is a function name inside its code
block, and the other doesn't.

Not sure if this is a documented issue, but figured I should mention.

==---==

#+name: savefig
#+begin_src python :var filename="images/python-matplot-figure.png"
return f"plt.savefig('{filename}')\nreturn '{filename}'"
#+end_src

#+name: substitute
#+begin_src python :var filename="images/python-matplot-figure.png"
return f"plt.savefig('{filename}')\nreturn '{filename}'"
#+end_src

==---==
#+name: doesnt-work
#+begin_src python :noweb yes :results file
import matplotlib, numpy
import matplotlib.pyplot as plt
#matplotlib.use('Agg')

fig=plt.figure(figsize=(4,2))
x=numpy.linspace(-15,15)

plt.plot(numpy.sin(x)/x)
fig.tight_layout()
<<savefig("images/bluh4.png")>>
#+end_src

#+name: does-work
#+begin_src python :noweb yes :results file
import matplotlib, numpy
import matplotlib.pyplot as plt
#matplotlib.use('Agg')

fig=plt.figure(figsize=(4,2))
x=numpy.linspace(-15,15)

plt.plot(numpy.sin(x)/x)
fig.tight_layout()

<<substitute("images/bluh5.png")>>
#+end_src


Emacs  : GNU Emacs 27.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version
3.24.30, cairo version 1.16.0)
 of 2022-01-24, modified by Debian
Package: Org mode version 9.6.1 (9.6.1-??-fe92a3ced @
/var/home/kwalerie/.emacs.d/.local/straight/build-27.1/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-link-shell-confirm-function 'yes-or-no-p
 org-mode-local-vars-hook '(+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-follow-link-hook '(+nav-flash-delayed-blink-cursor-h)
 org-persist-directory "/var/home/kwalerie/.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 '("/var/home/kwalerie/org/todo.org"
"/var/home/kwalerie/org/2023-02-06-healthsci.org"
"/var/home/kwalerie/org/battery.org"
                    "/var/home/kwalerie/org/draft.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-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))
                 #[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]
                 doom-disable-show-paren-mode-h
doom-disable-show-trailing-whitespace-h +org-make-last-point-visible-h
evil-org-mode toc-org-enable
                 embrace-org-mode-hook org-eldoc-load)
 org-clock-persist 'history
 org-export-with-smart-quotes t
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-outline-path-complete-in-steps nil
 org-archive-hook '(org-attach-archive-delete-maybe)
 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-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 #[257 "\300\236A\207" [:title] 3
"\n\n(fn ENTRY)"]
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ 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 '((:noweb . t) (text . t) (nil . t) (python3
. t) (python . t) (emacs-lisp . t))
 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" . "/var/home/kwalerie/.doom.d/%s")
("emacsdir" . "/var/home/kwalerie/.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 #[771 "\207" [] 4 "\n\n(fn NAME
CONTENTS WIDTH)"]
 org-attach-store-link-p 'attached
 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-babel-python-command "python3"
 org-agenda-loop-over-headlines-in-active-region nil
 org-src-lang-modes '(("jupyter-R" . R) ("jupyter-julia" . julia)
("jupyter-python" . python) ("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-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-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-cycle-display-inline-images)
 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-tags-column 0
 org-capture-mode-hook '(+org-show-target-in-capture-header-h evil-insert-state)
 org-clock-persist-file
"/var/home/kwalerie/.emacs.d/.local/etcorg-clock-save.el"
 org-attach-id-dir "/var/home/kwalerie/org/.attach/"
 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-babel-tangle-lang-exts '(("python" . "py") ("emacs-lisp" . "el")
("elisp" . "el"))
 org-publish-timestamp-directory
"/var/home/kwalerie/.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 "/var/home/kwalerie/org/.orgids"
 org-confirm-shell-link-function 'yes-or-no-p
 org-link-parameters '(("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link)
                       ("download" :complete
                        (closure
                         ((dir-fn closure (t) nil (or
org-download-image-dir org-attach-id-dir ".")) (requires .
org-download)
                          (plist :image-data-fun
+org-image-file-data-fn :requires nil)
                          (dir-var closure (t) nil (or
org-download-image-dir org-attach-id-dir ".")) (key . "download") 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 (t) nil (or
org-download-image-dir org-attach-id-dir ".")) (requires .
org-download)
                          (plist :image-data-fun
+org-image-file-data-fn :requires nil)
                          (dir-var closure (t) nil (or
org-download-image-dir org-attach-id-dir ".")) (key . "download") t)
                         (link) (org-link-open-as-file
(expand-file-name link (funcall dir-fn)) nil))
                        :face
                        (closure
                         ((dir-fn closure (t) nil (or
org-download-image-dir org-attach-id-dir ".")) (requires .
org-download)
                          (plist :image-data-fun
+org-image-file-data-fn :requires nil)
                          (dir-var closure (t) nil (or
org-download-image-dir org-attach-id-dir ".")) (key . "download") 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))
                         )
                        :image-data-fun +org-image-file-data-fn :requires nil)
                       ("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))
                         )
                        )
                       ("denote" :follow denote-link-ol-follow :face
denote-faces-link :complete denote-link-ol-complete :store
denote-link-ol-store
                        :export denote-link-ol-export)
                       ("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-id-open)
                       ("img" :image-data-fun +org-inline-image-data-fn)
                       ("doom-changelog" :follow
                        (closure
                         ((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-user" :follow
                        (closure
                         ((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 ((-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 ((-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 ((-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-executable" :activate-func
+org-link--doom-executable-link-activate-fn :help-echo
                        +org-link-doom--help-echo-from-textprop :face
org-verbatim)
                       ("doom-module" :follow
+org-link-follow-doom-module-fn :activate-func
+org-link--doom-module-link-activate-fn :face
                        +org-link--doom-module-link-face-fn :help-echo
+org-link-doom--help-echo-from-textprop)
                       ("doom-package" :follow
+org-link-follow-doom-package-fn :activate-func
+org-link--doom-package-link-activate-fn :face
                        (closure
                         ((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))
                        :help-echo +org-link-doom--help-echo-from-textprop)
                       ("cmd" :follow
                        (closure ((fn . describe-command)
(-call-interactively) t) (path _prefixarg)
                         (funcall fn (or (intern-soft path)
(user-error "Can't find documentation for %S" path))))
                        :activate-func
+org-link--command-link-activate-command :face help-key-binding
:help-echo
                        +org-link-doom--help-echo-from-textprop)
                       ("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))))
                        :activate-func
+org-link--face-link-activate-face :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))))
                        :activate-func +org-link--fn-link-activate-fn
:face org-code)
                       ("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))))
                        :activate-func +org-link--var-link-activate-fn
:face org-code)
                       ("kbd" :follow
                        (closure
                         ((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)
                         (ev) (interactive "e")
                         (minibuffer-message "%s"
(+org-link-doom--help-echo-from-textprop nil (current-buffer)
(posn-point (event-start ev)))))
                        :help-echo
+org-link-doom--help-echo-from-textprop :face help-key-binding)
                       ("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 #[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)"] :image-data-fun
                        +org-http-image-data-fn)
                       ("http" :follow #[514 "\301\300\302Q\"\207"
["http" browse-url ":"] 6 "\n\n(fn URL ARG)"] :image-data-fun
                        +org-http-image-data-fn)
                       ("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 :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-latex-format-headline-function 'org-latex-format-headline-default-function
 org-capture-templates '(("n" "New note (with denote.el)" plain (file
denote-last-path) #'denote-org-capture :no-save t :immediate-finish
nil
                          :kill-buffer t :jump-to-captured t)
                         ("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-capture-after-finalize-hook
'(denote-org-capture-delete-empty-file +org-capture-cleanup-frame-h)
 org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-image-actual-width nil
 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
"/var/home/kwalerie/.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 "/var/home/kwalerie/org/notes.org"
 org-id-locations-file-relative t
 org-list-allow-alphabetical t
 org-agenda-skip-unavailable-files t
 )


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

end of thread, other threads:[~2023-04-23 18:16 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2023-04-21  0:12 [BUG] Babel Noweb and python name clashing [9.6.1 (9.6.1-??-fe92a3ced @ /var/home/kwalerie/.emacs.d/.local/straight/build-27.1/org/)] Weaver Marquez
2023-04-23 15:47 ` Ihor Radchenko

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.