* [BUG] Evaluating org-class throws a void-variable error [9.6 (9.6-??-0c9b30e96 @ ~/.emacs.d/.local/straight/build-27.2/org/)]
@ 2022-01-16 18:09 Giorgi Gvalia
2022-01-17 11:20 ` Ihor Radchenko
0 siblings, 1 reply; 3+ messages in thread
From: Giorgi Gvalia @ 2022-01-16 18:09 UTC (permalink / raw)
To: emacs-orgmode@gnu.org
Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See
https://orgmode.org/manual/Feedback.html#Feedback
Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------
Excuse the potential bad formatting, I am new to sending bug reports like this.
When using the string `<%%(org-class 2022 1 17 2022 5 7 1 17 19)>` to schedule an item, I was expecting for it to build occurences accordingly. Instead I received the error "Not an Org time string: %%(org-class 2022 1 17 2022 5 7 1 17 19)". I then tried to evalute the org-class expression by itself and received the following error: "Symbol's value as variable is void: date". Looking at the source code, I see that there is a variable "date" that is defined on line 5950 of org-agenda.el and subsequently used to define the variable "d" in the let block. Unfortunately, I'm not able to ascertain where the value of this variable should be acquired from.
Here is the backtrace of the eval I performed:
Debugger entered--Lisp error: (void-variable date)
(calendar-absolute-from-gregorian date)
(let* ((date1 (calendar-absolute-from-gregorian (list m1 d1 y1))) (date2 (calendar-absolute-from-gregorian (list m2 d2 y2))) (d (calendar-absolute-from-gregorian date)) (h (if skip-weeks (progn (calendar-check-holidays date))))) (and (<= date1 d) (<= d date2) (= (calendar-day-of-week date) dayname) (or (not skip-weeks) (progn (require 'cal-iso) (not (member (car (calendar-iso-from-absolute d)) skip-weeks)))) (not (or (and h (memq 'holidays skip-weeks)) (delq nil (mapcar #'(lambda ... ...) h)))) entry))
org-class(2022 1 17 2022 5 7 1 17 19)
(progn (org-class 2022 1 17 2022 5 7 1 17 19))
eval((progn (org-class 2022 1 17 2022 5 7 1 17 19)) nil)
(let ((buffer-file-name (buffer-file-name (buffer-base-buffer))) (doom--current-module (condition-case nil (progn (doom-module-from-path buffer-file-name)) (error nil))) (debug-on-error t)) (eval (read (format "(progn %s)" (buffer-substring-no-properties beg end))) lexical-binding))
(let ((result (let ((buffer-file-name (buffer-file-name (buffer-base-buffer))) (doom--current-module (condition-case nil (progn ...) (error nil))) (debug-on-error t)) (eval (read (format "(progn %s)" (buffer-substring-no-properties beg end))) lexical-binding)))) (require 'pp) (replace-regexp-in-string "\\\\n" "\n" (pp-to-string result)))
(condition-case e (let ((result (let ((buffer-file-name (buffer-file-name ...)) (doom--current-module (condition-case nil ... ...)) (debug-on-error t)) (eval (read (format "(progn %s)" ...)) lexical-binding)))) (require 'pp) (replace-regexp-in-string "\\\\n" "\n" (pp-to-string result))) ((debug error) (error-message-string e)))
(string-trim-right (condition-case e (let ((result (let ((buffer-file-name ...) (doom--current-module ...) (debug-on-error t)) (eval (read ...) lexical-binding)))) (require 'pp) (replace-regexp-in-string "\\\\n" "\n" (pp-to-string result))) ((debug error) (error-message-string e))))
(+eval-display-results (string-trim-right (condition-case e (let ((result (let (... ... ...) (eval ... lexical-binding)))) (require 'pp) (replace-regexp-in-string "\\\\n" "\n" (pp-to-string result))) ((debug error) (error-message-string e)))) (current-buffer))
+emacs-lisp-eval(1 42)
funcall(+emacs-lisp-eval 1 42)
(if runner (funcall runner beg end) (let ((quickrun-option-cmdkey lang)) (quickrun-region beg end)))
(let ((runner (or (alist-get major-mode +eval-runners) (and (require 'quickrun nil t) (equal (setq lang (quickrun--command-key ...)) "emacs") (alist-get 'emacs-lisp-mode +eval-runners)))) lang) (if runner (funcall runner beg end) (let ((quickrun-option-cmdkey lang)) (quickrun-region beg end))))
(cond ((and (fboundp '+eval--ensure-in-repl-buffer) (condition-case nil (progn (get-buffer-window (or (+eval--ensure-in-repl-buffer) t))) (error nil))) (funcall (or (plist-get (cdr (alist-get major-mode +eval-repls)) :send-region) #'+eval/send-region-to-repl) beg end)) ((let ((runner (or (alist-get major-mode +eval-runners) (and (require ... nil t) (equal ... "emacs") (alist-get ... +eval-runners)))) lang) (if runner (funcall runner beg end) (let ((quickrun-option-cmdkey lang)) (quickrun-region beg end))))))
(let ((load-file-name buffer-file-name)) (cond ((and (fboundp '+eval--ensure-in-repl-buffer) (condition-case nil (progn (get-buffer-window (or ... t))) (error nil))) (funcall (or (plist-get (cdr (alist-get major-mode +eval-repls)) :send-region) #'+eval/send-region-to-repl) beg end)) ((let ((runner (or (alist-get major-mode +eval-runners) (and ... ... ...))) lang) (if runner (funcall runner beg end) (let ((quickrun-option-cmdkey lang)) (quickrun-region beg end)))))))
+eval/region(1 42)
(if buffer-handler (funcall buffer-handler) (+eval/region (point-min) (point-max)))
(let* ((buffer-handler (and t (plist-get (cdr (alist-get major-mode +eval-repls)) :send-buffer)))) (if buffer-handler (funcall buffer-handler) (+eval/region (point-min) (point-max))))
(if (or (assq major-mode +eval-runners) (and (fboundp '+eval--ensure-in-repl-buffer) (condition-case nil (progn (get-buffer-window (or (+eval--ensure-in-repl-buffer) t))) (error nil))) (and (require 'quickrun nil t) (equal (setq quickrun-option-cmdkey (quickrun--command-key (buffer-file-name (buffer-base-buffer)))) "emacs") (alist-get 'emacs-lisp-mode +eval-runners))) (let* ((buffer-handler (and t (plist-get (cdr (alist-get major-mode +eval-repls)) :send-buffer)))) (if buffer-handler (funcall buffer-handler) (+eval/region (point-min) (point-max)))) (quickrun))
(let ((quickrun-option-cmdkey (and (boundp 'quickrun-option-cmdkey) quickrun-option-cmdkey))) (if (or (assq major-mode +eval-runners) (and (fboundp '+eval--ensure-in-repl-buffer) (condition-case nil (progn (get-buffer-window (or ... t))) (error nil))) (and (require 'quickrun nil t) (equal (setq quickrun-option-cmdkey (quickrun--command-key (buffer-file-name ...))) "emacs") (alist-get 'emacs-lisp-mode +eval-runners))) (let* ((buffer-handler (and t (plist-get (cdr ...) :send-buffer)))) (if buffer-handler (funcall buffer-handler) (+eval/region (point-min) (point-max)))) (quickrun)))
+eval/buffer()
funcall-interactively(+eval/buffer)
call-interactively(+eval/buffer)
+eval/buffer-or-region()
funcall-interactively(+eval/buffer-or-region)
call-interactively(+eval/buffer-or-region nil nil)
command-execute(+eval/buffer-or-region)
Emacs : GNU Emacs 27.2 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.27, cairo version 1.17.4)
of 2021-03-26
Package: Org mode version 9.6 (9.6-??-0c9b30e96 @ ~/.emacs.d/.local/straight/build-27.2/org/)
current state:
==============
(setq
org-roam-db-location "~/.emacs.d/.local/etc/org-roam.db"
org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer
doom-modeline-set-org-src-modeline)
org-fontify-whole-heading-line t
org-capture-prepare-finalize-hook '(org-roam-capture--install-finalize-h)
org-link-shell-confirm-function 'yes-or-no-p
org-mode-local-vars-hook '(+org-init-gifs-h eldoc-mode)
org-babel-after-execute-hook '(org-redisplay-inline-images)
org-insert-heading-respect-content t
org-after-refile-insert-hook '(save-buffer)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-roam-db-node-include-function #[0 "\300\207" [t] 1]
org-refile-targets '((nil :maxlevel . 3) (org-agenda-files :maxlevel . 3))
org-enforce-todo-dependencies t
org-roam-mode-hook '(+org-roam-detach-magit-section-mode-map-h turn-on-visual-line-mode)
org-special-ctrl-a/e t
org-imenu-depth 6
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-agenda-files '("~/Documents/org/ITA_TA.org" "~/Documents/org/uni.org")
org-reveal-start-hook '(org-decrypt-entry)
org-modules '(ol-bibtex)
org-startup-folded nil
org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent)
org-mode-hook '((closure ((hook . org-mode-hook) (--dolist-tail--) t) (&rest _)
(add-hook 'before-save-hook 'org-encrypt-entries nil t))
(closure
(org--rds reftex-docstruct-symbol visual-fill-column-width org-clock-history org-with-time
org-defdecode org-def org-read-date-inactive org-ans2 org-ans1 org-columns-current-fmt-compiled
org-clock-current-task org-clock-effort org-end-time-was-given org-time-was-given
org-blocked-by-checkboxes org-state org-agenda-headline-snapshot-before-repeat org-struct-menu
org-last-state org-clock-start-time texmathp-why remember-data-file iswitchb-temp-buflist
align-mode-rules-list org-export-registered-backends org-inlinetask-min-level t)
nil (add-hook 'change-major-mode-hook 'org-show-all 'append 'local))
(closure (org-table-tab-recognizes-table\.el t) nil
(setq imenu-create-index-function 'org-imenu-get-tree))
(closure (*this* org-babel-confirm-evaluate-answer-no t) nil
(add-hook 'change-major-mode-hook #'org-babel-show-result-all 'append 'local))
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-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\x10\207" [imenu-create-index-function org-imenu-get-tree] 2]
doom-disable-show-paren-mode-h doom-disable-show-trailing-whitespace-h
+org-enable-auto-reformat-tables-h +org-enable-auto-update-cookies-h +org-make-last-point-visible-h
evil-org-mode toc-org-enable embrace-org-mode-hook org-eldoc-load)
org-clock-persist 'history
org-outline-path-complete-in-steps nil
org-archive-hook '(org-attach-archive-delete-maybe)
org-persist-before-read-hook '(org-element--cache-persist-before-read)
org-agenda-finalize-hook '(+org-exclude-agenda-buffers-from-workspace-h +org-defer-mode-in-agenda-buffers-h)
org-startup-indented t
org-clock-history-length 20
org-journal-mode-hook '(#[0 "\301\b\302\303\304$\207"
[org-journal-encrypt-on add-hook org-journal-encryption-hook nil t] 5]
)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-bibtex-headline-format-function #[257 "\300\x01\236A\207" [:title] 3 "\n\n(fn ENTRY)"]
org-agenda-deadline-faces '((1.001 . error) (1.0 . org-warning) (0.5 . org-upcoming-deadline)
(0.0 . org-upcoming-distant-deadline))
org-crypt-key nil
org-babel-pre-tangle-hook '(save-buffer)
org-file-apps '((remote . emacs) (auto-mode . emacs) (directory . emacs) ("\\.mm\\'" . default)
("\\.x?html?\\'" . default) ("\\.pdf\\'" . default))
org-tab-first-hook '(+org-yas-expand-maybe-h +org-indent-maybe-h org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand +org-clear-babel-results-h +org-cycle-only-current-subtree-h)
org-hide-leading-stars t
org-log-done 'time
org-roam-capture-preface-hook '(org-roam-dailies--override-capture-time-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-protocol-h
+org-init-protocol-lazy-loader-h +org-init-smartparens-h +org-init-roam-h)
org-link-abbrev-alist '(("doom-repo" . "https://github.com/hlissner/doom-emacs/%s")
("wolfram" . "https://wolframalpha.com/input/?i=%s")
("wikipedia" . "https://en.wikipedia.org/wiki/%s")
("duckduckgo" . "https://duckduckgo.com/?q=%s")
("gmap" . "https://maps.google.com/maps?q=%s")
("gimages" . "https://google.com/images?q=%s") ("google" . "https://google.com/search?q=")
("youtube" . "https://youtube.com/watch?v=%s") ("github" . "https://github.com/%s"))
org-export-backends '(md ascii html icalendar latex odt)
org-roam-completion-everywhere t
org-clock-in-resume t
org-attach-store-link-p t
org-archive-subtree-save-file-p t
org-agenda-span 10
org-agenda-loop-over-headlines-in-active-region nil
org-src-lang-modes '(("md" . markdown) ("C" . c) ("C++" . c++) ("asymptote" . asy) ("bash" . sh) ("beamer" . latex)
("calc" . fundamental) ("cpp" . c++) ("ditaa" . artist) ("dot" . fundamental)
("elisp" . emacs-lisp) ("ocaml" . tuareg) ("screen" . shell-script) ("shell" . sh)
("sqlite" . sql))
org-src-preserve-indentation t
org-fontify-quote-and-verse-blocks t
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-open-id-with-org-roam-db-h
org-roam-db-autosync--setup-update-on-save-h +org-roam-open-with-buffer-maybe-h)
org-catch-invisible-edits 'smart
org-occur-hook '(org-first-headline-recenter)
org-agenda-mode-hook '(+org-habit-resize-graph-h evil-org-agenda-mode)
org-agenda-window-setup 'current-window
org-roam-preview-function 'org-roam-preview-default-function
org-indirect-buffer-display 'current-window
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-todo-keywords '((sequence "TODO(t)" "PROJ(p)" "LOOP(r)" "STRT(s)" "WAIT(w)" "HOLD(h)" "IDEA(i)" "|" "DONE(d)"
"KILL(k)")
(sequence "[ ](T)" "[-](S)" "[?](W)" "|" "[X](D)") (sequence "|" "OKAY(o)" "YES(y)" "NO(n)"))
org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate)
org-roam-node-annotation-function 'org-roam-node-read--annotation
org-tags-column 0
org-capture-mode-hook '(+org-show-target-in-capture-header-h evil-insert-state)
org-clock-persist-file "~/.emacs.d/.local/etc/org-clock-save.el"
org-attach-id-dir "~/Documents/org/.attach/"
org-roam-ui-follow nil
org-roam-ui-browser-function 'browse-url
org-M-RET-may-split-line nil
org-roam-ref-annotation-function 'org-roam-ref-read--annotation
org-format-latex-options '(:foreground default :background default :scale 1.5 :html-foreground "Black"
:html-background "Transparent" :html-scale 1.0 :matchers
("begin" "$1" "$" "$$" "\\(" "\\["))
org-display-remote-inline-images 'download
org-refile-use-outline-path 'file
org-priority-faces '((65 . error) (66 . warning) (67 . success))
org-export-before-parsing-hook '(org-attach-expand-links)
org-font-lock-set-keywords-hook '(doom-themes-enable-org-fontification)
org-id-locations-file "~/Documents/org/.orgids"
org-confirm-shell-link-function 'yes-or-no-p
org-link-parameters '(("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
("orgit-rev" :store orgit-rev-store :follow orgit-rev-open :export orgit-rev-export :complete
orgit-rev-complete-link)
("orgit-log" :store orgit-log-store :follow orgit-log-open :export orgit-log-export :complete
orgit-log-complete-link)
("orgit" :store orgit-status-store :follow orgit-status-open :export orgit-status-export
:complete orgit-status-complete-link)
("roam" :follow org-roam-link-follow-link)
("yt" :follow org-yt-follow :image-data-fun org-yt-image-data-fun) ("id" :follow org-id-open)
("img" :image-data-fun +org-inline-image-data-fn)
("doom-module" :follow +org-link--doom-module-follow-fn :face +org-link--doom-module-face-fn)
("doom-package" :follow +org-link--doom-package-follow-fn :face
(closure (t) (_) '(:inherit org-priority :slant italic)))
("kbd" :follow (closure (t) (_) (minibuffer-message "%s" (+org-display-link-in-eldoc-a)))
:help-echo +org-read-kbd-at-point :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 (doom-enlist 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))
)
)
("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 (doom-enlist 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))
)
)
("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 (doom-enlist 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))
)
)
("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 (doom-enlist 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))
)
)
("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\302\x04Q\x02\"\207" ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"])
("mailto" :follow
#[514 "\301\300\302\x04Q\x02\"\207" ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"])
("https" :follow
#[514 "\301\300\302\x04Q\x02\"\207" ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"]
:image-data-fun +org-http-image-data-fn)
("http" :follow #[514 "\301\300\302\x04Q\x02\"\207" ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"]
:image-data-fun +org-http-image-data-fn)
("ftp" :follow #[514 "\301\300\302\x04Q\x02\"\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) (and IS-WINDOWS (string-prefix-p "\\\\" path))
(file-exists-p path))
'org-link '(warning org-link))
)
)
("elisp" :follow org-link--open-elisp))
org-agenda-skip-scheduled-if-done t
org-capture-templates '(("t" "Personal todo" entry (file+headline +org-capture-todo-file "Inbox")
"* [ ] %?\n%i\n%a" :prepend t)
("n" "Personal notes" entry (file+headline +org-capture-notes-file "Inbox")
"* %u %?\n%i\n%a" :prepend t)
("j" "Journal" entry (file+olp+datetree +org-capture-journal-file) "* %U %?\n%i\n%a"
:prepend t)
("p" "Templates for projects")
("pt" "Project-local todo" entry (file+headline +org-capture-project-todo-file "Inbox")
"* TODO %?\n%i\n%a" :prepend t)
("pn" "Project-local notes" entry (file+headline +org-capture-project-notes-file "Inbox")
"* %U %?\n%i\n%a" :prepend t)
("pc" "Project-local changelog" entry
(file+headline +org-capture-project-changelog-file "Unreleased") "* %U %?\n%i\n%a"
:prepend t)
("o" "Centralized templates for projects")
("ot" "Project todo" entry #'+org-capture-central-project-todo-file "* TODO %?\n %i\n %a"
:heading "Tasks" :prepend nil)
("on" "Project notes" entry #'+org-capture-central-project-notes-file "* %U %?\n %i\n %a"
:heading "Notes" :prepend t)
("oc" "Project changelog" entry #'+org-capture-central-project-changelog-file
"* %U %?\n %i\n %a" :heading "Changelog" :prepend t)
)
org-link-translation-function 'toc-org-unhrefify
org-link-elisp-confirm-function nil
org-todo-keyword-faces '(("[-]" . +org-todo-active) ("STRT" . +org-todo-active) ("[?]" . +org-todo-onhold)
("WAIT" . +org-todo-onhold) ("HOLD" . +org-todo-onhold) ("PROJ" . +org-todo-project)
("NO" . +org-todo-cancel) ("KILL" . +org-todo-cancel))
org-roam-db-autosync-mode t
org-capture-after-finalize-hook '(+org-capture-cleanup-frame-h)
org-image-actual-width nil
org-roam-directory "~/Documents/org-roam/"
org-eldoc-breadcrumb-separator " → "
org-entities-user '(("flat" "\\flat" nil "" "" "266D" "♭") ("sharp" "\\sharp" nil "" "" "266F" "♯"))
org-src-window-setup 'other-window
org-clock-out-remove-zero-time-clocks t
org-confirm-babel-evaluate nil
org-use-sub-superscripts '{}
org-directory "~/Documents/org/"
org-roam-node-display-template "${doom-hierarchy:*} ${doom-tags:45}"
org-preview-latex-image-directory "~/.emacs.d/.local/cache/org-latex/"
org-tags-exclude-from-inheritance '("crypt")
org-agenda-skip-deadline-if-done t
org-attach-use-inheritance t
org-agenda-inhibit-startup t
org-agenda-start-on-weekday nil
org-default-notes-file "~/Documents/org/notes.org"
org-id-locations-file-relative t
org-list-allow-alphabetical t
org-agenda-skip-unavailable-files t
)
Thanks for the hard work!
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [BUG] Evaluating org-class throws a void-variable error [9.6 (9.6-??-0c9b30e96 @ ~/.emacs.d/.local/straight/build-27.2/org/)]
2022-01-16 18:09 [BUG] Evaluating org-class throws a void-variable error [9.6 (9.6-??-0c9b30e96 @ ~/.emacs.d/.local/straight/build-27.2/org/)] Giorgi Gvalia
@ 2022-01-17 11:20 ` Ihor Radchenko
[not found] ` <-PAgSsqWX-jRhNc-uCVbsFqIm1TH0AUgR3wFAHWpkMjncKnL4ctK_N24q0qS9ccuhk8R2YSxB08UwhoBzoaW2bQksI55dC60Wt56JXS09C8=@protonmail.com>
0 siblings, 1 reply; 3+ messages in thread
From: Ihor Radchenko @ 2022-01-17 11:20 UTC (permalink / raw)
To: Giorgi Gvalia; +Cc: emacs-orgmode@gnu.org
Giorgi Gvalia <gvalia@protonmail.com> writes:
> Excuse the potential bad formatting, I am new to sending bug reports like this.
>
> When using the string `<%%(org-class 2022 1 17 2022 5 7 1 17 19)>` to schedule an item, I was expecting for it to build occurences accordingly. Instead I received the error "Not an Org time string: %%(org-class 2022 1 17 2022 5 7 1 17 19)". I then tried to evalute the org-class expression by itself and received the following error: "Symbol's value as variable is void: date". Looking at the source code, I see that there is a variable "date" that is defined on line 5950 of org-agenda.el and subsequently used to define the variable "d" in the let block. Unfortunately, I'm not able to ascertain where the value of this variable should be acquired from.
I just tried the following heading and it works just fine:
* this
SCHEDULED: <%%(org-class 2022 1 17 2022 5 7 1 17 19)>
Can you provide exact steps that you tried? Ideally, starting from clean
configuration. See https://orgmode.org/manual/Feedback.html
The error you are getting is to be expected because diary functions are
special. They expect the variable =date= to be set externally. It is
normally done by agenda, but not when you try to evaluate the diary
function manually.
Best,
Ihor
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [BUG] Evaluating org-class throws a void-variable error [9.6 (9.6-??-0c9b30e96 @ ~/.emacs.d/.local/straight/build-27.2/org/)]
[not found] ` <87y23bjgh0.fsf@localhost>
@ 2022-10-16 4:01 ` Ihor Radchenko
0 siblings, 0 replies; 3+ messages in thread
From: Ihor Radchenko @ 2022-10-16 4:01 UTC (permalink / raw)
To: Ihor Radchenko, Bastien; +Cc: Nicolas Goaziou, Giorgi Gvalia
Ihor Radchenko <yantar92@gmail.com> writes:
> AFAIK, org-element-timestamp-parser does not support diary-type
> timestamps that contain time/time intervals. Consider the following:
>
> ** Monday Lecture
> SCHEDULED: <%%(org-class 2021 08 30 2021 12 11 1) 19:30-20:45>
>
> org-element-context gives
>
> (planning
> (:closed nil :deadline nil
> :scheduled nil :begin 311 :end 376
> :post-blank 2 :post-affiliated 311))
>
> Note that agenda did support the above example. Apparently, simply
> because agenda somehow parsed sexps by itself without invoking
> org-element. After I changed agenda to use org-element API,
> <%%(...) time> does not work anymore.
Bastien, could you please take a look?
What we have here is feature regression, but it is unclear if it is
justified to change the Org diary timestamp syntax.
--
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] 3+ messages in thread
end of thread, other threads:[~2023-08-08 10:42 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-01-16 18:09 [BUG] Evaluating org-class throws a void-variable error [9.6 (9.6-??-0c9b30e96 @ ~/.emacs.d/.local/straight/build-27.2/org/)] Giorgi Gvalia
2022-01-17 11:20 ` Ihor Radchenko
[not found] ` <-PAgSsqWX-jRhNc-uCVbsFqIm1TH0AUgR3wFAHWpkMjncKnL4ctK_N24q0qS9ccuhk8R2YSxB08UwhoBzoaW2bQksI55dC60Wt56JXS09C8=@protonmail.com>
[not found] ` <87o849npya.fsf@localhost>
[not found] ` <87fspjabpq.fsf@nicolasgoaziou.fr>
[not found] ` <87y23bjgh0.fsf@localhost>
2022-10-16 4:01 ` Ihor Radchenko
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).