emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: "Nick Römer via General discussions about Org-mode." <emacs-orgmode@gnu.org>
To: emacs-orgmode@gnu.org
Subject: [BUG] error wholenump in org agenda on reschedule [9.6.1 (9.6.1-??-fe92a3c @ /data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)]
Date: Mon, 3 Jul 2023 20:06:08 +0200 (CEST)	[thread overview]
Message-ID: <4196e86e.19136.1891ceef131.Webtop.154@skynet.be> (raw)

[-- Attachment #1: Type: text/plain, Size: 76607 bytes --]



In org agenda view, on terminal Emacs version running in termux on my 
Samsung galaxy A10, I get an Error "wholenump -3" when selecting one or 
more TODOs with the "m" key and subsequently trying to reschedule using 
the key sequence "x s". However, if I zoom out a bit (using the pincer 
gesture) the error does not happen.

 
------------------------------------------------------------------------
Emacs  : GNU Emacs 28.3 (build 1, arm-unknown-linux-androideabi)
  of 2023-03-20
Package: Org mode version 9.6.1 (9.6.1-??-fe92a3c @ 
/data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)
current state:
==============
(setq
  org-tag-alist '(("work" . 119)
                  ("home" . 104)
                  ("internet" . 105)
                  ("renovation" . 114)
                  ("today" . 116)
                  ("vacances" . 118)
                  ("buy" . 98)
                  ("errands" . 101)
                  ("fiscal" . 102)
                  ("org" . 111)
                  ("Sonia" . 115)
                  ("phone" . 112)
                  ("django" . 100))
  org-insert-heading-respect-content t
  org-agenda-start-on-weekday nil
  org-persist-after-read-hook '(org-element--cache-persist-after-read)
  org-directory "~/org/"
  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-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-fontify-quote-and-verse-blocks t
  org-capture-after-finalize-hook '(+org-capture-cleanup-frame-h)
  org-id-locations-file "/data/data/com.termux/files/home/org/.orgids"
  org-attach-use-inheritance t
  outline-isearch-open-invisible-function 
'outline-isearch-open-invisible
  org-metaup-hook '(org-babel-load-in-session-maybe)
  org-roam-db-gc-threshold 536870911
  org-image-actual-width 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-agenda-span 10
  org-roam-directory "/data/data/com.termux/files/home/org/roam/"
  org-mode-local-vars-hook '(+org-init-gifs-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-init-roam-h)
  org-startup-folded nil
  org-babel-after-execute-hook 
'(+org-redisplay-inline-images-in-babel-result-h)
  org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
  org-agenda-inhibit-startup t
  org-export-before-parsing-hook '(org-attach-expand-links)
  org-attach-store-link-p 'attached
  org-special-ctrl-a/e t
  org-agenda-loop-over-headlines-in-active-region nil
  org-export-backends '(md ascii html
                        icalendar latex
                        odt)
  org-modules '(ol-bibtex)
  org-agenda-deadline-faces '((1.001 .
                               error)
                              (1.0 .
                               org-warning)
                              (0.5 .
                               org-upcoming-deadline)
                              (0.0 .
                               org-upcoming-distant-deadline)
                              )
  org-eldoc-breadcrumb-separator " → "
  org-clock-out-remove-zero-time-clocks t
  org-link-parameters '(("bibtex"
                         :follow
                         org-bibtex-open
                         :store
                         org-bibtex-store-link)
                        ("roam" :follow
                         org-roam-link-follow-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


 
((-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")
                   Emacs  : GNU Emacs 28.3 (build 1, 
arm-unknown-linux-androideabi)
  of 2023-03-20
Package: Org mode version 9.6.1 (9.6.1-??-fe92a3c @ 
/data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)
current state:
==============
(setq
  org-tag-alist '(("work" . 119)
                  ("home" . 104)
                  ("internet" . 105)
                  ("renovation" . 114)
                  ("today" . 116)
                  ("vacances" . 118)
                  ("buy" . 98)
                  ("errands" . 101)
                  ("fiscal" . 102)
                  ("org" . 111)
                  ("Sonia" . 115)
                  ("phone" . 112)
                  ("django" . 100))
  org-insert-heading-respect-content t
  org-agenda-start-on-weekday nil
  org-persist-after-read-hook '(org-element--cache-persist-after-read)
  org-directory "~/org/"
  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-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-fontify-quote-and-verse-blocks t
  org-capture-after-finalize-hook '(+org-capture-cleanup-frame-h)
  org-id-locations-file "/data/data/com.termux/files/home/org/.orgids"
  org-attach-use-inheritance t
  outline-isearch-open-invisible-function 
'outline-isearch-open-invisible
  org-metaup-hook '(org-babel-load-in-session-maybe)
  org-roam-db-gc-threshold 536870911
  org-image-actual-width 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-agenda-span 10
  org-roam-directory "/data/data/com.termux/files/home/org/roam/"
  org-mode-local-vars-hook '(+org-init-gifs-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-init-roam-h)
  org-startup-folded nil
  org-babel-after-execute-hook 
'(+org-redisplay-inline-images-in-babel-result-h)
  org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
  org-agenda-inhibit-startup t
  org-export-before-parsing-hook '(org-attach-expand-links)
  org-attach-store-link-p 'attached
  org-special-ctrl-a/e t
  org-agenda-loop-over-headlines-in-active-region nil
  org-export-backends '(md ascii html
                        icalendar latex
                        odt)
  org-modules '(ol-bibtex)
  org-agenda-deadline-faces '((1.001 .
                               error)
                              (1.0 .
                               org-warning)
                              (0.5 .
                               org-upcoming-deadline)
                              (0.0 .
                               org-upcoming-distant-deadline)
                              )
  org-eldoc-breadcrumb-separator " → "
  org-clock-out-remove-zero-time-clocks t
  org-link-parameters '(("bibtex"
                         :follow
                         org-bibtex-open
                         :store
                         org-bibtex-store-link)
                        ("roam" :follow
                         org-roam-link-follow-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


 
((-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-priority-faces '((65 . error)
                       (66 . warning)
                       (67 . success))
  org-outline-path-complete-in-steps nil
  org-crypt-key nil
  org-confirm-babel-evaluate nil
  org-clock-history-length 20
  org-capture-mode-hook '(+org-show-target-in-capture-header-h 
evil-insert-state)
  org-archive-hook '(org-attach-archive-delete-maybe)
  org-reveal-start-hook '(org-decrypt-entry)
  org-display-remote-inline-images 'download
  org-confirm-shell-link-function 'yes-or-no-p
  org-roam-node-template-prefixes '(("doom-type" . "@")
                                    ("doom-tags" . "#")
                                    ("tags" . "#")
                                    ("todo" . "t:")
                                    )
  org-capture-templates '(("t"
                           "Task Entry"
                           entry
                           (file+headline "todo.org" "Tasks")
                           "* TODO [#C] %? %i :web: \nSCHEDULED: %t\n" 
