emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[BUG] Evaluating org-class throws a void-variable error [9.6 (9.6-??-0c9


From: Giorgi Gvalia
Subject: [BUG] Evaluating org-class throws a void-variable error [9.6 (9.6-??-0c9b30e96 @ ~/.emacs.d/.local/straight/build-27.2/org/)]
Date: Sun, 16 Jan 2022 18:09:28 +0000

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\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\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\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\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) (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!



reply via email to

[Prev in Thread] Current Thread [Next in Thread]