From: Andrew Berger <aberger@colorado.edu>
To: "emacs-orgmode@gnu.org" <emacs-orgmode@gnu.org>
Subject: [BUG] warning while loading org-agenda [9.7.12 (9.7.12-28c83e @ /Users/andrew/.emacs.d/elpa/29.1/develop/org-9.7.12/)]
Date: Fri, 11 Oct 2024 06:56:27 +0000 [thread overview]
Message-ID: <ad7b6bea-0956-4e47-9c1f-e8934794c117@colorado.edu> (raw)
Got the following warning while evaluating org-agenda.
Emacs : GNU Emacs 29.1 (build 1, aarch64-apple-darwin23.4.0, Carbon
Version 170 AppKit 2487.5)
of 2024-04-28
Package: Org mode version 9.7.12 (9.7.12-28c83e @
/Users/andrew/.emacs.d/elpa/29.1/develop/org-9.7.12/)
current state:
==============
(setq
org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s") (todo . " %i
%-12:c %l%l") (tags . " %i %-12:c %l%l") (search . " %i %-12:c %l%L"))
org-link-elisp-confirm-function 'yes-or-no-p
org-directory "/Users/andrew/org"
org-bibtex-headline-format-function 'org-bibtex-headline-format-default
org-download-file-format-function 'org-download-file-format-default
org-log-done 'time
org-startup-folded t
org-babel-after-execute-hook '(spacemacs/ob-fix-inline-images)
org-agenda-files '("~/org/agenda.org" "~/org/finances.org"
"~/org/healthcare.org" "~/org/journal.org" "~/org/lab_notebook.org"
"~/org/notes.org" "~/org/research.org"
"~/org/tooling.org" "~/org/wiki.org" "~/org/academics.org"
"~/org/research/grad_apps.org" "~/org/research/meetings.org"
"~/org/research/papers.org")
org-capture-templates '(("n" "notes") ("nn" "general note" entry
(file+headline "~/org/notes.org" "general") "* %?%^G %(org-set-property
\"created\" \"%U\")")
("np" "project note" entry (file+headline "~/org/notes.org" "project")
"* %?%^{project|general}p %(org-set-property \"created\" \"%U\")") ("t"
"tasks")
("tt" "untimed" entry (file+headline "~/org/agenda.org" "tasks") "* TODO
[#%^{priority|B}] %? %^{project|general}p %(org-set-property \"created\"
\"%U\")")
("td" "deadline" entry (file+headline "~/org/agenda.org" "tasks")
"* TODO [#%^{priority|B}] %?\nDEADLINE: %^{specify deadline}t
%^{project|general}p %(org-set-property \"created\" \"%U\")")
("ts" "scheduled" entry (file+headline "~/org/agenda.org" "tasks")
"* TODO [#%^{priority|B}] %?\nSCHEDULED: %^{specify scheduled start
date}t %^{project|general}p %(org-set-property \"created\" \"%U\")")
("c" "calendar") ("cc" "date & time" entry (file+headline
"~/org/agenda.org" "calendar") "* %^T %?")
("cd" "date" entry (file+headline "~/org/agenda.org" "calendar") "* %^t
%?")
("cb" "birthday" item (file+headline "~/org/agenda.org" "birthdays")
"- \\%\\%(org-anniversary %^{year (if known)} %^{month} %^{day})
%^{person (if year is known, you can add a \\%d to have their age
listed)}")
("cr" "range" entry (file+headline "~/org/agenda.org" "calendar") "*
%^t--%^t %?")
("cm" "meeting" entry (file+headline "~/org/agenda.org" "meetings") "*
%^T %? %^{meeting-type}p %(org-set-property \"entry-type\" \"meeting\")")
("j" "journal") ("jr" "research journal" entry (file+olp+datetree
"~/org/journal.org" "research") "* %U - %? :journal:" :jump-to-captured t)
("ja" "academics journal" entry (file+olp+datetree "~/org/journal.org"
"academics") "* %U - %? :journal:" :jump-to-captured t)
("jj" "personal journal" entry (file+olp+datetree "~/org/journal.org"
"personal") "* %U - %? :journal: %(org-set-property \"entry-visibility\"
\"private\")"
:jump-to-captured t)
("jn" "lab notebook")
("jnn" "lab notebook entry" entry (file+olp+datetree
"~/org/lab_notebook.org" "log") "* %U - %? :lab_notebook: %^{project}p
%^{subproject}p" :jump-to-captured
t)
("jni" "imaging session" entry (file+olp+datetree
"~/org/lab_notebook.org" "log")
"%[~/org/artifacts/capture_templates/clandinin_2p_imaging_checklist.org]"
:jump-to-captured t)
)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-refile-targets '((org-agenda-files :maxlevel . 9) (nil :maxlevel . 9))
org-export-before-parsing-hook '(org-attach-expand-links)
org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-default-notes-file "/Users/andrew/org/notes.org"
org-export-async-init-file
"/Users/andrew/.emacs.d/layers/+emacs/org/local/org-async-init.el"
org-refile-use-outline-path 'file
org-publish-timestamp-directory "~/.emacs.d/.cache/.org-timestamps/"
org-archive-hook '(org-attach-archive-delete-maybe)
org-file-apps '((auto-mode . emacs) (directory . emacs) ("\\.mm\\'" .
default) ("\\.x?html?\\'" . default) ("\\.pdf\\'" . emacs))
org-odt-format-inlinetask-function
'org-odt-format-inlinetask-default-function
org-edit-src-content-indentation 0
org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME
CONTENTS WIDTH)"]
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-persist-before-read-hook '(org-element--cache-persist-before-read)
org-modules '(org-habit ol-doi ol-w3m ol-bbdb ol-bibtex ol-docview
ol-gnus ol-info ol-irc ol-mhe ol-rmail ol-eww)
org-yank-image-file-name-function 'org-yank-image-autogen-filename
org-link-from-user-regexp
"\\<andrew@Andrews-MacBook-Pro-4\\.local\\>\\|\\<Andrew Berger\\>"
org-image-actual-width nil
org-mode-hook '(turn-on-org-cdlatex #[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]
spacemacs/org-setup-evil-surround spacemacs/load-yasnippet
toc-org-enable org-superstar-mode
org-download-enable dotspacemacs//prettify-spacemacs-docs
spacemacs//evil-org-mode spacemacs//init-company-org-mode company-mode)
org-babel-load-languages '((R . t) (python . t) (shell . t) (js . t)
(emacs-lisp . t))
org-id-locations-file "~/.emacs.d/.cache/.org-id-locations"
org-latex-format-drawer-function '(closure
(engrave-faces-latex-mathescape engrave-faces-current-preset-style
engrave-faces-latex-output-style t) (_ contents) contents)
org-download-abbreviate-filename-function 'file-relative-name
org-latex-format-headline-function
'org-latex-format-headline-default-function
org-confirm-shell-link-function 'yes-or-no-p
org-present-mode-hook '(spacemacs//org-present-start)
org-projectile-per-project-filepath "TODOs.org"
org-present-mode-quit-hook '(spacemacs//org-present-end)
org-download-annotate-function 'org-download-annotate-default
org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
outline-isearch-open-invisible-function 'outline-isearch-open-invisible
org-agenda-sorting-strategy '((agenda habit-up time-up priority-down
category-keep) (todo category-keep) (tags category-keep) (search
category-keep))
org-startup-indented t
org-sort-function 'string-collate-lessp
org-odt-format-headline-function 'org-odt-format-headline-default-function
org-link-translation-function 'toc-org-unhrefify
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-confirm-elisp-link-function 'yes-or-no-p
org-log-buffer-setup-hook '(spacemacs//org-note-mode)
org-todo-keywords '((sequence "TODO(t)" "|" "WAITING(w)" "|" "DONE(d)")
(sequence "|" "CANCELED(c)"))
org--warnings '("org-element--cache: Org parser error in
academics.org::#<marker at 74688 in academics.org>. Resetting.\n The
error was: (error \"Invalid search bound (wrong side of point)\")\n
Backtrace:\n\" backtrace-to-string(nil)\n (progn (backtrace-to-string
(backtrace-get-frames 'backtrace)))\n (if (and (fboundp
'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn
(backtrace-to-string (backtrace-get-frames 'backtrace))))\n (format
\\\"Org parser error in %s::%S. Resetting.\\\\n The error ...\\\"
(buffer-name (current-buffer)) epom err (if (and (fboundp
'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn
(backtrace-to-string (backtrace-get-frames 'backtrace)))))\n (let*
((format-string (format \\\"Org parser error in %s::%S. Resetting.\\\\n
The error ...\\\" (buffer-name (current-buffer)) epom err (if (and
(fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn
(backtrace-to-string (backtrace-get-frames ...)))))) (format-string (if
(or (not org-element--cache-diagnostics-ring) (not (eq 'backtrace
org-element--cache-self-verify))) format-string (prog1 (concat (format
\\\"Warning(%s): \\\" (buffer-name ...)) format-string
\\\"\\\\nBacktrace:\\\\n \\\" (mapconcat #'identity (ring-elements
org-element--cache-diagnostics-ring) \\\"\\\\n \\\")) (setq
org-element--cache-diagnostics-ring nil))))) (if (and (boundp
'org-batch-test) org-batch-test) (error \\\"%s\\\" (concat
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons
(concat \\\"org-element--cache: \\\" format-string) org--warnings))
(display-warning '(org-element org-element-cache) (concat
\\\"org-element--cache: \\\" format-string))))\n (condition-case err
(org-element--parse-to epom) ((debug error) (let* ((format-string
(format \\\"Org parser error in %s::%S. Resetting.\\\\n The error
...\\\" (buffer-name (current-buffer)) epom err (if (and ... ...) (progn
...)))) (format-string (if (or (not org-element--cache-diagnostics-ring)
(not ...)) format-string (prog1 (concat ... format-string
\\\"\\\\nBacktrace:\\\\n \\\" ...) (setq
org-element--cache-diagnostics-ring nil))))) (if (and (boundp
'org-batch-test) org-batch-test) (error \\\"%s\\\" (concat
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons
(concat \\\"org-element--cache: \\\" format-string) org--warnings))
(display-warning '(org-element org-element-cache) (concat
\\\"org-element--cache: \\\" format-string)))) (org-element-cache-reset)
(org-element--parse-to epom)))\n (if cached-only (if (and
(org-element--cache-active-p) (or (not org-element--cache-sync-requests)
(< epom (aref (car org-element--cache-sync-requests) 1)))) (progn
(org-element--cache-find epom))) (condition-case err
(org-element--parse-to epom) ((debug error) (let* ((format-string
(format \\\"Org parser error in %s::%S. Resetting.\\\\n The error
...\\\" (buffer-name ...) epom err (if ... ...))) (format-string (if (or
... ...) format-string (prog1 ... ...)))) (if (and (boundp
'org-batch-test) org-batch-test) (error \\\"%s\\\" (concat
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons
(concat \\\"org-element--cache: \\\" format-string) org--warnings))
(display-warning '(org-element org-element-cache) (concat
\\\"org-element--cache: \\\" format-string)))) (org-element-cache-reset)
(org-element--parse-to epom))))\n (setq element (if cached-only (if (and
(org-element--cache-active-p) (or (not org-element--cache-sync-requests)
(< epom (aref (car org-element--cache-sync-requests) 1)))) (progn
(org-element--cache-find epom))) (condition-case err
(org-element--parse-to epom) ((debug error) (let* ((format-string
(format \\\"Org parser error in %s::%S. Resetting.\\\\n The error
...\\\" ... epom err ...)) (format-string (if ... format-string ...)))
(if (and (boundp ...) org-batch-test) (error \\\"%s\\\" (concat
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons
... org--warnings)) (display-warning '... (concat
\\\"org-element--cache: \\\" format-string)))) (org-element-cache-reset)
(org-element--parse-to epom)))))\n (let (element) (if
(org-element--cache-active-p) (progn (if (not (save-current-buffer
(set-buffer (or ... ...)) org-element--cache)) (org-element-cache-reset)
(if cached-only nil (org-element--cache-sync (current-buffer) epom)))))
(setq element (if cached-only (if (and (org-element--cache-active-p) (or
(not org-element--cache-sync-requests) (< epom (aref ... 1)))) (progn
(org-element--cache-find epom))) (condition-case err
(org-element--parse-to epom) ((debug error) (let* ((format-string ...)
(format-string ...)) (if (and ... org-batch-test) (error \\\"%s\\\" ...)
(setq org--warnings ...) (display-warning ... ...)))
(org-element-cache-reset) (org-element--parse-to epom))))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq
(org-element-type element t) 'org-data) nil (if (and cached-only (not
(and element (or (= epom ...) (and ... ... ...) (and ... ... ...) (and
... ... ...))))) nil (if (not (eq (org-element-type element t)
'section)) element (org-element-at-point (1+ epom) cached-only)))))\n
(save-restriction (widen) (goto-char (or --mepom (point))) (if
(derived-mode-p 'org-mode) nil (display-warning '(org-element
org-element-parser) (format-message \\\"`org-element-at-point' cannot be
used in non-Org b...\\\" (current-buffer) major-mode))) (if (and
cached-only (memq this-command
org-element--cache-non-modifying-commands)) (progn (setq cached-only
nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not
(save-current-buffer (set-buffer ...) org-element--cache))
(org-element-cache-reset) (if cached-only nil (org-element--cache-sync
(current-buffer) epom))))) (setq element (if cached-only (if (and
(org-element--cache-active-p) (or (not org-element--cache-sync-requests)
(< epom ...))) (progn (org-element--cache-find epom))) (condition-case
err (org-element--parse-to epom) ((debug error) (let* (... ...) (if ...
... ... ...)) (org-element-cache-reset) (org-element--parse-to epom)))))
(if (and (org-element--cache-active-p) element
(org-element--cache-verify-element element)) (progn (setq element
(org-element--parse-to epom)))) (if (eq (org-element-type element t)
'org-data) nil (if (and cached-only (not (and element (or ... ... ...
...)))) nil (if (not (eq (org-element-type element t) 'section)) element
(org-element-at-point (1+ epom) cached-only))))))\n (save-excursion
(save-restriction (widen) (goto-char (or --mepom (point))) (if
(derived-mode-p 'org-mode) nil (display-warning '(org-element
org-element-parser) (format-message \\\"`org-element-at-point' cannot be
used in non-Org b...\\\" (current-buffer) major-mode))) (if (and
cached-only (memq this-command
org-element--cache-non-modifying-commands)) (progn (setq cached-only
nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not
(save-current-buffer ... org-element--cache)) (org-element-cache-reset)
(if cached-only nil (org-element--cache-sync ... epom))))) (setq element
(if cached-only (if (and (org-element--cache-active-p) (or ... ...))
(progn (org-element--cache-find epom))) (condition-case err
(org-element--parse-to epom) ((debug error) (let* ... ...)
(org-element-cache-reset) (org-element--parse-to epom))))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq
(org-element-type element t) 'org-data) nil (if (and cached-only (not
(and element ...))) nil (if (not (eq ... ...)) element
(org-element-at-point (1+ epom) cached-only)))))))\n (save-excursion
(cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp
--mepom)) (t (if (let ((idx (or 14 14))) (let* ((parray ...)) (if parray
(let* ... ...) (let* ... ...)))) (progn (set-buffer (let (...) (let* ...
...))))) (setq --mepom (let ((idx (or 0 0))) (let* ((parray ...)) (if
parray (let* ... ...) (let* ... ...))))))) (save-excursion
(save-restriction (widen) (goto-char (or --mepom (point))) (if
(derived-mode-p 'org-mode) nil (display-warning '(org-element
org-element-parser) (format-message \\\"`org-element-at-point' cannot be
used in non-Org b...\\\" (current-buffer) major-mode))) (if (and
cached-only (memq this-command
org-element--cache-non-modifying-commands)) (progn (setq cached-only
nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not
...) (org-element-cache-reset) (if cached-only nil ...)))) (setq element
(if cached-only (if (and ... ...) (progn ...)) (condition-case err
(org-element--parse-to epom) (... ... ... ...)))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq
(org-element-type element t) 'org-data) nil (if (and cached-only (not
...)) nil (if (not ...) element (org-element-at-point ...
cached-only))))))))\n (let ((--mepom epom)) (save-excursion (cond
((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp
--mepom)) (t (if (let ((idx ...)) (let* (...) (if parray ... ...)))
(progn (set-buffer (let ... ...)))) (setq --mepom (let ((idx ...)) (let*
(...) (if parray ... ...)))))) (save-excursion (save-restriction (widen)
(goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil
(display-warning '(org-element org-element-parser) (format-message
\\\"`org-element-at-point' cannot be used in non-Org b...\\\"
(current-buffer) major-mode))) (if (and cached-only (memq this-command
org-element--cache-non-modifying-commands)) (progn (setq cached-only
nil))) (let (element) (if (org-element--cache-active-p) (progn (if ...
... ...))) (setq element (if cached-only (if ... ...) (condition-case
err ... ...))) (if (and (org-element--cache-active-p) element
(org-element--cache-verify-element element)) (progn (setq element ...)))
(if (eq (org-element-type element t) 'org-data) nil (if (and cached-only
...) nil (if ... element ...))))))))\n (if (org-element-type epom t)
epom (setq epom (or epom (point))) (let ((--mepom epom)) (save-excursion
(cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp
--mepom)) (t (if (let (...) (let* ... ...)) (progn (set-buffer ...)))
(setq --mepom (let (...) (let* ... ...))))) (save-excursion
(save-restriction (widen) (goto-char (or --mepom (point))) (if
(derived-mode-p 'org-mode) nil (display-warning '... (format-message
\\\"`org-element-at-point' cannot be used in non-Org b...\\\" ...
major-mode))) (if (and cached-only (memq this-command
org-element--cache-non-modifying-commands)) (progn (setq cached-only
nil))) (let (element) (if (org-element--cache-active-p) (progn ...))
(setq element (if cached-only ... ...)) (if (and ... element ...) (progn
...)) (if (eq ... ...) nil (if ... nil ...))))))))\n
org-element-at-point(#<marker at 74688 in academics.org>)\n
(save-restriction (if narrow nil (widen)) (org-element-at-point to-pos)
(let* ((start (and from-pos (progn (goto-char from-pos)
(org-element-begin (progn ... ...))))) (prev after-element) (node
(save-current-buffer (set-buffer (or (buffer-base-buffer nil) (or nil
...))) (if (memq granularity '...) (org-element--headline-cache-root)
(org-element--cache-root)))) data (stack (list nil)) (leftp t) result
(last-match t) continue-flag (next-element-re (let* ((pcase-0 #'...))
(cond ((eq granularity ...) (funcall pcase-0)) ((equal ...
restrict-elements) (funcall pcase-0)) ((eq granularity ...) (let nil
...)) (t 'nil)))) (next-re (if (and next-re (string= next-re (or ...
next-element-re))) nil next-re)) (fail-re (if (and fail-re (string=
fail-re (or ... next-element-re))) nil fail-re)) (restrict-elements (or
restrict-elements (cond ((eq granularity ...) (let nil ...)) ((eq
granularity ...) (let nil ...)) ((eq granularity ...) (let nil
org-element-greater-elements)) (t 'nil)))) (time (float-time))
(predicate-time 0) (pre-process-time 0) (re-search-time 0)
(count-predicate-calls-match 0) (count-predicate-calls-fail 0)
cache-size before-time modified-tic) (goto-char (or start (point-min)))
(let ((saved-match-data (match-data))) (unwind-protect (progn (if (or
(not next-element-re) (if org-element--cache-map-statistics ... ...))
(if (or ... ...) nil (if ... ... ...) (if ... ...) (if ... ...)) (progn
(setq continue-flag t) (setq node nil)))) (set-match-data
saved-match-data t))) (if (and start (>= start to-pos)) nil (while node
(setq data (progn (progn (aref node 2)))) (if (and leftp (progn (progn
...)) (or (not prev) (not ...)) (or (not start) (not ...))) (progn (setq
stack (cons node stack)) (setq node (progn ...))) (if (or (and start
...) (and prev ...)) nil (if (or ... ...) (progn ... ... ... ... ...
...) (if ... ...) (if node ...))) (if continue-flag (setq continue-flag
nil) (setq node (if ... ... ...)))))) (if (and
org-element--cache-map-statistics (or (not
org-element--cache-map-statistics-threshold) (> (- (float-time) time)
org-element--cache-map-statistics-threshold))) (progn (message
\\\"Mapped over elements in %S. %d/%d predicate matche...\\\"
(current-buffer) count-predicate-calls-match (+
count-predicate-calls-match count-predicate-calls-fail) (- (float-time)
time) pre-process-time predicate-time re-search-time granularity
restrict-elements next-re fail-re from-pos to-pos limit-count
after-element))) (nreverse result)))\n (save-excursion (save-restriction
(if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and
from-pos (progn (goto-char from-pos) (org-element-begin ...)))) (prev
after-element) (node (save-current-buffer (set-buffer (or ... ...)) (if
(memq granularity ...) (org-element--headline-cache-root)
(org-element--cache-root)))) data (stack (list nil)) (leftp t) result
(last-match t) continue-flag (next-element-re (let* ((pcase-0 ...))
(cond (... ...) (... ...) (... ...) (t ...)))) (next-re (if (and next-re
(string= next-re ...)) nil next-re)) (fail-re (if (and fail-re (string=
fail-re ...)) nil fail-re)) (restrict-elements (or restrict-elements
(cond (... ...) (... ...) (... ...) (t ...)))) (time (float-time))
(predicate-time 0) (pre-process-time 0) (re-search-time 0)
(count-predicate-calls-match 0) (count-predicate-calls-fail 0)
cache-size before-time modified-tic) (goto-char (or start (point-min)))
(let ((saved-match-data (match-data))) (unwind-protect (progn (if (or
... ...) (if ... nil ... ... ...) (progn ... ...))) (set-match-data
saved-match-data t))) (if (and start (>= start to-pos)) nil (while node
(setq data (progn (progn ...))) (if (and leftp (progn ...) (or ... ...)
(or ... ...)) (progn (setq stack ...) (setq node ...)) (if (or ... ...)
nil (if ... ... ... ...)) (if continue-flag (setq continue-flag nil)
(setq node ...))))) (if (and org-element--cache-map-statistics (or (not
org-element--cache-map-statistics-threshold) (> (- ... time)
org-element--cache-map-statistics-threshold))) (progn (message
\\\"Mapped over elements in %S. %d/%d predicate matche...\\\"
(current-buffer) count-predicate-calls-match (+
count-predicate-calls-match count-predicate-calls-fail) (- (float-time)
time) pre-process-time predicate-time re-search-time granularity
restrict-elements next-re fail-re from-pos to-pos limit-count
after-element))) (nreverse result))))\n (let ((gc-cons-threshold
1073741824) tmpnext-start tmpparent tmpelement) (save-excursion
(save-restriction (if narrow nil (widen)) (org-element-at-point to-pos)
(let* ((start (and from-pos (progn ... ...))) (prev after-element) (node
(save-current-buffer (set-buffer ...) (if ... ... ...))) data (stack
(list nil)) (leftp t) result (last-match t) continue-flag
(next-element-re (let* (...) (cond ... ... ... ...))) (next-re (if (and
next-re ...) nil next-re)) (fail-re (if (and fail-re ...) nil fail-re))
(restrict-elements (or restrict-elements (cond ... ... ... ...))) (time
(float-time)) (predicate-time 0) (pre-process-time 0) (re-search-time 0)
(count-predicate-calls-match 0) (count-predicate-calls-fail 0)
cache-size before-time modified-tic) (goto-char (or start (point-min)))
(let ((saved-match-data (match-data))) (unwind-protect (progn (if ...
... ...)) (set-match-data saved-match-data t))) (if (and start (>= start
to-pos)) nil (while node (setq data (progn ...)) (if (and leftp ... ...
...) (progn ... ...) (if ... nil ...) (if continue-flag ... ...)))) (if
(and org-element--cache-map-statistics (or (not
org-element--cache-map-statistics-threshold) (> ...
org-element--cache-map-statistics-threshold))) (progn (message
\\\"Mapped over elements in %S. %d/%d predicate matche...\\\"
(current-buffer) count-predicate-calls-match (+
count-predicate-calls-match count-predicate-calls-fail) (- ... time)
pre-process-time predicate-time re-search-time granularity
restrict-elements next-re fail-re from-pos to-pos limit-count
after-element))) (nreverse result)))))\n (progn (if
(org-element--cache-active-p) nil (error \\\"Cache must be active\\\"))
(if (memq granularity '(headline headline+inlinetask greater-element
element)) nil (error \\\"Unsupported granularity: %S\\\" granularity))
(if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk
to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)
tmpnext-start tmpparent tmpelement) (save-excursion (save-restriction
(if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and
from-pos ...)) (prev after-element) (node (save-current-buffer ... ...))
data (stack (list nil)) (leftp t) result (last-match t) continue-flag
(next-element-re (let* ... ...)) (next-re (if ... nil next-re)) (fail-re
(if ... nil fail-re)) (restrict-elements (or restrict-elements ...))
(time (float-time)) (predicate-time 0) (pre-process-time 0)
(re-search-time 0) (count-predicate-calls-match 0)
(count-predicate-calls-fail 0) cache-size before-time modified-tic)
(goto-char (or start (point-min))) (let ((saved-match-data ...))
(unwind-protect (progn ...) (set-match-data saved-match-data t))) (if
(and start (>= start to-pos)) nil (while node (setq data ...) (if ...
... ... ...))) (if (and org-element--cache-map-statistics (or ... ...))
(progn (message \\\"Mapped over elements in %S. %d/%d predicate
matche...\\\" ... count-predicate-calls-match ... ... pre-process-time
predicate-time re-search-time granularity restrict-elements next-re
fail-re from-pos to-pos limit-count after-element))) (nreverse
result))))))\n (if (org-element--cache-active-p) (progn (if
(org-element--cache-active-p) nil (error \\\"Cache must be active\\\"))
(if (memq granularity '(headline headline+inlinetask greater-element
element)) nil (error \\\"Unsupported granularity: %S\\\" granularity))
(if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk
to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)
tmpnext-start tmpparent tmpelement) (save-excursion (save-restriction
(if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start ...)
(prev after-element) (node ...) data (stack ...) (leftp t) result
(last-match t) continue-flag (next-element-re ...) (next-re ...)
(fail-re ...) (restrict-elements ...) (time ...) (predicate-time 0)
(pre-process-time 0) (re-search-time 0) (count-predicate-calls-match 0)
(count-predicate-calls-fail 0) cache-size before-time modified-tic)
(goto-char (or start ...)) (let (...) (unwind-protect ... ...)) (if (and
start ...) nil (while node ... ...)) (if (and
org-element--cache-map-statistics ...) (progn ...)) (nreverse
result)))))) (let ((--buffer (current-buffer)) (--old-state
(save-current-buffer (set-buffer (or (buffer-base-buffer nil) (or nil
...))) (mapcar #'symbol-value org-element--cache-variables)))
(org-element-use-cache t)) (unwind-protect (progn
(org-element-cache-reset) (if (org-element--cache-active-p) nil (error
\\\"Cache must be active\\\")) (if (memq granularity '(headline
headline+inlinetask greater-element element)) nil (error \\\"Unsupported
granularity: %S\\\" granularity)) (if (markerp to-pos) nil (let ((mk
...)) (set-marker mk to-pos) (setq to-pos mk))) (let ((gc-cons-threshold
1073741824) tmpnext-start tmpparent tmpelement) (save-excursion
(save-restriction (if narrow nil ...) (org-element-at-point to-pos)
(let* ... ... ... ... ... ...))))) (cl-mapc #'(lambda (var values)
(save-current-buffer (set-buffer ...) (set var values)))
org-element--cache-variables --old-state))))\n (progn (let ((--cl-keys--
--cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--)
'(:granularity :restrict-elements :next-re :fail-re :from-pos :to-pos
:after-element :limit-count :narrow :allow-other-keys)) (if (cdr
--cl-keys--) nil (error \\\"Missing argument for %s\\\" (car
--cl-keys--))) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr
(memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error \\\"Keyword
argument %s not one of (:granularity :rest...\\\" (car --cl-keys--))))))
(if (org-element--cache-active-p) (progn (if
(org-element--cache-active-p) nil (error \\\"Cache must be active\\\"))
(if (memq granularity '(headline headline+inlinetask greater-element
element)) nil (error \\\"Unsupported granularity: %S\\\" granularity))
(if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk
to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)
tmpnext-start tmpparent tmpelement) (save-excursion (save-restriction
(if narrow nil (widen)) (org-element-at-point to-pos) (let* (... ... ...
data ... ... result ... continue-flag ... ... ... ... ... ... ... ...
... ... cache-size before-time modified-tic) (goto-char ...) (let ...
...) (if ... nil ...) (if ... ...) (nreverse result)))))) (let
((--buffer (current-buffer)) (--old-state (save-current-buffer
(set-buffer (or ... ...)) (mapcar #'symbol-value
org-element--cache-variables))) (org-element-use-cache t))
(unwind-protect (progn (org-element-cache-reset) (if
(org-element--cache-active-p) nil (error \\\"Cache must be active\\\"))
(if (memq granularity '...) nil (error \\\"Unsupported granularity:
%S\\\" granularity)) (if (markerp to-pos) nil (let (...) (set-marker mk
to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)
tmpnext-start tmpparent tmpelement) (save-excursion (save-restriction
... ... ...)))) (cl-mapc #'(lambda (var values) (save-current-buffer ...
...)) org-element--cache-variables --old-state)))))\n (let*
((granularity (car (cdr (or (plist-member --cl-rest-- ':granularity)
'(nil headline+inlinetask))))) (restrict-elements (car (cdr
(plist-member --cl-rest-- ':restrict-elements)))) (next-re (car (cdr
(plist-member --cl-rest-- ':next-re)))) (fail-re (car (cdr (plist-member
--cl-rest-- ':fail-re)))) (from-pos (car (cdr (plist-member --cl-rest--
':from-pos)))) (to-pos (car (cdr (or (plist-member --cl-rest-- ':to-pos)
(list nil (point-max-marker)))))) (after-element (car (cdr (plist-member
--cl-rest-- ':after-element)))) (limit-count (car (cdr (plist-member
--cl-rest-- ':limit-count)))) (narrow (car (cdr (plist-member
--cl-rest-- ':narrow))))) (progn (let ((--cl-keys-- --cl-rest--)) (while
--cl-keys-- (cond ((memq (car --cl-keys--) '...) (if (cdr --cl-keys--)
nil (error \\\"Missing argument for %s\\\" ...)) (setq --cl-keys-- (cdr
...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error \\\"Keyword
argument %s not one of (:granularity :rest...\\\" (car --cl-keys--))))))
(if (org-element--cache-active-p) (progn (if
(org-element--cache-active-p) nil (error \\\"Cache must be active\\\"))
(if (memq granularity '(headline headline+inlinetask greater-element
element)) nil (error \\\"Unsupported granularity: %S\\\" granularity))
(if (markerp to-pos) nil (let ((mk ...)) (set-marker mk to-pos) (setq
to-pos mk))) (let ((gc-cons-threshold 1073741824) tmpnext-start
tmpparent tmpelement) (save-excursion (save-restriction (if narrow nil
...) (org-element-at-point to-pos) (let* ... ... ... ... ... ...)))))
(let ((--buffer (current-buffer)) (--old-state (save-current-buffer
(set-buffer ...) (mapcar ... org-element--cache-variables)))
(org-element-use-cache t)) (unwind-protect (progn
(org-element-cache-reset) (if (org-element--cache-active-p) nil (error
\\\"Cache must be active\\\")) (if (memq granularity ...) nil (error
\\\"Unsupported granularity: %S\\\" granularity)) (if (markerp to-pos)
nil (let ... ... ...)) (let (... tmpnext-start tmpparent tmpelement)
(save-excursion ...))) (cl-mapc #'(lambda ... ...)
org-element--cache-variables --old-state))))))\n
org-element-cache-map((closure ((deadline-items) (current . 739166)
(today?) (today . 739170) (regexp . \\\"\\\\\\\\<DEADLINE:
*<\\\\\\\\([^>]+\\\\\\\\)>\\\") (props mouse-face highlight
org-not-done-regexp \\\"\\\\\\\\(TODO\\\\\\\\)\\\" org-todo-regexp
\\\"\\\\\\\\(CANCELED\\\\\\\\|DONE\\\\\\\\|TODO\\\\\\\\|WAITING\\\\\\\\)\\\"
org-complex-heading-regexp \\\"^\\\\\\\\(\\\\\\\\*+\\\\\\\\)\\\\\\\\(?:
+\\\\\\\\(CANCELED\\\\\\\\|DONE\\\\\\\\|TODO\\\\\\\\|WAITING\\\\\\\\)\\\\\\\\)?...\\\"
help-echo \\\"mouse-2 or RET jump to org file ~/org/academics.or...\\\")
(with-hour)) (el) (if (and (org-element--property :deadline el nil nil)
(memq (org-element--property :type (org-element--property :deadline el
nil nil) nil nil) '(diary active active-range)) (or (not with-hour)
(org-element--property :hour-start (org-element--property :deadline el
nil nil) nil nil) (org-element--property :hour-end
(org-element--property :deadline el nil nil) nil nil))) (progn
(goto-char (org-element-contents-begin el)) (catch :skip
(org-agenda-skip el) (let* ((s ...) (pos ...) (todo-state ...) (done?
...) (sexp? ...) (deadline ...) (repeat ...) (diff ...)
(max-warning-days ...) (warning-days ...)) (cond (... nil) (... nil)
(... ...) (... ...) (t ...)) (if (and done? ...) (progn ...))
(save-excursion (goto-char ...) (let* ... ... ...))))))) :next-re
\\\"\\\\\\\\<DEADLINE: *<\\\\\\\\([^>]+\\\\\\\\)>\\\" :fail-re
\\\"\\\\\\\\<DEADLINE: *<\\\\\\\\([^>]+\\\\\\\\)>\\\" :narrow t)\n (let*
((props (list 'mouse-face 'highlight 'org-not-done-regexp
org-not-done-regexp 'org-todo-regexp org-todo-regexp
'org-complex-heading-regexp org-complex-heading-regexp 'help-echo
(format \\\"mouse-2 or RET jump to org file %s\\\" (abbreviate-file-name
buffer-file-name)))) (regexp (if with-hour org-deadline-time-hour-regexp
org-deadline-time-regexp)) (today (org-today)) (today?
(org-agenda-today-p date)) (current (calendar-absolute-from-gregorian
date)) deadline-items) (org-element-cache-map #'(lambda (el) (if (and
(org-element--property :deadline el nil nil) (memq
(org-element--property :type ... nil nil) '...) (or (not with-hour)
(org-element--property :hour-start ... nil nil) (org-element--property
:hour-end ... nil nil))) (progn (goto-char (org-element-contents-begin
el)) (catch :skip (org-agenda-skip el) (let* ... ... ... ...)))))
:next-re regexp :fail-re regexp :narrow t) (nreverse deadline-items))\n
org-agenda-get-deadlines()\n (setq deadlines
(org-agenda-get-deadlines))\n (let nil (setq deadlines
(org-agenda-get-deadlines)) (setq results (cons deadlines results)))\n
(cond ((eq arg :todo) (if (org-agenda-today-p date) (let nil (setq
results (cons (org-agenda-get-todos) results))))) ((eq arg :timestamp)
(let nil (setq results (cons (org-agenda-get-blocks) results)) (setq
results (cons (org-agenda-get-timestamps deadlines) results)))) ((eq arg
:sexp) (let nil (setq results (cons (org-agenda-get-sexps) results))))
((eq arg :scheduled) (let nil (setq results (cons
(org-agenda-get-scheduled deadlines) results)))) ((eq arg :scheduled*)
(let nil (setq results (cons (org-agenda-get-scheduled deadlines t)
results)))) ((eq arg :closed) (let nil (setq results (cons
(org-agenda-get-progress) results)))) ((eq arg :deadline) (let nil (setq
deadlines (org-agenda-get-deadlines)) (setq results (cons deadlines
results)))) ((eq arg :deadline*) (let nil (setq deadlines
(org-agenda-get-deadlines t)) (setq results (cons deadlines
results)))))\n (let ((arg (car tail))) (cond ((eq arg :todo) (if
(org-agenda-today-p date) (let nil (setq results (cons
(org-agenda-get-todos) results))))) ((eq arg :timestamp) (let nil (setq
results (cons (org-agenda-get-blocks) results)) (setq results (cons
(org-agenda-get-timestamps deadlines) results)))) ((eq arg :sexp) (let
nil (setq results (cons (org-agenda-get-sexps) results)))) ((eq arg
:scheduled) (let nil (setq results (cons (org-agenda-get-scheduled
deadlines) results)))) ((eq arg :scheduled*) (let nil (setq results
(cons (org-agenda-get-scheduled deadlines t) results)))) ((eq arg
:closed) (let nil (setq results (cons (org-agenda-get-progress)
results)))) ((eq arg :deadline) (let nil (setq deadlines
(org-agenda-get-deadlines)) (setq results (cons deadlines results))))
((eq arg :deadline*) (let nil (setq deadlines (org-agenda-get-deadlines
t)) (setq results (cons deadlines results))))) (setq tail (cdr tail)))\n
(while tail (let ((arg (car tail))) (cond ((eq arg :todo) (if
(org-agenda-today-p date) (let nil (setq results (cons ... results)))))
((eq arg :timestamp) (let nil (setq results (cons
(org-agenda-get-blocks) results)) (setq results (cons
(org-agenda-get-timestamps deadlines) results)))) ((eq arg :sexp) (let
nil (setq results (cons (org-agenda-get-sexps) results)))) ((eq arg
:scheduled) (let nil (setq results (cons (org-agenda-get-scheduled
deadlines) results)))) ((eq arg :scheduled*) (let nil (setq results
(cons (org-agenda-get-scheduled deadlines t) results)))) ((eq arg
:closed) (let nil (setq results (cons (org-agenda-get-progress)
results)))) ((eq arg :deadline) (let nil (setq deadlines
(org-agenda-get-deadlines)) (setq results (cons deadlines results))))
((eq arg :deadline*) (let nil (setq deadlines (org-agenda-get-deadlines
t)) (setq results (cons deadlines results))))) (setq tail (cdr
tail))))\n (let ((tail args)) (while tail (let ((arg (car tail))) (cond
((eq arg :todo) (if (org-agenda-today-p date) (let nil (setq results
...)))) ((eq arg :timestamp) (let nil (setq results (cons ... results))
(setq results (cons ... results)))) ((eq arg :sexp) (let nil (setq
results (cons ... results)))) ((eq arg :scheduled) (let nil (setq
results (cons ... results)))) ((eq arg :scheduled*) (let nil (setq
results (cons ... results)))) ((eq arg :closed) (let nil (setq results
(cons ... results)))) ((eq arg :deadline) (let nil (setq deadlines
(org-agenda-get-deadlines)) (setq results (cons deadlines results))))
((eq arg :deadline*) (let nil (setq deadlines (org-agenda-get-deadlines
t)) (setq results (cons deadlines results))))) (setq tail (cdr tail))))
(apply #'nconc (nreverse results)))\n (let* ((date date)) (let ((tail
args)) (while tail (let ((arg (car tail))) (cond ((eq arg :todo) (if
(org-agenda-today-p date) (let nil ...))) ((eq arg :timestamp) (let nil
(setq results ...) (setq results ...))) ((eq arg :sexp) (let nil (setq
results ...))) ((eq arg :scheduled) (let nil (setq results ...))) ((eq
arg :scheduled*) (let nil (setq results ...))) ((eq arg :closed) (let
nil (setq results ...))) ((eq arg :deadline) (let nil (setq deadlines
...) (setq results ...))) ((eq arg :deadline*) (let nil (setq deadlines
...) (setq results ...)))) (setq tail (cdr tail)))) (apply #'nconc
(nreverse results))))\n (progn (with-no-warnings (defvar date)) (let*
((date date)) (let ((tail args)) (while tail (let ((arg (car tail)))
(cond ((eq arg :todo) (if ... ...)) ((eq arg :timestamp) (let nil ...
...)) ((eq arg :sexp) (let nil ...)) ((eq arg :scheduled) (let nil ...))
((eq arg :scheduled*) (let nil ...)) ((eq arg :closed) (let nil ...))
((eq arg :deadline) (let nil ... ...)) ((eq arg :deadline*) (let nil ...
...))) (setq tail (cdr tail)))) (apply #'nconc (nreverse results)))))\n
(let ((case-fold-search nil) results deadlines) (progn (with-no-warnings
(defvar date)) (let* ((date date)) (let ((tail args)) (while tail (let
((arg ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (...
...) (... ...) (... ...)) (setq tail (cdr tail)))) (apply #'nconc
(nreverse results))))))\n (save-restriction (if (eq buffer
org-agenda-restrict) (narrow-to-region org-agenda-restrict-begin
org-agenda-restrict-end) (widen)) (setq args (org-uniquify (or args
org-agenda-entry-types))) (if (and (memq :scheduled args) (memq
:scheduled* args)) (progn (setq args (delq :scheduled* args)))) (cond
((memq :deadline args) (setq args (cons :deadline (delq :deadline (delq
:deadline* args))))) ((memq :deadline* args) (setq args (cons :deadline*
(delq :deadline* args))))) (let ((case-fold-search nil) results
deadlines) (progn (with-no-warnings (defvar date)) (let* ((date date))
(let ((tail args)) (while tail (let (...) (cond ... ... ... ... ... ...
... ...) (setq tail ...))) (apply #'nconc (nreverse results)))))))\n
(save-excursion (save-restriction (if (eq buffer org-agenda-restrict)
(narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end)
(widen)) (setq args (org-uniquify (or args org-agenda-entry-types))) (if
(and (memq :scheduled args) (memq :scheduled* args)) (progn (setq args
(delq :scheduled* args)))) (cond ((memq :deadline args) (setq args (cons
:deadline (delq :deadline (delq :deadline* args))))) ((memq :deadline*
args) (setq args (cons :deadline* (delq :deadline* args))))) (let
((case-fold-search nil) results deadlines) (progn (with-no-warnings
(defvar date)) (let* ((date date)) (let ((tail args)) (while tail (let
... ... ...)) (apply #'nconc (nreverse results))))))))\n
(save-current-buffer (set-buffer buffer) (if (derived-mode-p 'org-mode)
nil (error \\\"Agenda file %s is not in Org mode\\\" file)) (setq
org-agenda-buffer (or org-agenda-buffer buffer)) (setq
org-agenda-current-date date) (save-excursion (save-restriction (if (eq
buffer org-agenda-restrict) (narrow-to-region org-agenda-restrict-begin
org-agenda-restrict-end) (widen)) (setq args (org-uniquify (or args
org-agenda-entry-types))) (if (and (memq :scheduled args) (memq
:scheduled* args)) (progn (setq args (delq :scheduled* args)))) (cond
((memq :deadline args) (setq args (cons :deadline (delq :deadline
...)))) ((memq :deadline* args) (setq args (cons :deadline* (delq
:deadline* args))))) (let ((case-fold-search nil) results deadlines)
(progn (with-no-warnings (defvar date)) (let* ((date date)) (let (...)
(while tail ...) (apply ... ...))))))))\n (if (not buffer) (list (format
\\\"ORG-AGENDA-ERROR: No such org-file %s\\\" file))
(save-current-buffer (set-buffer buffer) (if (derived-mode-p 'org-mode)
nil (error \\\"Agenda file %s is not in Org mode\\\" file)) (setq
org-agenda-buffer (or org-agenda-buffer buffer)) (setq
org-agenda-current-date date) (save-excursion (save-restriction (if (eq
buffer org-agenda-restrict) (narrow-to-region org-agenda-restrict-begin
org-agenda-restrict-end) (widen)) (setq args (org-uniquify (or args
org-agenda-entry-types))) (if (and (memq :scheduled args) (memq
:scheduled* args)) (progn (setq args (delq :scheduled* args)))) (cond
((memq :deadline args) (setq args (cons :deadline ...))) ((memq
:deadline* args) (setq args (cons :deadline* ...)))) (let
((case-fold-search nil) results deadlines) (progn (with-no-warnings
(defvar date)) (let* (...) (let ... ... ...))))))))\n (let*
((org-startup-folded nil) (org-startup-align-all-tables nil) (buffer (if
(file-exists-p file) (org-get-agenda-file-buffer file) (error \\\"No
such file %s\\\" file)))) (if (not buffer) (list (format
\\\"ORG-AGENDA-ERROR: No such org-file %s\\\" file))
(save-current-buffer (set-buffer buffer) (if (derived-mode-p 'org-mode)
nil (error \\\"Agenda file %s is not in Org mode\\\" file)) (setq
org-agenda-buffer (or org-agenda-buffer buffer)) (setq
org-agenda-current-date date) (save-excursion (save-restriction (if (eq
buffer org-agenda-restrict) (narrow-to-region org-agenda-restrict-begin
org-agenda-restrict-end) (widen)) (setq args (org-uniquify (or args
org-agenda-entry-types))) (if (and (memq :scheduled args) (memq
:scheduled* args)) (progn (setq args ...))) (cond ((memq :deadline args)
(setq args ...)) ((memq :deadline* args) (setq args ...))) (let
((case-fold-search nil) results deadlines) (progn (with-no-warnings ...)
(let* ... ...))))))))\n
org-agenda-get-day-entries(\\\"/Users/andrew/org/academics.org\\\" (10 7
2024) :deadline :scheduled :timestamp :sexp)\n
apply(org-agenda-get-day-entries \\\"/Users/andrew/org/academics.org\\\"
(10 7 2024) (:deadline :scheduled :timestamp :sexp))\n (setq rtn (apply
#'org-agenda-get-day-entries file date org-agenda-entry-types))\n (cond
((memq org-agenda-show-log-scoped '(only clockcheck)) (setq rtn
(org-agenda-get-day-entries file date :closed)))
(org-agenda-show-log-scoped (setq rtn (apply
#'org-agenda-get-day-entries file date (append '(:closed)
org-agenda-entry-types)))) (t (setq rtn (apply
#'org-agenda-get-day-entries file date org-agenda-entry-types))))\n (let
((org-agenda-entry-types org-agenda-entry-types)) (if (member :deadline*
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq
:deadline org-agenda-entry-types)))) (if (member :scheduled*
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq
:scheduled org-agenda-entry-types)))) (if with-hour (progn (if (member
:deadline org-agenda-entry-types) (progn (setq org-agenda-entry-types
(delq :deadline org-agenda-entry-types)) (setq org-agenda-entry-types
(cons :deadline* org-agenda-entry-types)))) (if (member :scheduled
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq
:scheduled org-agenda-entry-types)) (setq org-agenda-entry-types (cons
:scheduled* org-agenda-entry-types)))))) (if
org-agenda-include-deadlines nil (setq org-agenda-entry-types (delq
:deadline* (delq :deadline org-agenda-entry-types)))) (cond ((memq
org-agenda-show-log-scoped '(only clockcheck)) (setq rtn
(org-agenda-get-day-entries file date :closed)))
(org-agenda-show-log-scoped (setq rtn (apply
#'org-agenda-get-day-entries file date (append '(:closed)
org-agenda-entry-types)))) (t (setq rtn (apply
#'org-agenda-get-day-entries file date org-agenda-entry-types)))))\n
(catch 'nextfile (org-check-agenda-file file) (let
((org-agenda-entry-types org-agenda-entry-types)) (if (member :deadline*
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq
:deadline org-agenda-entry-types)))) (if (member :scheduled*
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq
:scheduled org-agenda-entry-types)))) (if with-hour (progn (if (member
:deadline org-agenda-entry-types) (progn (setq org-agenda-entry-types
(delq :deadline org-agenda-entry-types)) (setq org-agenda-entry-types
(cons :deadline* org-agenda-entry-types)))) (if (member :scheduled
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq
:scheduled org-agenda-entry-types)) (setq org-agenda-entry-types (cons
:scheduled* org-agenda-entry-types)))))) (if
org-agenda-include-deadlines nil (setq org-agenda-entry-types (delq
:deadline* (delq :deadline org-agenda-entry-types)))) (cond ((memq
org-agenda-show-log-scoped '(only clockcheck)) (setq rtn
(org-agenda-get-day-entries file date :closed)))
(org-agenda-show-log-scoped (setq rtn (apply
#'org-agenda-get-day-entries file date (append '...
org-agenda-entry-types)))) (t (setq rtn (apply
#'org-agenda-get-day-entries file date org-agenda-entry-types))))) (setq
rtnall (append rtnall rtn)))\n (while (setq file (car-safe (prog1 files
(setq files (cdr files))))) (catch 'nextfile (org-check-agenda-file
file) (let ((org-agenda-entry-types org-agenda-entry-types)) (if (member
:deadline* org-agenda-entry-types) (progn (setq org-agenda-entry-types
(delq :deadline org-agenda-entry-types)))) (if (member :scheduled*
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq
:scheduled org-agenda-entry-types)))) (if with-hour (progn (if (member
:deadline org-agenda-entry-types) (progn (setq org-agenda-entry-types
...) (setq org-agenda-entry-types ...))) (if (member :scheduled
org-agenda-entry-types) (progn (setq org-agenda-entry-types ...) (setq
org-agenda-entry-types ...))))) (if org-agenda-include-deadlines nil
(setq org-agenda-entry-types (delq :deadline* (delq :deadline
org-agenda-entry-types)))) (cond ((memq org-agenda-show-log-scoped
'(only clockcheck)) (setq rtn (org-agenda-get-day-entries file date
:closed))) (org-agenda-show-log-scoped (setq rtn (apply
#'org-agenda-get-day-entries file date (append ...
org-agenda-entry-types)))) (t (setq rtn (apply
#'org-agenda-get-day-entries file date org-agenda-entry-types))))) (setq
rtnall (append rtnall rtn))))\n (while (setq d (car-safe (prog1
day-numbers (setq day-numbers (cdr day-numbers))))) (progn (setq date
(calendar-gregorian-from-absolute d)) (setq s (point))) (if (or (setq
todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos
(point)) (if (and start-pos (not end-pos)) (progn (setq end-pos
(point))))) (progn (setq files thefiles) (setq rtnall nil)) (while (setq
file (car-safe (prog1 files (setq files (cdr files))))) (catch 'nextfile
(org-check-agenda-file file) (let ((org-agenda-entry-types
org-agenda-entry-types)) (if (member :deadline* org-agenda-entry-types)
(progn (setq org-agenda-entry-types (delq :deadline
org-agenda-entry-types)))) (if (member :scheduled*
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq
:scheduled org-agenda-entry-types)))) (if with-hour (progn (if (member
:deadline org-agenda-entry-types) (progn ... ...)) (if (member
:scheduled org-agenda-entry-types) (progn ... ...)))) (if
org-agenda-include-deadlines nil (setq org-agenda-entry-types (delq
:deadline* (delq :deadline org-agenda-entry-types)))) (cond ((memq
org-agenda-show-log-scoped '...) (setq rtn (org-agenda-get-day-entries
file date :closed))) (org-agenda-show-log-scoped (setq rtn (apply ...
file date ...))) (t (setq rtn (apply ... file date
org-agenda-entry-types))))) (setq rtnall (append rtnall rtn)))) (if
org-agenda-include-diary (progn (let
((org-agenda-search-headline-for-time t)) (require 'diary-lib) (setq rtn
(org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn)))))
(if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+
day-cnt)) (insert (if (stringp org-agenda-format-date)
(format-time-string org-agenda-format-date (org-time-from-absolute
date)) (funcall org-agenda-format-date date)) \\\"\\\\n\\\")
(put-text-property s (1- (point)) 'face (org-agenda-get-day-face date))
(put-text-property s (1- (point)) 'org-date-line t) (put-text-property s
(1- (point)) 'org-agenda-date-header t) (put-text-property s (1-
(point)) 'org-day-cnt day-cnt) (if todayp (progn (put-text-property s
(1- (point)) 'org-today t))) (setq rtnall
(org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (progn
(insert (org-agenda-finalize-entries rtnall 'agenda) \\\"\\\\n\\\")))
(put-text-property s (1- (point)) 'day d) (put-text-property s (1-
(point)) 'org-day-cnt day-cnt))))\n (let* ((span
(org-agenda-ndays-to-span (or span org-agenda-span))) (today
(org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays
span sd)) (org-agenda-start-on-weekday (and (or (eq ndays 7) (eq ndays
14)) org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil
'ifmode)) (files thefiles) (start (if (or (null
org-agenda-start-on-weekday) (< ndays 7)) sd (let* (... ... ...) (- sd
...)))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not
debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s rtn
rtnall file date d start-pos end-pos todayp clocktable-start
clocktable-end) (setq org-agenda-redo-command (list 'org-agenda-list
(list 'quote arg) start-day (list 'quote span) with-hour)) (let
((upper-bound (1- ndays)) (counter 0)) (while (< counter upper-bound)
(let ((_ counter)) (setq day-numbers (cons ... day-numbers))) (setq
counter (1+ counter)))) (setq day-numbers (nreverse day-numbers)) (progn
(setq clocktable-start (car day-numbers)) (setq clocktable-end (1+ (or
(org-last day-numbers) 0)))) (set (make-local-variable
'org-starting-day) (car day-numbers)) (set (make-local-variable
'org-arg-loc) arg) (set (make-local-variable 'org-agenda-current-span)
(org-agenda-ndays-to-span span)) (if org-agenda-compact-blocks nil (let*
((d1 (car day-numbers)) (d2 (org-last day-numbers)) (w1
(org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s
(point)) (cond ((not org-agenda-overriding-header) (insert ...)) ((equal
org-agenda-overriding-header \\\"\\\") nil) ((stringp
org-agenda-overriding-header) (insert ... \\\"\\\\n\\\")) ((functionp
org-agenda-overriding-header) (insert ...)) (t (user-error \\\"Invalid
value for `org-agenda-overridi...\\\" org-agenda-overriding-header))))
(if (> (point) s) (progn (add-text-properties s (1- ...) (list ... ...
... t)) (org-agenda-mark-header-line s)))) (while (setq d (car-safe
(prog1 day-numbers (setq day-numbers ...)))) (progn (setq date
(calendar-gregorian-from-absolute d)) (setq s (point))) (if (or (setq
todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos
(point)) (if (and start-pos (not end-pos)) (progn (setq end-pos ...))))
(progn (setq files thefiles) (setq rtnall nil)) (while (setq file
(car-safe (prog1 files ...))) (catch 'nextfile (org-check-agenda-file
file) (let (...) (if ... ...) (if ... ...) (if with-hour ...) (if
org-agenda-include-deadlines nil ...) (cond ... ... ...)) (setq rtnall
(append rtnall rtn)))) (if org-agenda-include-diary (progn (let (...)
(require ...) (setq rtn ...) (setq rtnall ...)))) (if (or rtnall
org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert
(if ... ... ...) \\\"\\\\n\\\") (put-text-property s (1- ...) 'face
(org-agenda-get-day-face date)) (put-text-property s (1- ...)
'org-date-line t) (put-text-property s (1- ...) 'org-agenda-date-header
t) (put-text-property s (1- ...) 'org-day-cnt day-cnt) (if todayp (progn
...)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp))
(if rtnall (progn ...)) (put-text-property s (1- ...) 'day d)
(put-text-property s (1- ...) 'org-day-cnt day-cnt)))) (if (and
org-agenda-clockreport-mode clocktable-start) (progn (let
((org-agenda-files ...) (p ...) tbl) (setq p (org-plist-delete p
:block)) (setq p (plist-put p :tstart clocktable-start)) (setq p
(plist-put p :tend clocktable-end)) (setq p (plist-put p :scope ...))
(setq tbl (apply ... p)) (if org-agenda-clock-report-header (progn ...
...)) (insert tbl)))) (goto-char (point-min)) (or org-agenda-multi
(org-agenda-fit-window-to-buffer)) (if (or (not (get-buffer-window
org-agenda-buffer-name)) (and (pos-visible-in-window-p (point-min))
(pos-visible-in-window-p (point-max)))) nil (goto-char (1- (point-max)))
(recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1)))
(progn (goto-char (or start-pos 1)) (recenter 1)))) (goto-char (or
start-pos 1)) (add-text-properties (point-min) (point-max) (list
'org-agenda-type 'agenda 'org-last-args (list arg start-day span)
'org-redo-cmd org-agenda-redo-command 'org-series-cmd org-cmd)) (if (eq
org-agenda-show-log-scoped 'clockcheck) (progn
(org-agenda-show-clocking-issues))) (org-agenda-finalize) (setq
buffer-read-only t) (message \\\"\\\"))\n (catch 'exit (setq
org-agenda-buffer-name (org-agenda--get-buffer-name (and
org-agenda-sticky (cond ((and org-keys ...) (format \\\"*Org
Agenda(%s:%s)*\\\" org-keys org-match)) (org-keys (format \\\"*Org
Agenda(%s)*\\\" org-keys)) (t \\\"*Org Agenda(a)*\\\")))))
(org-agenda-prepare \\\"Day/Week\\\") (setq start-day (or start-day
org-agenda-start-day)) (if (stringp start-day) (progn (setq start-day
(time-to-days (org-read-date nil t start-day)))))
(org-compile-prefix-format 'agenda) (org-set-sorting-strategy 'agenda)
(let* ((span (org-agenda-ndays-to-span (or span org-agenda-span)))
(today (org-today)) (sd (or start-day today)) (ndays
(org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday (and
(or (eq ndays 7) (eq ndays 14)) org-agenda-start-on-weekday)) (thefiles
(org-agenda-files nil 'ifmode)) (files thefiles) (start (if (or (null
org-agenda-start-on-weekday) (< ndays 7)) sd (let* (... ... ...) (- sd
...)))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not
debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s rtn
rtnall file date d start-pos end-pos todayp clocktable-start
clocktable-end) (setq org-agenda-redo-command (list 'org-agenda-list
(list 'quote arg) start-day (list 'quote span) with-hour)) (let
((upper-bound (1- ndays)) (counter 0)) (while (< counter upper-bound)
(let ((_ counter)) (setq day-numbers (cons ... day-numbers))) (setq
counter (1+ counter)))) (setq day-numbers (nreverse day-numbers)) (progn
(setq clocktable-start (car day-numbers)) (setq clocktable-end (1+ (or
(org-last day-numbers) 0)))) (set (make-local-variable
'org-starting-day) (car day-numbers)) (set (make-local-variable
'org-arg-loc) arg) (set (make-local-variable 'org-agenda-current-span)
(org-agenda-ndays-to-span span)) (if org-agenda-compact-blocks nil (let*
((d1 (car day-numbers)) (d2 (org-last day-numbers)) (w1
(org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s
(point)) (cond ((not org-agenda-overriding-header) (insert ...)) ((equal
org-agenda-overriding-header \\\"\\\") nil) ((stringp
org-agenda-overriding-header) (insert ... \\\"\\\\n\\\")) ((functionp
org-agenda-overriding-header) (insert ...)) (t (user-error \\\"Invalid
value for `org-agenda-overriding-hea...\\\"
org-agenda-overriding-header)))) (if (> (point) s) (progn
(add-text-properties s (1- ...) (list ... ... ... t))
(org-agenda-mark-header-line s)))) (while (setq d (car-safe (prog1
day-numbers (setq day-numbers ...)))) (progn (setq date
(calendar-gregorian-from-absolute d)) (setq s (point))) (if (or (setq
todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos
(point)) (if (and start-pos (not end-pos)) (progn (setq end-pos ...))))
(progn (setq files thefiles) (setq rtnall nil)) (while (setq file
(car-safe (prog1 files ...))) (catch 'nextfile (org-check-agenda-file
file) (let (...) (if ... ...) (if ... ...) (if with-hour ...) (if
org-agenda-include-deadlines nil ...) (cond ... ... ...)) (setq rtnall
(append rtnall rtn)))) (if org-agenda-include-diary (progn (let (...)
(require ...) (setq rtn ...) (setq rtnall ...)))) (if (or rtnall
org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert
(if ... ... ...) \\\"\\\\n\\\") (put-text-property s (1- ...) 'face
(org-agenda-get-day-face date)) (put-text-property s (1- ...)
'org-date-line t) (put-text-property s (1- ...) 'org-agenda-date-header
t) (put-text-property s (1- ...) 'org-day-cnt day-cnt) (if todayp (progn
...)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp))
(if rtnall (progn ...)) (put-text-property s (1- ...) 'day d)
(put-text-property s (1- ...) 'org-day-cnt day-cnt)))) (if (and
org-agenda-clockreport-mode clocktable-start) (progn (let
((org-agenda-files ...) (p ...) tbl) (setq p (org-plist-delete p
:block)) (setq p (plist-put p :tstart clocktable-start)) (setq p
(plist-put p :tend clocktable-end)) (setq p (plist-put p :scope ...))
(setq tbl (apply ... p)) (if org-agenda-clock-report-header (progn ...
...)) (insert tbl)))) (goto-char (point-min)) (or org-agenda-multi
(org-agenda-fit-window-to-buffer)) (if (or (not (get-buffer-window
org-agenda-buffer-name)) (and (pos-visible-in-window-p (point-min))
(pos-visible-in-window-p (point-max)))) nil (goto-char (1- (point-max)))
(recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1)))
(progn (goto-char (or start-pos 1)) (recenter 1)))) (goto-char (or
start-pos 1)) (add-text-properties (point-min) (point-max) (list
'org-agenda-type 'agenda 'org-last-args (list arg start-day span)
'org-redo-cmd org-agenda-redo-command 'org-series-cmd org-cmd)) (if (eq
org-agenda-show-log-scoped 'clockcheck) (progn
(org-agenda-show-clocking-issues))) (org-agenda-finalize) (setq
buffer-read-only t) (message \\\"\\\")))\n org-agenda-list(nil)\n
funcall-interactively(org-agenda-list nil)\n
call-interactively(org-agenda-list)\n (cond ((setq entry (assoc org-keys
org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp
(nth 2 entry))) (progn (progn (setq type (nth 2 entry)) (setq org-match
(eval (nth 3 entry) t)) (setq lprops (nth 4 entry))) (if
org-agenda-sticky (progn (setq org-agenda-buffer-name (or ... ...))))
(progn (let* ((syms ...) (vals ...) (body ...) (binds nil)) (while syms
(setq binds ...)) (eval (list ... ... ...)))) (let ((inhibit-read-only
t)) (add-text-properties (point-min) (point-max) (list 'org-lprops
lprops)))) (org-agenda-run-series (nth 1 entry) (cdr (cdr entry)))))
((equal org-keys \\\"C\\\") (setq org-agenda-custom-commands
org-agenda-custom-commands-orig) (customize-variable
'org-agenda-custom-commands)) ((equal org-keys \\\"a\\\")
(call-interactively 'org-agenda-list)) ((equal org-keys \\\"s\\\")
(call-interactively 'org-search-view)) ((equal org-keys \\\"S\\\")
(org-call-with-arg 'org-search-view (or arg '(4)))) ((equal org-keys
\\\"t\\\") (call-interactively 'org-todo-list)) ((equal org-keys
\\\"T\\\") (org-call-with-arg 'org-todo-list (or arg '(4)))) ((equal
org-keys \\\"m\\\") (call-interactively 'org-tags-view)) ((equal
org-keys \\\"M\\\") (org-call-with-arg 'org-tags-view (or arg '(4))))
((equal org-keys \\\"e\\\") (call-interactively
'org-store-agenda-views)) ((equal org-keys \\\"?\\\") (org-tags-view nil
\\\"+FLAGGED\\\") (add-hook 'post-command-hook #'(lambda nil (if
(current-message) nil (let* (... ...) (if note ...)))) t t)) ((equal
org-keys \\\"#\\\") (call-interactively
'org-agenda-list-stuck-projects)) ((equal org-keys \\\"/\\\")
(call-interactively 'org-occur-in-agenda-files)) ((equal org-keys
\\\"!\\\") (customize-variable 'org-stuck-projects)) (t (user-error
\\\"Invalid agenda key\\\")))\n (let* ((org-keys keys)
(prefix-descriptions nil) (org-agenda-buffer-name
org-agenda-buffer-name) (org-agenda-window-setup (if (equal
(buffer-name) org-agenda-buffer-name) 'current-window
org-agenda-window-setup)) (org-agenda-custom-commands-orig
org-agenda-custom-commands) (org-agenda-custom-commands (delq nil
(mapcar #'(lambda (x) (cond ... ... ... ...))
org-agenda-custom-commands))) (org-agenda-custom-commands
(org-contextualize-keys org-agenda-custom-commands
org-agenda-custom-commands-contexts)) (bfn (buffer-file-name
(buffer-base-buffer))) entry type org-match lprops ans) (if
org-agenda-overriding-restriction nil (if
org-agenda-keep-restricted-file-list nil (put 'org-agenda-files
'org-restrict nil)) (setq org-agenda-restrict nil) (move-marker
org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end
nil)) (if org-keys nil (progn (setq ans
(org-agenda-get-restriction-and-command prefix-descriptions)) (setq
org-keys (car ans)) (setq restriction (cdr ans)))) (if org-agenda-sticky
(progn (setq org-agenda-buffer-name (format \\\"*Org Agenda(%s)*\\\"
org-keys)))) (if (and (not org-agenda-overriding-restriction)
restriction) (progn (put 'org-agenda-files 'org-restrict (list bfn))
(cond ((eq restriction 'region) (setq org-agenda-restrict
(current-buffer)) (move-marker org-agenda-restrict-begin
(region-beginning)) (move-marker org-agenda-restrict-end (region-end)))
((eq restriction 'subtree) (save-excursion (setq org-agenda-restrict
(current-buffer)) (org-back-to-heading t) (move-marker
org-agenda-restrict-begin (point)) (move-marker org-agenda-restrict-end
(progn ...)))) ((eq restriction 'buffer) (if (not (buffer-narrowed-p))
(setq org-agenda-restrict t) (setq org-agenda-restrict (current-buffer))
(move-marker org-agenda-restrict-begin (point-min)) (move-marker
org-agenda-restrict-end (point-max))))))) (cond ((setq entry (assoc
org-keys org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry))
(functionp (nth 2 entry))) (progn (progn (setq type (nth 2 entry)) (setq
org-match (eval ... t)) (setq lprops (nth 4 entry))) (if
org-agenda-sticky (progn (setq org-agenda-buffer-name ...))) (progn
(let* (... ... ... ...) (while syms ...) (eval ...))) (let
((inhibit-read-only t)) (add-text-properties (point-min) (point-max)
(list ... lprops)))) (org-agenda-run-series (nth 1 entry) (cdr (cdr
entry))))) ((equal org-keys \\\"C\\\") (setq org-agenda-custom-commands
org-agenda-custom-commands-orig) (customize-variable
'org-agenda-custom-commands)) ((equal org-keys \\\"a\\\")
(call-interactively 'org-agenda-list)) ((equal org-keys \\\"s\\\")
(call-interactively 'org-search-view)) ((equal org-keys \\\"S\\\")
(org-call-with-arg 'org-search-view (or arg '(4)))) ((equal org-keys
\\\"t\\\") (call-interactively 'org-todo-list)) ((equal org-keys
\\\"T\\\") (org-call-with-arg 'org-todo-list (or arg '(4)))) ((equal
org-keys \\\"m\\\") (call-interactively 'org-tags-view)) ((equal
org-keys \\\"M\\\") (org-call-with-arg 'org-tags-view (or arg '(4))))
((equal org-keys \\\"e\\\") (call-interactively
'org-store-agenda-views)) ((equal org-keys \\\"?\\\") (org-tags-view nil
\\\"+FLAGGED\\\") (add-hook 'post-command-hook #'(lambda nil (if
(current-message) nil (let* ... ...))) t t)) ((equal org-keys \\\"#\\\")
(call-interactively 'org-agenda-list-stuck-projects)) ((equal org-keys
\\\"/\\\") (call-interactively 'org-occur-in-agenda-files)) ((equal
org-keys \\\"!\\\") (customize-variable 'org-stuck-projects)) (t
(user-error \\\"Invalid agenda key\\\"))))\n (catch 'exit (let*
((org-keys keys) (prefix-descriptions nil) (org-agenda-buffer-name
org-agenda-buffer-name) (org-agenda-window-setup (if (equal
(buffer-name) org-agenda-buffer-name) 'current-window
org-agenda-window-setup)) (org-agenda-custom-commands-orig
org-agenda-custom-commands) (org-agenda-custom-commands (delq nil
(mapcar #'(lambda ... ...) org-agenda-custom-commands)))
(org-agenda-custom-commands (org-contextualize-keys
org-agenda-custom-commands org-agenda-custom-commands-contexts)) (bfn
(buffer-file-name (buffer-base-buffer))) entry type org-match lprops
ans) (if org-agenda-overriding-restriction nil (if
org-agenda-keep-restricted-file-list nil (put 'org-agenda-files
'org-restrict nil)) (setq org-agenda-restrict nil) (move-marker
org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end
nil)) (if org-keys nil (progn (setq ans
(org-agenda-get-restriction-and-command prefix-descriptions)) (setq
org-keys (car ans)) (setq restriction (cdr ans)))) (if org-agenda-sticky
(progn (setq org-agenda-buffer-name (format \\\"*Org Agenda(%s)*\\\"
org-keys)))) (if (and (not org-agenda-overriding-restriction)
restriction) (progn (put 'org-agenda-files 'org-restrict (list bfn))
(cond ((eq restriction 'region) (setq org-agenda-restrict
(current-buffer)) (move-marker org-agenda-restrict-begin
(region-beginning)) (move-marker org-agenda-restrict-end (region-end)))
((eq restriction 'subtree) (save-excursion (setq org-agenda-restrict
...) (org-back-to-heading t) (move-marker org-agenda-restrict-begin ...)
(move-marker org-agenda-restrict-end ...))) ((eq restriction 'buffer)
(if (not ...) (setq org-agenda-restrict t) (setq org-agenda-restrict
...) (move-marker org-agenda-restrict-begin ...) (move-marker
org-agenda-restrict-end ...)))))) (cond ((setq entry (assoc org-keys
org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp
(nth 2 entry))) (progn (progn (setq type ...) (setq org-match ...) (setq
lprops ...)) (if org-agenda-sticky (progn ...)) (progn (let* ... ...
...)) (let (...) (add-text-properties ... ... ...)))
(org-agenda-run-series (nth 1 entry) (cdr (cdr entry))))) ((equal
org-keys \\\"C\\\") (setq org-agenda-custom-commands
org-agenda-custom-commands-orig) (customize-variable
'org-agenda-custom-commands)) ((equal org-keys \\\"a\\\")
(call-interactively 'org-agenda-list)) ((equal org-keys \\\"s\\\")
(call-interactively 'org-search-view)) ((equal org-keys \\\"S\\\")
(org-call-with-arg 'org-search-view (or arg '(4)))) ((equal org-keys
\\\"t\\\") (call-interactively 'org-todo-list)) ((equal org-keys
\\\"T\\\") (org-call-with-arg 'org-todo-list (or arg '(4)))) ((equal
org-keys \\\"m\\\") (call-interactively 'org-tags-view)) ((equal
org-keys \\\"M\\\") (org-call-with-arg 'org-tags-view (or arg '(4))))
((equal org-keys \\\"e\\\") (call-interactively
'org-store-agenda-views)) ((equal org-keys \\\"?\\\") (org-tags-view nil
\\\"+FLAGGED\\\") (add-hook 'post-command-hook #'(lambda nil (if ... nil
...)) t t)) ((equal org-keys \\\"#\\\") (call-interactively
'org-agenda-list-stuck-projects)) ((equal org-keys \\\"/\\\")
(call-interactively 'org-occur-in-agenda-files)) ((equal org-keys
\\\"!\\\") (customize-variable 'org-stuck-projects)) (t (user-error
\\\"Invalid agenda key\\\")))))\n org-agenda(nil)\n
funcall-interactively(org-agenda nil)\n command-execute(org-agenda)\n
completing-read-multiple(\\\"Tags: \\\" ((\\\"symtom_log\\\")
(\\\"running_journal\\\") (\\\"tooling\\\") (\\\"masala\\\")
(\\\"weight\\\") (\\\"healthcare\\\") (\\\"ozempic_taper\\\")
(\\\"bp_reading\\\") (\\\"travel_log\\\")
(\\\"grad_school_decisions\\\") (\\\"crypto\\\") (\\\"symtp\\\")
(\\\"dream\\\") (\\\"mecfs\\\") (\\\"sasha\\\") (\\\"habits\\\")
(\\\"annie\\\") (\\\"dating\\\") (\\\"therap\\\") (\\\"therapy\\\")
(\\\"symptom_log\\\") (\\\"ergonomics\\\") (\\\"journal\\\")
(\\\"covid\\\") (\\\"ithaka\\\")) nil nil \\\":journal:\\\"
org-tags-history)\n org-set-tags-command(nil)\n
funcall-interactively(org-set-tags-command nil)\n
command-execute(org-set-tags-command)\n\"\n Please report this to Org
mode mailing list (M-x org-submit-bug-report).")
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-html-format-inlinetask-function
'org-html-format-inlinetask-default-function
org-clock-persist-file "~/.emacs.d/.cache/org-clock-save.el"
org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
org-refile-use-cache t
org-latex-prefer-user-labels t
org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
org-fold-core-isearch-open-function 'org-fold-core--isearch-reveal
org-preview-latex-default-process 'dvisvgm
org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-link-shell-confirm-function 'yes-or-no-p
org-babel-pre-tangle-hook '(save-buffer)
org-agenda-loop-over-headlines-in-active-region nil
org-capture-mode-hook '(spacemacs//org-capture-start)
org-occur-hook '(org-first-headline-recenter)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-parameters '(("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)
("attachment" :follow org-attach-follow :complete
org-attach-complete-link) ("eww" :follow org-eww-open :store
org-eww-store-link)
("rmail" :follow org-rmail-open :store org-rmail-store-link) ("mhe"
:follow org-mhe-open :store org-mhe-store-link)
("irc" :follow org-irc-visit :store org-irc-store-link :export
org-irc-export)
("info" :follow org-info-open :export org-info-export :store
org-info-store-link :insert-description org-info-description-as-command)
("gnus" :follow org-gnus-open :store org-gnus-store-link) ("docview"
:follow org-docview-open :export org-docview-export :store
org-docview-store-link)
("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete
org-bbdb-complete-link :store org-bbdb-store-link) ("w3m" :store
org-w3m-store-link)
("doi" :follow org-link-doi-open :export org-link-doi-export) ("id"
:follow org-id-open :store org-id-store-link-maybe)
("treemacs" :store treemacs-store-org-link)
("orgit-topic" :store orgit-topic-store :follow orgit-topic-open :export
orgit-topic-export :complete orgit-topic-complete-link :insert-description
orgit-topic-describe-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)"])
("http" :follow #[514 "\301\300\302Q\"\207" ["http" browse-url ":"] 6
"\n\n(fn URL ARG)"])
("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) ("elisp" :follow
org-link--open-elisp))
org-html-format-headline-function
'org-html-format-headline-default-function
org-metaup-hook '(org-babel-load-in-session-maybe)
org-agenda-restore-windows-after-quit t
org-agenda-include-diary t
org-startup-with-inline-images t
org-imenu-depth 8
org-download-link-format-function
'org-download-link-format-function-default
org-outline-path-complete-in-steps nil
org-src-lang-modes '(("beamer" . LaTeX) ("latex" . LaTeX) ("C" . c)
("C++" . c++) ("asymptote" . asy) ("beamer" . latex) ("calc" .
fundamental) ("cpp" . c++) ("ditaa" . artist)
("desktop" . conf-desktop) ("dot" . fundamental) ("elisp" . emacs-lisp)
("ocaml" . tuareg) ("screen" . shell-script) ("sqlite" . sql) ("toml" .
conf-toml)
("shell" . sh) ("ash" . sh) ("sh" . sh) ("bash" . sh) ("jsh" . sh)
("bash2" . sh) ("dash" . sh) ("dtksh" . sh) ("ksh" . sh) ("es" . sh)
("rc" . sh) ("itcsh" . sh)
("tcsh" . sh) ("jcsh" . sh) ("csh" . sh) ("ksh88" . sh) ("oash" . sh)
("pdksh" . sh) ("mksh" . sh) ("posix" . sh) ("wksh" . sh) ("wsh" . sh)
("zsh" . sh)
("rpm" . sh))
org-export-preserve-breaks t
)
next reply other threads:[~2024-10-12 10:10 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2024-10-11 6:56 Andrew Berger [this message]
2024-10-12 13:00 ` [BUG] warning while loading org-agenda [9.7.12 (9.7.12-28c83e @ /Users/andrew/.emacs.d/elpa/29.1/develop/org-9.7.12/)] Ihor Radchenko
2024-10-12 17:40 ` Andrew Berger
2024-10-12 17:52 ` Ihor Radchenko
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=ad7b6bea-0956-4e47-9c1f-e8934794c117@colorado.edu \
--to=aberger@colorado.edu \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).