all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* [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 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.