:kill-buffer t)
                          ("w"
                           "Work Task Entry"
                           entry
                           (file+headline "todo.org" "Work")
                           "* TODO [#C] %? %i :work: \nSCHEDULED: %t\n" 
:kill-buffer t)
                          ("b"
                           "Buy Task Entry"
                           entry
                           (file+headline "todo.org" "Tasks")
                           "* TODO [#C] %? %i :buy: \nSCHEDULED: %t\n" 
:kill-buffer t)
                          ("h"
                           "Home Task Entry"
                           entry
                           (file+headline "todo.org" "Tasks")
                           "* TODO [#C] %? %i :home: \nSCHEDULED: %t\n" 
:kill-buffer t)
                          )
  org-M-RET-may-split-line nil
  org-persist-before-write-hook 
'(org-element--cache-persist-before-write)
  org-roam-find-file-hook 
'(doom--setq-org-id-link-to-org-use-id-for-org-roam-find-file-h 
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-roam-enable-auto-backlinks-buffer-h)
  org-hide-emphasis-markers t
  org-link-abbrev-alist '(("doomdir" .
 
"/data/data/com.termux/files/home/.doom.d/%s")
                          ("emacsdir" .
 
"/data/data/com.termux/files/home/.config/emacs/%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-entities-user '(("flat" "\\flat"
                       nil "" "" "266D"
                       "♭")
                      ("sharp" "\\sharp"
                       nil "" "" "266F"
                       "♯")
                      )
  org-imenu-depth 6
  org-persist-before-read-hook '(org-element--cache-persist-before-read)
  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-metadown-hook '(org-babel-pop-to-session-maybe)
  org-clock-in-resume t
  org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
  org-tags-exclude-from-inheritance '("crypt")
  org-hide-leading-stars t
  org-src-preserve-indentation t
  org-roam-log-setup-hook '(org-roam--register-completion-functions-h)
  org-roam-ref-annotation-function 'org-roam-ref-read--annotation
  org-occur-hook '(org-first-headline-recenter)
  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-agenda-files '("/data/data/com.termux/files/home/org/eds.org" 
"/data/data/com.termux/files/home/org/appartement.org" 
"/data/data/com.termux/files/home/org/santé.org" 
"/data/data/com.termux/files/home/org/Italie 2023.org" 
"/data/data/com.termux/files/home/org/Paris2022.org" 
"/data/data/com.termux/files/home/org/annifsonia.org" 
"/data/data/com.termux/files/home/org/handicap.org" 
"/data/data/com.termux/files/home/org/finances.org" 
"/data/data/com.termux/files/home/org/passeport_DE.org" 
"/data/data/com.termux/files/home/org/auto.org" 
"/data/data/com.termux/files/home/org/fiddle.org" 
"/data/data/com.termux/files/home/org/maintenance.org" 
"/data/data/com.termux/files/home/org/piano.org" 
"/data/data/com.termux/files/home/org/react_native.org" 
"/data/data/com.termux/files/home/org/renovation.org" 
"/data/data/com.termux/files/home/org/todo.org")
  org-agenda-before-write-hook '(org-agenda-add-entry-text)
  org-link-shell-confirm-function 'yes-or-no-p
  org-agenda-mode-hook '(+org-habit-resize-graph-h evil-org-agenda-mode)
  org-startup-indented t
  org-roam-indirect-buffer-hook 
