gistfile1.el

Debugger entered--Lisp error: (error "‘org-element-at-point’ cannot be used in non-Org b...")
  error("`org-element-at-point' cannot be used in non-Org b..." #<buffer *Org Agenda(t)*> org-agenda-mode)
  (if (derived-mode-p 'org-mode) nil (error "`org-element-at-point' cannot be used in non-Org b..." (current-buffer) major-mode))
  (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (error "`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))))))
  (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (error "`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)))))))
  (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let* ((parray (and t ...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ... ... ...)))) (progn (set-buffer (let* (...) (if parray ... ...))))) (setq --mepom (let* ((parray (and t ...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ... ... ...))))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (error "`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))))))))
  (let ((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...))) (progn (set-buffer (let* ... ...)))) (setq --mepom (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...)))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (error "`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 ...))))))))
  (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* (...) (if parray ... ...)) (progn (set-buffer ...))) (setq --mepom (let* (...) (if parray ... ...))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (error "`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 ...)) (setq element (if cached-only ... ...)) (if (and ... element ...) (progn ...)) (if (eq ... ...) nil (if ... nil ...))))))))
  org-element-at-point(nil)
  (org-element-lineage (org-element-at-point epom) '(headline inlinetask org-data) 'with-self)
  (setq epom (org-element-lineage (org-element-at-point epom) '(headline inlinetask org-data) 'with-self))
  org--property-local-values("STYLE" nil nil)
  (let* ((local (org--property-local-values property literal-nil epom)) (value (and local (mapconcat #'identity (delq nil local) (org--property-get-separator property))))) (if literal-nil value (org-not-nil value)))
  (cond ((member-ignore-case property (cons "CATEGORY" org-special-properties)) (cdr (assoc-string property (org-entry-properties epom property)))) ((and inherit (or (not (eq inherit 'selective)) (org-property-inherit-p property))) (org-entry-get-with-inheritance property literal-nil epom)) (t (let* ((local (org--property-local-values property literal-nil epom)) (value (and local (mapconcat #'identity (delq nil local) (org--property-get-separator property))))) (if literal-nil value (org-not-nil value)))))
  org-entry-get(nil "STYLE" selective)
  (string= "habit" (org-entry-get epom "STYLE" 'selective))
  org-is-habit-p(nil)
  (if (org-is-habit-p (org-super-agenda--get-marker item)) (progn (setq matching (nconc matching (list item)))) (setq non-matching (nconc non-matching (list item))))
  (while (consp --cl-var--) (setq item (car --cl-var--)) (if (org-is-habit-p (org-super-agenda--get-marker item)) (progn (setq matching (nconc matching (list item)))) (setq non-matching (nconc non-matching (list item)))) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((section-name "Habits") (--cl-var-- items) (item nil) (matching nil) (non-matching nil)) (while (consp --cl-var--) (setq item (car --cl-var--)) (if (org-is-habit-p (org-super-agenda--get-marker item)) (progn (setq matching (nconc matching (list item)))) (setq non-matching (nconc non-matching (list item)))) (setq --cl-var-- (cdr --cl-var--))) (list section-name non-matching matching))
  (let* nil (let* ((section-name "Habits") (--cl-var-- items) (item nil) (matching nil) (non-matching nil)) (while (consp --cl-var--) (setq item (car --cl-var--)) (if (org-is-habit-p (org-super-agenda--get-marker item)) (progn (setq matching (nconc matching (list item)))) (setq non-matching (nconc non-matching (list item)))) (setq --cl-var-- (cdr --cl-var--))) (list section-name non-matching matching)))
  org-super-agenda--group-habit((... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) t)
  funcall(org-super-agenda--group-habit (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) t)
  (setq --cl-var-- (funcall fn items args))
  (progn (setq --cl-var-- (funcall fn items args)) (setq auto-section-name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq non-matching (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq matching (car --cl-var--)))
  (progn (progn (setq --cl-var-- (funcall fn items args)) (setq auto-section-name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq non-matching (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq matching (car --cl-var--))))
  (if fn (progn (progn (setq --cl-var-- (funcall fn items args)) (setq auto-section-name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq non-matching (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq matching (car --cl-var--)))))
  (while (consp --cl-var--) (progn (setq --cl-var-- --cl-var--) (setq selector (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq args (car --cl-var--))) (setq fn (org-super-agenda--get-selector-fn selector)) (if fn (progn (progn (setq --cl-var-- (funcall fn items args)) (setq auto-section-name (car-safe (prog1 --cl-var-- (setq --cl-var-- ...)))) (setq non-matching (car-safe (prog1 --cl-var-- (setq --cl-var-- ...)))) (setq matching (car --cl-var--))))) (if fn (progn (setq all-matches (append all-matches matching)) (setq names (nconc names (list auto-section-name))) (setq items non-matching))) (setq name (if (stringp (car names)) (s-join " and " (-non-nil names)) (car names))) (setq --cl-var-- (cdr (cdr --cl-var--))) (setq --cl-var-- nil))
  (let* ((--cl-var-- group) (selector nil) (args nil) (--cl-var--) (fn nil) (auto-section-name nil) (non-matching nil) (matching nil) (--cl-var--) (all-matches nil) (names nil) (name nil) (--cl-var-- t)) (while (consp --cl-var--) (progn (setq --cl-var-- --cl-var--) (setq selector (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq args (car --cl-var--))) (setq fn (org-super-agenda--get-selector-fn selector)) (if fn (progn (progn (setq --cl-var-- (funcall fn items args)) (setq auto-section-name (car-safe (prog1 --cl-var-- ...))) (setq non-matching (car-safe (prog1 --cl-var-- ...))) (setq matching (car --cl-var--))))) (if fn (progn (setq all-matches (append all-matches matching)) (setq names (nconc names (list auto-section-name))) (setq items non-matching))) (setq name (if (stringp (car names)) (s-join " and " (-non-nil names)) (car names))) (setq --cl-var-- (cdr (cdr --cl-var--))) (setq --cl-var-- nil)) (list name items all-matches))
  org-super-agenda--group-dispatch((... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (:habit t))
  (setq --cl-var-- (org-super-agenda--group-dispatch all-items filter))
  (progn (setq --cl-var-- (org-super-agenda--group-dispatch all-items filter)) (setq auto-section-name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq non-matching (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq matching (car --cl-var--)))
  (while (consp --cl-var--) (setq filter (car --cl-var--)) (setq custom-section-name (plist-get filter :name)) (setq order (or (plist-get filter :order) 0)) (progn (setq --cl-var-- (org-super-agenda--group-dispatch all-items filter)) (setq auto-section-name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq non-matching (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq matching (car --cl-var--))) (if org-super-agenda-keep-order (progn (setq matching (sort matching #'org-entries-lessp)))) (setq transformer (plist-get filter :transformer)) (let ((it transformer)) (if it (progn (setq matching (-map (let* (...) (cond ... ... ...)) matching))))) (setq face (plist-get filter :face)) (let ((it face)) (if it (progn (let ((append (plist-get face :append))) (if append (progn (if ... ... ...))) (let ((list matching) (i 0)) (while list (let ... ... ...) (setq i ...))))))) (if (memql auto-section-name org-super-agenda-auto-selector-keywords) (progn (setq section-name (or custom-section-name "Auto category/group")) (setq sections (append sections (let* ((--cl-var-- matching) (group nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq group ...) (setq --cl-var-- ...) (setq --cl-var-- ...)) (nreverse --cl-var--)))) (setq all-items non-matching)) (setq section-name (or custom-section-name auto-section-name)) (setq sections (nconc sections (list (list :name section-name :items matching :order order)))) (setq all-items non-matching)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- nil))
  (let* ((section-name nil) (--cl-var-- org-super-agenda-groups) (filter nil) (custom-section-name nil) (order nil) (auto-section-name nil) (non-matching nil) (matching nil) (--cl-var--) (transformer nil) (face nil) (sections nil) (--cl-var-- t)) (while (consp --cl-var--) (setq filter (car --cl-var--)) (setq custom-section-name (plist-get filter :name)) (setq order (or (plist-get filter :order) 0)) (progn (setq --cl-var-- (org-super-agenda--group-dispatch all-items filter)) (setq auto-section-name (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq non-matching (car-safe (prog1 --cl-var-- (setq --cl-var-- (cdr --cl-var--))))) (setq matching (car --cl-var--))) (if org-super-agenda-keep-order (progn (setq matching (sort matching #'org-entries-lessp)))) (setq transformer (plist-get filter :transformer)) (let ((it transformer)) (if it (progn (setq matching (-map (let* ... ...) matching))))) (setq face (plist-get filter :face)) (let ((it face)) (if it (progn (let ((append ...)) (if append (progn ...)) (let (... ...) (while list ... ...)))))) (if (memql auto-section-name org-super-agenda-auto-selector-keywords) (progn (setq section-name (or custom-section-name "Auto category/group")) (setq sections (append sections (let* (... ... ...) (while ... ... ... ...) (nreverse --cl-var--)))) (setq all-items non-matching)) (setq section-name (or custom-section-name auto-section-name)) (setq sections (nconc sections (list (list :name section-name :items matching :order order)))) (setq all-items non-matching)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- nil)) (setq non-matching (list :name org-super-agenda-unmatched-name :items non-matching :order org-super-agenda-unmatched-order)) (setq sections (-sort #'(lambda (it other) (ignore it other) (let ((o-it ...) (o-other ...)) (cond (... ...) (... ...) (t nil)))) (setq sections (cons non-matching sections)))) (let* ((--cl-var-- sections) (name nil) (items nil) (--cl-var--) (--cl-var--) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (progn (setq --cl-var-- (car --cl-var--)) (setq --cl-var-- (car-safe (prog1 --cl-var-- (setq --cl-var-- ...)))) (setq name (car-safe (prog1 --cl-var-- (setq --cl-var-- ...)))) (setq --cl-var-- (car-safe (prog1 --cl-var-- (setq --cl-var-- ...)))) (setq items (car --cl-var--))) (if items (progn (setq --cl-var-- (cons (org-super-agenda--make-agenda-header name) --cl-var--)) (setq --cl-var-- (nconc (reverse items) --cl-var--)))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))
  (let ((org-super-agenda-groups (org-super-agenda--transform-groups org-super-agenda-groups))) (let* ((section-name nil) (--cl-var-- org-super-agenda-groups) (filter nil) (custom-section-name nil) (order nil) (auto-section-name nil) (non-matching nil) (matching nil) (--cl-var--) (transformer nil) (face nil) (sections nil) (--cl-var-- t)) (while (consp --cl-var--) (setq filter (car --cl-var--)) (setq custom-section-name (plist-get filter :name)) (setq order (or (plist-get filter :order) 0)) (progn (setq --cl-var-- (org-super-agenda--group-dispatch all-items filter)) (setq auto-section-name (car-safe (prog1 --cl-var-- (setq --cl-var-- ...)))) (setq non-matching (car-safe (prog1 --cl-var-- (setq --cl-var-- ...)))) (setq matching (car --cl-var--))) (if org-super-agenda-keep-order (progn (setq matching (sort matching #'org-entries-lessp)))) (setq transformer (plist-get filter :transformer)) (let ((it transformer)) (if it (progn (setq matching (-map ... matching))))) (setq face (plist-get filter :face)) (let ((it face)) (if it (progn (let (...) (if append ...) (let ... ...))))) (if (memql auto-section-name org-super-agenda-auto-selector-keywords) (progn (setq section-name (or custom-section-name "Auto category/group")) (setq sections (append sections (let* ... ... ...))) (setq all-items non-matching)) (setq section-name (or custom-section-name auto-section-name)) (setq sections (nconc sections (list (list :name section-name :items matching :order order)))) (setq all-items non-matching)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- nil)) (setq non-matching (list :name org-super-agenda-unmatched-name :items non-matching :order org-super-agenda-unmatched-order)) (setq sections (-sort #'(lambda (it other) (ignore it other) (let (... ...) (cond ... ... ...))) (setq sections (cons non-matching sections)))) (let* ((--cl-var-- sections) (name nil) (items nil) (--cl-var--) (--cl-var--) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (progn (setq --cl-var-- (car --cl-var--)) (setq --cl-var-- (car-safe (prog1 --cl-var-- ...))) (setq name (car-safe (prog1 --cl-var-- ...))) (setq --cl-var-- (car-safe (prog1 --cl-var-- ...))) (setq items (car --cl-var--))) (if items (progn (setq --cl-var-- (cons ... --cl-var--)) (setq --cl-var-- (nconc ... --cl-var--)))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))))
  (if (and (boundp 'org-super-agenda-groups) org-super-agenda-groups) (let ((org-super-agenda-groups (org-super-agenda--transform-groups org-super-agenda-groups))) (let* ((section-name nil) (--cl-var-- org-super-agenda-groups) (filter nil) (custom-section-name nil) (order nil) (auto-section-name nil) (non-matching nil) (matching nil) (--cl-var--) (transformer nil) (face nil) (sections nil) (--cl-var-- t)) (while (consp --cl-var--) (setq filter (car --cl-var--)) (setq custom-section-name (plist-get filter :name)) (setq order (or (plist-get filter :order) 0)) (progn (setq --cl-var-- (org-super-agenda--group-dispatch all-items filter)) (setq auto-section-name (car-safe (prog1 --cl-var-- ...))) (setq non-matching (car-safe (prog1 --cl-var-- ...))) (setq matching (car --cl-var--))) (if org-super-agenda-keep-order (progn (setq matching (sort matching ...)))) (setq transformer (plist-get filter :transformer)) (let ((it transformer)) (if it (progn (setq matching ...)))) (setq face (plist-get filter :face)) (let ((it face)) (if it (progn (let ... ... ...)))) (if (memql auto-section-name org-super-agenda-auto-selector-keywords) (progn (setq section-name (or custom-section-name "Auto category/group")) (setq sections (append sections ...)) (setq all-items non-matching)) (setq section-name (or custom-section-name auto-section-name)) (setq sections (nconc sections (list ...))) (setq all-items non-matching)) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- nil)) (setq non-matching (list :name org-super-agenda-unmatched-name :items non-matching :order org-super-agenda-unmatched-order)) (setq sections (-sort #'(lambda (it other) (ignore it other) (let ... ...)) (setq sections (cons non-matching sections)))) (let* ((--cl-var-- sections) (name nil) (items nil) (--cl-var--) (--cl-var--) (--cl-var--) (--cl-var-- nil)) (while (consp --cl-var--) (progn (setq --cl-var-- (car --cl-var--)) (setq --cl-var-- (car-safe ...)) (setq name (car-safe ...)) (setq --cl-var-- (car-safe ...)) (setq items (car --cl-var--))) (if items (progn (setq --cl-var-- ...) (setq --cl-var-- ...))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))) all-items)
  org-super-agenda--group-items((... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))
  (let ((it (org-super-agenda--group-items it))) (let ((it (-remove #'s-blank-str? it))) (let ((it (s-join "\n" it))) (concat it (cond ((natnump org-super-agenda-final-group-separator) (concat "\n" (make-string ... org-super-agenda-final-group-separator))) ((stringp org-super-agenda-final-group-separator) org-super-agenda-final-group-separator) ((error "cl-etypecase failed: %s, %s" org-super-agenda-final-group-separator '...) nil))))))
  (let ((it (split-string it "\n" 'omit-nulls))) (let ((it (org-super-agenda--group-items it))) (let ((it (-remove #'s-blank-str? it))) (let ((it (s-join "\n" it))) (concat it (cond ((natnump org-super-agenda-final-group-separator) (concat "\n" ...)) ((stringp org-super-agenda-final-group-separator) org-super-agenda-final-group-separator) ((error "cl-etypecase failed: %s, %s" org-super-agenda-final-group-separator ...) nil)))))))
  (let ((it string)) (let ((it (split-string it "\n" 'omit-nulls))) (let ((it (org-super-agenda--group-items it))) (let ((it (-remove #'s-blank-str? it))) (let ((it (s-join "\n" it))) (concat it (cond (... ...) (... org-super-agenda-final-group-separator) (... nil))))))))
  org-super-agenda--filter-finalize-entries(#("               8:00 ┄┄┄┄┄ ┄┄┄┄┄┄..." 0 2 (org-category "" tags nil org-priority-highest 65 org-priority-lowest 69 time-of-day 800 duration nil breadcrumbs nil txt #("┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄" 0 15 (org-heading t)) level "" time " 8:00 ┄┄┄┄┄ " extra nil format ((... ... ... ... ...) (format " %s %s%s%s" ... ... ... ...)) dotime "08:00") 2 26 (org-category "" tags nil org-priority-highest 65 org-priority-lowest 69 time-of-day 800 duration nil breadcrumbs nil txt #("┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄" 0 15 (org-heading t)) level "" time " 8:00 ┄┄┄┄┄ " extra nil format ((... ... ... ... ...) (format " %s %s%s%s" ... ... ... ...)) dotime "08:00" face org-time-grid) 26 41 (org-heading t org-category "" tags nil org-priority-highest 65 org-priority-lowest 69 time-of-day 800 duration nil breadcrumbs nil txt #("┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄" 0 15 (org-heading t)) level "" time " 8:00 ┄┄┄┄┄ " extra nil format ((... ... ... ... ...) (format " %s %s%s%s" ... ... ... ...)) dotime "08:00" face org-time-grid) 42 80 (org-category "PHONE" tags (#("phone" 0 5 ...)) org-priority-highest 65 org-priority-lowest 69 time-of-day 830 duration nil breadcrumbs nil txt #("TODO Pb152cv napsat email o stat..." 0 41 (org-heading t fontified nil effort nil effort-minutes nil) 41 43 (org-heading t) 43 48 (org-heading t inherited t) 48 50 (org-heading t)) level " " time " 8:30 ┄┄┄┄┄ " extra "Scheduled: " format ((... ... ... ... ...) (format " %s %s%s%s" ... ... ... ...)) dotime "08:30 " org-not-done-regexp "\\(HOLD\\|IDEA\\|LOOP\\|PROJ\\|STRT\\|..." org-todo-regexp "\\(DONE\\|HOLD\\|IDEA\\|KILL\\|LOOP\\|..." org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(DONE\\|HOLD\\|IDEA..." ...) 80 84 (todo-state "TODO" org-habit-p nil priority 2000 urgency 2099 warntime nil ts-date 738788 date (9 25 2023) type "scheduled" org-hd-marker #<marker (moves after insertion) at 399 in phone.org> org-marker #<marker (moves after insertion) at 454 in phone.org> face org-todo undone-face org-scheduled-today help-echo "mouse-2 or RET jump to Org file ..." mouse-face highlight done-face org-agenda-done org-complex-heading-regexp "^\\(\\*+\\)\\(?: +\\(DONE\\|HOLD\\|IDEA..." ...) 84 85 (todo-state "TODO" org-habit-p nil priority 2000 urgency 2099 effort-minutes nil effort nil warntime nil ts-date 738788 date (9 25 2023) type "scheduled" org-hd-marker #<marker (moves after insertion) at 399 in phone.org> org-marker #<marker (moves after insertion) at 454 in phone.org> face org-scheduled-today undone-face org-scheduled-today help-echo "mouse-2 or RET jump to Org file ..." mouse-face highlight ...) 85 121 (org-heading t fontified nil effort nil effort-minutes nil org-category "PHONE" tags (#("phone" 0 5 ...)) org-priority-highest 65 org-priority-lowest 69 time-of-day 830 duration nil breadcrumbs nil txt #("TODO Pb152cv napsat email o stat..." 0 41 (org-heading t fontified nil effort nil effort-minutes nil) 41 43 (org-heading t) 43 48 (org-heading t inherited t) 48 50 (org-heading t)) level " " time " 8:30 ┄┄┄┄┄ " extra "Scheduled: " format ((... ... ... ... ...) (format " %s %s%s%s" ... ... ... ...)) ...) 121 123 (org-heading t org-category "PHONE" tags (#("phone" 0 5 ...)) org-priority-highest 65 org-priority-lowest 69 time-of-day 830 duration nil breadcrumbs nil txt #("TODO Pb152cv napsat email o stat..." 0 41 (org-heading t fontified nil effort nil effort-minutes nil) 41 43 (org-heading t) 43 48 (org-heading t inherited t) 48 50 (org-heading t)) level " " time " 8:30 ┄┄┄┄┄ " extra "Scheduled: " format ((... ... ... ... ...) (format " %s %s%s%s" ... ... ... ...)) dotime "08:30 " org-not-done-regexp "\\(HOLD\\|IDEA\\|LOOP\\|PROJ\\|STRT\\|..." org-todo-regexp "\\(DONE\\|HOLD\\|IDEA\\|KILL\\|LOOP\\|..." ...) 123 128 (org-heading t inherited t org-category "PHONE" tags (#("phone" 0 5 ...)) org-priority-highest 65 org-priority-lowest 69 time-of-day 830 duration nil breadcrumbs nil txt #("TODO Pb152cv napsat email o stat..." 0 41 (org-heading t fontified nil effort nil effort-minutes nil) 41 43 (org-heading t) 43 48 (org-heading t inherited t) 48 50 (org-heading t)) level " " time " 8:30 ┄┄┄┄┄ " extra "Scheduled: " format ((... ... ... ... ...) (format " %s %s%s%s" ... ... ... ...)) dotime "08:30 " org-not-done-regexp "\\(HOLD\\|IDEA\\|LOOP\\|PROJ\\|STRT\\|..." ...) 128 130 (org-heading t org-category "PHONE" tags (#("phone" 0 5 ...)) org-priority-highest 65 org-priority-lowest 69 time-of-day 830 duration nil breadcrumbs nil txt #("TODO Pb152cv napsat email o stat..." 0 41 (org-heading t fontified nil effort nil effort-minutes nil) 41 43 (org-heading t) 43 48 (org-heading t inherited t) 48 50 (org-heading t)) level " " time " 8:30 ┄┄┄┄┄ " extra "Scheduled: " format ((... ... ... ... ...) (format " %s %s%s%s" ... ... ... ...)) dotime "08:30 " org-not-done-regexp "\\(HOLD\\|IDEA\\|LOOP\\|PROJ\\|STRT\\|..." org-todo-regexp "\\(DONE\\|HOLD\\|IDEA\\|KILL\\|LOOP\\|..." ...) ...))
  org-agenda-finalize-entries((... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) agenda)
  (insert (org-agenda-finalize-entries rtnall 'agenda) "\n")
  (progn (insert (org-agenda-finalize-entries rtnall 'agenda) "\n"))
  (if rtnall (progn (insert (org-agenda-finalize-entries rtnall 'agenda) "\n")))
  (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))
  (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)))
  (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))))
  (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 ""))
  (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 "")))
  org-agenda-list(nil)
  #<subr funcall-interactively>(org-agenda-list nil)
  apply(#<subr funcall-interactively> (org-agenda-list nil))
  funcall-interactively(org-agenda-list nil)
  #<subr call-interactively>(org-agenda-list)
  apply(#<subr call-interactively> org-agenda-list)
  explain-pause--wrap-call-interactively(#<subr call-interactively> org-agenda-list)
  apply(explain-pause--wrap-call-interactively #<subr call-interactively> org-agenda-list)
  call-interactively(org-agenda-list)
  (let nil (call-interactively 'org-agenda-list))
  (cond ((eq type 'agenda) (let nil (call-interactively 'org-agenda-list))) ((eq type 'agenda*) (let nil (funcall 'org-agenda-list nil nil nil t))) ((eq type 'alltodo) (let nil (call-interactively 'org-todo-list))) ((eq type 'search) (let nil (org-search-view current-prefix-arg match nil))) ((eq type 'stuck) (let nil (call-interactively 'org-agenda-list-stuck-projects))) ((eq type 'tags) (let nil (org-tags-view current-prefix-arg match))) ((eq type 'tags-todo) (let nil (org-tags-view '(4) match))) ((eq type 'todo) (let nil (org-todo-list match))) ((fboundp type) (let nil (funcall type match))) (t (let nil (error "Invalid type in command series"))))
  (closure ((type . agenda)) nil (cond ((eq type 'agenda) (let nil (call-interactively 'org-agenda-list))) ((eq type 'agenda*) (let nil (funcall 'org-agenda-list nil nil nil t))) ((eq type 'alltodo) (let nil (call-interactively 'org-todo-list))) ((eq type 'search) (let nil (org-search-view current-prefix-arg match nil))) ((eq type 'stuck) (let nil (call-interactively 'org-agenda-list-stuck-projects))) ((eq type 'tags) (let nil (org-tags-view current-prefix-arg match))) ((eq type 'tags-todo) (let nil (org-tags-view '(4) match))) ((eq type 'todo) (let nil (org-todo-list match))) ((fboundp type) (let nil (funcall type match))) (t (let nil (error "Invalid type in command series")))))()
  funcall((closure ((type . agenda)) nil (cond ((eq type 'agenda) (let nil (call-interactively 'org-agenda-list))) ((eq type 'agenda*) (let nil (funcall 'org-agenda-list nil nil nil t))) ((eq type 'alltodo) (let nil (call-interactively 'org-todo-list))) ((eq type 'search) (let nil (org-search-view current-prefix-arg match nil))) ((eq type 'stuck) (let nil (call-interactively 'org-agenda-list-stuck-projects))) ((eq type 'tags) (let nil (org-tags-view current-prefix-arg match))) ((eq type 'tags-todo) (let nil (org-tags-view '(4) match))) ((eq type 'todo) (let nil (org-todo-list match))) ((fboundp type) (let nil (funcall type match))) (t (let nil (error "Invalid type in command series"))))))
  (let ((org-agenda-span 'day) (org-super-agenda-groups '((:name "Timeline" :time-grid t) (:habit t)))) (funcall '(closure ((type . agenda)) nil (cond ((eq type 'agenda) (let nil (call-interactively ...))) ((eq type 'agenda*) (let nil (funcall ... nil nil nil t))) ((eq type 'alltodo) (let nil (call-interactively ...))) ((eq type 'search) (let nil (org-search-view current-prefix-arg match nil))) ((eq type 'stuck) (let nil (call-interactively ...))) ((eq type 'tags) (let nil (org-tags-view current-prefix-arg match))) ((eq type 'tags-todo) (let nil (org-tags-view ... match))) ((eq type 'todo) (let nil (org-todo-list match))) ((fboundp type) (let nil (funcall type match))) (t (let nil (error "Invalid type in command series")))))))
  eval((let ((org-agenda-span 'day) (org-super-agenda-groups '((:name "Timeline" :time-grid t) (:habit t)))) (funcall '(closure ((type . agenda)) nil (cond ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((fboundp type) (let nil ...)) (t (let nil ...)))))))
  (let* ((syms (append gvars lvars)) (vals (append gvals lvals)) (body #'(lambda nil (cond ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((eq type ...) (let nil ...)) ((fboundp type) (let nil ...)) (t (let nil ...))))) (binds nil)) (while syms (setq binds (cons (list (car-safe (prog1 syms (setq syms ...))) (list 'quote (car-safe (prog1 vals ...)))) binds))) (eval (list 'let (nreverse binds) (list 'funcall (list 'quote body)))))
  (progn (let* ((syms (append gvars lvars)) (vals (append gvals lvals)) (body #'(lambda nil (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))) (binds nil)) (while syms (setq binds (cons (list (car-safe (prog1 syms ...)) (list 'quote (car-safe ...))) binds))) (eval (list 'let (nreverse binds) (list 'funcall (list 'quote body))))))
  (let ((org-agenda-overriding-arguments (if (eq org-agenda-overriding-cmd org-cmd) (or org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments))) (lvars (mapcar #'car lprops)) (lvals (mapcar #'(lambda (binding) (eval (car ...) t)) lprops))) (progn (let* ((syms (append gvars lvars)) (vals (append gvals lvals)) (body #'(lambda nil (cond ... ... ... ... ... ... ... ... ... ...))) (binds nil)) (while syms (setq binds (cons (list (car-safe ...) (list ... ...)) binds))) (eval (list 'let (nreverse binds) (list 'funcall (list 'quote body)))))))
  (while (setq org-cmd (car-safe (prog1 cmds (setq cmds (cdr cmds))))) (setq type (car org-cmd)) (setq match (eval (nth 1 org-cmd) t)) (setq lprops (nth 2 org-cmd)) (let ((org-agenda-overriding-arguments (if (eq org-agenda-overriding-cmd org-cmd) (or org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments))) (lvars (mapcar #'car lprops)) (lvals (mapcar #'(lambda (binding) (eval ... t)) lprops))) (progn (let* ((syms (append gvars lvars)) (vals (append gvals lvals)) (body #'(lambda nil ...)) (binds nil)) (while syms (setq binds (cons (list ... ...) binds))) (eval (list 'let (nreverse binds) (list 'funcall (list ... body))))))))
  (let* ((org-agenda-multi t) (redo (list 'org-agenda-run-series name (list 'quote series))) (cmds (car series)) match org-cmd type lprops) (while (setq org-cmd (car-safe (prog1 cmds (setq cmds (cdr cmds))))) (setq type (car org-cmd)) (setq match (eval (nth 1 org-cmd) t)) (setq lprops (nth 2 org-cmd)) (let ((org-agenda-overriding-arguments (if (eq org-agenda-overriding-cmd org-cmd) (or org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments))) (lvars (mapcar #'car lprops)) (lvals (mapcar #'(lambda ... ...) lprops))) (progn (let* ((syms (append gvars lvars)) (vals (append gvals lvals)) (body #'...) (binds nil)) (while syms (setq binds (cons ... binds))) (eval (list 'let (nreverse binds) (list ... ...))))))) (widen) (let ((inhibit-read-only t)) (add-text-properties (point-min) (point-max) (list 'org-series t 'org-series-redo-cmd redo))) (setq org-agenda-redo-command redo) (goto-char (point-min)))
  (let* ((gprops (nth 1 series)) (gvars (mapcar #'car gprops)) (gvals (mapcar #'(lambda (binding) (eval (car ...) t)) gprops))) (progn (let* ((syms gvars) (vals gvals) (body #'(lambda nil (org-agenda-prepare name))) (binds nil)) (while syms (setq binds (cons (list (car-safe ...) (list ... ...)) binds))) (eval (list 'let (nreverse binds) (list 'funcall (list 'quote body)))))) (org-agenda-reset-markers) (with-no-warnings (defvar match)) (let* ((org-agenda-multi t) (redo (list 'org-agenda-run-series name (list 'quote series))) (cmds (car series)) match org-cmd type lprops) (while (setq org-cmd (car-safe (prog1 cmds (setq cmds (cdr cmds))))) (setq type (car org-cmd)) (setq match (eval (nth 1 org-cmd) t)) (setq lprops (nth 2 org-cmd)) (let ((org-agenda-overriding-arguments (if (eq org-agenda-overriding-cmd org-cmd) (or org-agenda-overriding-arguments org-agenda-overriding-cmd-arguments))) (lvars (mapcar #'car lprops)) (lvals (mapcar #'... lprops))) (progn (let* ((syms ...) (vals ...) (body ...) (binds nil)) (while syms (setq binds ...)) (eval (list ... ... ...)))))) (widen) (let ((inhibit-read-only t)) (add-text-properties (point-min) (point-max) (list 'org-series t 'org-series-redo-cmd redo))) (setq org-agenda-redo-command redo) (goto-char (point-min))) (org-agenda-fit-window-to-buffer) (progn (let* ((syms gvars) (vals gvals) (body #'(lambda nil (org-agenda-finalize))) (binds nil)) (while syms (setq binds (cons (list (car-safe ...) (list ... ...)) binds))) (eval (list 'let (nreverse binds) (list 'funcall (list 'quote body)))))))
  org-agenda-run-series("test" (((agenda "" ((org-agenda-span 'day) (org-super-agenda-groups '(... ...)))))))
  (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 (and (stringp org-match) (format "*Org Agenda(%s:%s)*" org-keys org-match)) (format "*Org Agenda(%s)*" org-keys))))) (progn (let* ((syms (mapcar #'car lprops)) (vals (mapcar #'... lprops)) (body #'(lambda nil ...)) (binds nil)) (while syms (setq binds (cons (list ... ...) binds))) (eval (list 'let (nreverse binds) (list 'funcall (list ... body)))))) (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))))
  (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")))
  (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"))))
  (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")))))
  org-agenda(nil)
  #<subr funcall-interactively>(org-agenda nil)
  apply(#<subr funcall-interactively> (org-agenda nil))
  funcall-interactively(org-agenda nil)
  #<subr call-interactively>(org-agenda nil nil)
  apply(#<subr call-interactively> (org-agenda nil nil))
  explain-pause--wrap-call-interactively(#<subr call-interactively> org-agenda nil nil)
  apply(explain-pause--wrap-call-interactively #<subr call-interactively> (org-agenda nil nil))
  call-interactively(org-agenda nil nil)
  command-execute(org-agenda)