* [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/)]
@ 2023-07-03 18:06 Nick Römer via General discussions about Org-mode.
2023-07-04 12:29 ` Ihor Radchenko
0 siblings, 1 reply; 4+ messages in thread
From: Nick Römer via General discussions about Org-mode. @ 2023-07-03 18:06 UTC (permalink / raw)
To: emacs-orgmode
[-- 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 --]
^ permalink raw reply [flat|nested] 4+ messages in thread* Re: [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/)]
2023-07-03 18:06 [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/)] Nick Römer via General discussions about Org-mode.
@ 2023-07-04 12:29 ` Ihor Radchenko
0 siblings, 0 replies; 4+ messages in thread
From: Ihor Radchenko @ 2023-07-04 12:29 UTC (permalink / raw)
To: Nick Römer; +Cc: emacs-orgmode
Nick Römer via "General discussions about Org-mode."
<emacs-orgmode@gnu.org> writes:
> 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.
May you share the backtrace? (after M-x toggle-debug-on-error)
--
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>
^ permalink raw reply [flat|nested] 4+ messages in thread* Re: [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/)]
[not found] <e8d406$4rf9kg@relay.proximus.be>
@ 2023-07-04 16:38 ` Ihor Radchenko
0 siblings, 0 replies; 4+ messages in thread
From: Ihor Radchenko @ 2023-07-04 16:38 UTC (permalink / raw)
To: Nick Römer; +Cc: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 288 bytes --]
[ Adding Org ML back to CC ]
Nick Römer <nick.romer@skynet.be> writes:
> Debugger entered--Lisp error: (wrong-type-argument wholenump -2)
> move-to-column(-2 t) org-move-to-column(-2 t)
> org-agenda-show-new-time ...
Thanks!
Does the attached patch solve the problem?
[-- Attachment #2: 0001-org-agenda-show-new-time-Fix-when-window-is-very-nar.patch --]
[-- Type: text/x-patch, Size: 1432 bytes --]
From cd7c52972ea93029278f462fb0240e49aaba4fa2 Mon Sep 17 00:00:00 2001
Message-ID: <cd7c52972ea93029278f462fb0240e49aaba4fa2.1688488637.git.yantar92@posteo.net>
From: Ihor Radchenko <yantar92@posteo.net>
Date: Tue, 4 Jul 2023 19:34:41 +0300
Subject: [PATCH] org-agenda-show-new-time: Fix when window is very narrow
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
* lisp/org-agenda.el (org-agenda-show-new-time): When window is
narrower than timestamp, do not try to display timestamps starting at
negative column.
Reported-by: Nick Römer <nick.romer@skynet.be>
Link: https://orgmode.org/list/4196e86e.19136.1891ceef131.Webtop.154@skynet.be
---
lisp/org-agenda.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 89c10403b..5594c7453 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -10100,8 +10100,10 @@ (defun org-agenda-show-new-time (marker stamp &optional prefix)
(line-end-position)
'(display nil))
(org-move-to-column
- (- (window-max-chars-per-line)
- (length stamp))
+ (min
+ 1 ;; narrow buffer and wide timestamp
+ (- (window-max-chars-per-line)
+ (length stamp)))
t)
(add-text-properties
(1- (point)) (line-end-position)
--
2.41.0
[-- Attachment #3: Type: text/plain, Size: 1795 bytes --]
> Debugger entered--Lisp error: (wrong-type-argument wholenump -2) move-to-column(-2 t) org-move-to-column(-2 t) org-agenda-show-new-time(#<marker (moves after insertion) at 554 in todo.org> "Scheduled to <2023-07-04 Tue>" " S") org-agenda-schedule(nil "2023-07-04") #f(compiled-function () #<bytecode 0x1d27617b>)() org-agenda-bulk-action(nil) funcall-interactively(org-agenda-bulk-action nil) call-interactively(org-agenda-bulk-action nil nil) command-execute(org-agenda-bulk-action)
> -------- Original message --------From: Ihor Radchenko <yantar92@posteo.net> Date: 04/07/23 14:29 (GMT+01:00) To: Nick Römer <nick.romer@skynet.be> Cc: emacs-orgmode@gnu.org Subject: Re: [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/)] Nick Römer via "General discussions about Org-mode."<emacs-orgmode@gnu.org> writes:> 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.May you share the backtrace? (after M-x toggle-debug-on-error)-- Ihor Radchenko // yantar92,Org mode contributor,Learn more about Org mode at <https://orgmode.org/>.Support Org development at <https://liberapay.com/org-mode>,or support my work at <https://liberapay.com/yantar92>
--
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>
^ permalink raw reply related [flat|nested] 4+ messages in thread* Re: [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/)]
[not found] <ce9a33$4jv7eh@relay.proximus.be>
@ 2023-07-05 13:15 ` Ihor Radchenko
0 siblings, 0 replies; 4+ messages in thread
From: Ihor Radchenko @ 2023-07-05 13:15 UTC (permalink / raw)
To: Nick Römer; +Cc: emacs-orgmode
Nick Römer <nick.romer@skynet.be> writes:
> Success! The error is gone.
Thanks for testing!
Applied.
Fixed, on main.
https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=7c6302e20
--
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>
^ permalink raw reply [flat|nested] 4+ messages in threadend of thread, other threads:[~2023-07-05 13:16 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2023-07-03 18:06 [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/)] Nick Römer via General discussions about Org-mode.
2023-07-04 12:29 ` 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
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.