'(org-roam--register-completion-functions-h)
  org-agenda-prefix-format '((agenda .
                              "s")
                             (timeline .
                              "  % s")
                             (todo .
                              " %i %-12:c")
                             (tags .
                              " %i %-12:c")
                             )
  org-src-lang-modes '(("rust" . rustic)
                       ("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-roam-mode-hook '(+org-roam-detach-magit-section-mode-map-h 
turn-on-visual-line-mode)
  org-roam-db-node-include-function #[0 "\300\207" [t] 1]
  org-id-locations-file-relative t
  org-roam-db-autosync-mode t
  org-src-window-setup 'other-window
  org-clock-persist-file 
"/data/data/com.termux/files/home/.config/emacs/.local/etc/org-clock-save.el"
  org-preview-latex-image-directory 
"/data/data/com.termux/files/home/.config/emacs/.local/cache/org/latex/"
  org-roam-capture-preface-hook 
'(org-roam-capture--try-capture-to-ref-h)
  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-roam-list-files-commands '(fd
                                 fdfind
                                 rg find)
  org-babel-pre-tangle-hook '(save-buffer)
  org-indirect-buffer-display 'current-window
  org-tags-column 0
  org-persist-directory 
"/data/data/com.termux/files/home/.config/emacs/.local/cache/org/persist/"
  org-clock-persist 'history
  org-roam-capture-new-node-hook 
'(org-roam-capture--insert-captured-ref-h)
  org-capture-prepare-finalize-hook 
'(org-roam-capture--install-finalize-h)
  org-refile-use-outline-path 'file
  org-agenda-skip-unavailable-files t
  org-after-refile-insert-hook '(save-buffer)
  org-fold-reveal-start-hook '(org-decrypt-entry)
  org-fold-core-isearch-open-function 'org-fold--isearch-reveal
  org-fontify-whole-heading-line t
  org-attach-id-dir "/data/data/com.termux/files/home/org/.attach/"
  org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 
"\n\n(fn ENTRY)"]
  org-list-allow-alphabetical t
  org-agenda-window-setup 'current-window
  org-roam-preview-function 'org-roam-preview-default-function
  org-log-buffer-setup-hook '(org-roam-log--setup)
  org-default-notes-file 
"/data/data/com.termux/files/home/org/notes.org"
  org-archive-subtree-save-file-p t
  org-file-apps '((remote . emacs)
                  (auto-mode . emacs)
                  (directory . emacs)
                  ("\\.mm\\'" . default)
                  ("\\.x?html?\\'" .
                   default)
                  ("\\.pdf\\'" . default)
                  )
  org-font-lock-set-keywords-hook 
'(doom-themes-enable-org-fontification)
  org-speed-command-hook '(org-speed-command-activate 
org-babel-speed-command-activate)
  org-use-sub-superscripts '{}
  org-roam-completion-everywhere t
  org-refile-targets '((nil :maxlevel .
                        3)
                       (org-agenda-files
                        :maxlevel . 3)
                       )
  org-agenda-finalize-hook 
'(+org-exclude-agenda-buffers-from-workspace-h 
+org-defer-mode-in-agenda-buffers-h)
  org-enforce-todo-dependencies t
  org-roam-node-annotation-function 'org-roam-node-read--annotation
  org-link-elisp-confirm-function nil
  org-link-translation-function 'toc-org-unhrefify
  )

[-- Attachment #2: Type: text/html, Size: 174145 bytes --]

             reply	other threads:[~2023-07-04 12:26 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2023-07-03 18:06 Nick Römer via General discussions about Org-mode. [this message]
2023-07-04 12:29 ` [BUG] error wholenump in org agenda on reschedule [9.6.1 (9.6.1-??-fe92a3c @ /data/data/com.termux/files/home/.config/emacs/.local/straight/build-28.3/org/)] Ihor Radchenko
     [not found] <e8d406$4rf9kg@relay.proximus.be>
2023-07-04 16:38 ` Ihor Radchenko
     [not found] <ce9a33$4jv7eh@relay.proximus.be>
2023-07-05 13:15 ` Ihor Radchenko

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=4196e86e.19136.1891ceef131.Webtop.154@skynet.be \
    --to=emacs-orgmode@gnu.org \
    --cc=nick.romer@skynet.be \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
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).