Debugger entered--Lisp error: (error "Keyword argument :markers not one of (:action-fn :...")
  signal(error ("Keyword argument :markers not one of (:action-fn :..."))
  error("Keyword argument %s not one of (:action-fn :sort :..." :markers)
  (cond ((memq (car --cl-keys--) '(:action-fn :sort :narrow :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ':allow-other-keys --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:action-fn :sort :..." (car --cl-keys--))))
  (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:action-fn :sort :narrow :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ':allow-other-keys --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:action-fn :sort :..." (car --cl-keys--)))))
  (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:action-fn :sort :narrow :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ':allow-other-keys --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:action-fn :sort :..." (car --cl-keys--))))))
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:action-fn :sort :narrow :allow-other-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 (:action-fn :sort :..." (car --cl-keys--)))))) (list 'org-ql--query buffers-or-files (list 'byte-compile (list 'lambda nil (list 'cl-symbol-macrolet '((today org-ql--today) (= ...) (< ...) (> ...) (<= ...) (>= ...)) pred-body))) ':action-fn action-fn ':narrow narrow ':sort (let* ((pcase-0 #'(lambda nil (list ... sort)))) (if (consp sort) (let* ((x56 (car sort))) (if (eq x56 'function) (let* (...) (if ... ... ...)) (funcall pcase-0))) (funcall pcase-0)))))
  (let* ((action-fn (car (cdr (or (plist-member --cl-rest-- ':action-fn) '(nil ...))))) (sort (car (cdr (plist-member --cl-rest-- ':sort)))) (narrow (car (cdr (plist-member --cl-rest-- ':narrow))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:action-fn :sort :..." (car --cl-keys--)))))) (list 'org-ql--query buffers-or-files (list 'byte-compile (list 'lambda nil (list 'cl-symbol-macrolet '(... ... ... ... ... ...) pred-body))) ':action-fn action-fn ':narrow narrow ':sort (let* ((pcase-0 #'(lambda nil ...))) (if (consp sort) (let* ((x56 ...)) (if (eq x56 ...) (let* ... ...) (funcall pcase-0))) (funcall pcase-0))))))
  (closure (t) (buffers-or-files pred-body &rest --cl-rest--) "Find entries in BUFFERS-OR-FILES that match PRED-B..." (let* ((action-fn (car (cdr (or ... ...)))) (sort (car (cdr (plist-member --cl-rest-- ...)))) (narrow (car (cdr (plist-member --cl-rest-- ...))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond (... ...) (... ...) (t ...)))) (list 'org-ql--query buffers-or-files (list 'byte-compile (list 'lambda nil (list ... ... pred-body))) ':action-fn action-fn ':narrow narrow ':sort (let* ((pcase-0 ...)) (if (consp sort) (let* ... ...) (funcall pcase-0)))))))((current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t)
  macroexpand((org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) ((function . cl--labels-convert) (date-header . #f(compiled-function (&rest args) #<bytecode 0x23d49d9>))))
  macroexp-macroexpand((org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) ((function . cl--labels-convert) (date-header . #f(compiled-function (&rest args) #<bytecode 0x23d49d9>))))
  macroexp--expand-all((org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t))
  macroexp--all-forms((it (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t)) 1)
  macroexp--all-clauses(((it (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t))) 1)
  #f(compiled-function (form body bindings fun) #<bytecode 0x294f3d>)(((let ((it (org-ql (current-buffer) (and (or ... ...) (not ...)) :sort (date priority todo) :narrow t :markers t))) (-as-> (-map org-sidebar-format-fn it) it (if group (-group-by #'date-header it) it)))) ((-as-> (-map org-sidebar-format-fn it) it (if group (-group-by #'date-header it) it))) ((it (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t))) let)
  macroexp--expand-all((--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it)))
  macroexp--all-forms((progn (--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it))) 1)
  #f(compiled-function (form func) #<bytecode 0x294efd>)(((progn (--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it)))) progn)
  macroexp--expand-all((progn (--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it))))
  macroexpand-all((progn (--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it))) ((function . cl--labels-convert) (date-header . #f(compiled-function (&rest args) #<bytecode 0x23d49d9>))))
  #f(compiled-function (arg1 &rest rest) "Make local function definitions.\nEach definition can take the form (FUNC EXP) where\nFUNC is the function name, and EXP is an expression that returns the\nfunction value to which it should be bound, or it can take the more common\nform (FUNC ARGLIST BODY...) which is a shorthand\nfor (FUNC (lambda ARGLIST BODY)).\n\nFUNC is defined only within FORM, not BODY, so you can't write\nrecursive function definitions.  Use `cl-labels' for that.  See\ninfo node `(cl) Function Bindings' for details." #<bytecode 0x5535a1>)(((date-header (item) (propertize (org-timestamp-format (or (get-text-property 0 'scheduled item) (get-text-property 0 'deadline item)) org-sidebar-date-format) 'face '(:inherit variable-pitch :weight bold)))) (--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it)))
  (cl-flet ((date-header (item) (propertize (org-timestamp-format (or (get-text-property 0 'scheduled item) (get-text-property 0 'deadline item)) org-sidebar-date-format) 'face '(:inherit variable-pitch :weight bold)))) (--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it)))
  (catch '--cl-block-org-sidebar--agenda-items-- (cl-flet ((date-header (item) (propertize (org-timestamp-format (or (get-text-property 0 'scheduled item) (get-text-property 0 ... item)) org-sidebar-date-format) 'face '(:inherit variable-pitch :weight bold)))) (--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it))))
  (cl--block-wrapper (catch '--cl-block-org-sidebar--agenda-items-- (cl-flet ((date-header (item) (propertize (org-timestamp-format (or ... ...) org-sidebar-date-format) 'face '(:inherit variable-pitch :weight bold)))) (--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it)))))
  (cl-block org-sidebar--agenda-items (cl-flet ((date-header (item) (propertize (org-timestamp-format (or (get-text-property 0 ... item) (get-text-property 0 ... item)) org-sidebar-date-format) 'face '(:inherit variable-pitch :weight bold)))) (--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it))))
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:group :allow-other-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 (:group)" (car --cl-keys--)))))) (cl-block org-sidebar--agenda-items (cl-flet ((date-header (item) (propertize (org-timestamp-format (or ... ...) org-sidebar-date-format) 'face '(:inherit variable-pitch :weight bold)))) (--> (org-ql (current-buffer) (and (or (scheduled) (deadline)) (not (done))) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it)))))
  (let* ((group (car (cdr (plist-member --cl-rest-- ':group))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:group)" (car --cl-keys--)))))) (cl-block org-sidebar--agenda-items (cl-flet ((date-header (item) (propertize (org-timestamp-format ... org-sidebar-date-format) 'face '...))) (--> (org-ql (current-buffer) (and (or ... ...) (not ...)) :sort (date priority todo) :narrow t :markers t) (-map org-sidebar-format-fn it) (if group (-group-by #'date-header it) it))))))
  org-sidebar--agenda-items(:group t)
  funcall(org-sidebar--agenda-items :group t)
  (if group (funcall it :group t) (funcall it))
  (save-current-buffer (set-buffer source-buffer) (if group (funcall it :group t) (funcall it)))
  (and t (save-current-buffer (set-buffer source-buffer) (if group (funcall it :group t) (funcall it))))
  (let* ((items (and t (save-current-buffer (set-buffer source-buffer) (if group (funcall it :group t) (funcall it)))))) (if items (save-current-buffer (set-buffer (get-buffer-create (format " *org-sidebar: %s*" slot))) (org-sidebar--prepare-buffer (or header (buffer-name source-buffer))) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let ((it items)) (let ((it (cond ... ... ...))) (insert it))) (goto-char (point-min)) (display-buffer-in-side-window (current-buffer) (a-list 'side org-sidebar-side 'slot slot 'window-parameters (a-list 'no-delete-other-windows t))) (setq slot (1+ slot))) nil))
  (let ((it (car list))) (let* ((items (and t (save-current-buffer (set-buffer source-buffer) (if group (funcall it :group t) (funcall it)))))) (if items (save-current-buffer (set-buffer (get-buffer-create (format " *org-sidebar: %s*" slot))) (org-sidebar--prepare-buffer (or header (buffer-name source-buffer))) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let ((it items)) (let ((it ...)) (insert it))) (goto-char (point-min)) (display-buffer-in-side-window (current-buffer) (a-list 'side org-sidebar-side 'slot slot 'window-parameters (a-list 'no-delete-other-windows t))) (setq slot (1+ slot))) nil)))
  (while list (let ((it (car list))) (let* ((items (and t (save-current-buffer (set-buffer source-buffer) (if group ... ...))))) (if items (save-current-buffer (set-buffer (get-buffer-create (format " *org-sidebar: %s*" slot))) (org-sidebar--prepare-buffer (or header (buffer-name source-buffer))) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let ((it items)) (let (...) (insert it))) (goto-char (point-min)) (display-buffer-in-side-window (current-buffer) (a-list 'side org-sidebar-side 'slot slot 'window-parameters (a-list ... t))) (setq slot (1+ slot))) nil))) (setq it-index (1+ it-index)) (setq list (cdr list)))
  (let ((list fns) (it-index 0)) (while list (let ((it (car list))) (let* ((items (and t (save-current-buffer ... ...)))) (if items (save-current-buffer (set-buffer (get-buffer-create ...)) (org-sidebar--prepare-buffer (or header ...)) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let (...) (let ... ...)) (goto-char (point-min)) (display-buffer-in-side-window (current-buffer) (a-list ... org-sidebar-side ... slot ... ...)) (setq slot (1+ slot))) nil))) (setq it-index (1+ it-index)) (setq list (cdr list))))
  (let ((source-buffer (if org-sidebar-updating org-sidebar-source-buffer (current-buffer))) (slot 0) (fns (or org-sidebar-fns fns)) (group (cond (group-passed group) (org-sidebar-updating org-sidebar-group) (t org-sidebar-group-items))) (super-groups (or org-sidebar-super-groups super-groups)) (header (or org-sidebar-header header)) (inhibit-read-only t)) (let ((list fns) (it-index 0)) (while list (let ((it (car list))) (let* ((items (and t ...))) (if items (save-current-buffer (set-buffer ...) (org-sidebar--prepare-buffer ...) (setq org-sidebar-source-buffer source-buffer org-sidebar-group group org-sidebar-super-groups super-groups org-sidebar-fns fns org-sidebar-header header) (let ... ...) (goto-char ...) (display-buffer-in-side-window ... ...) (setq slot ...)) nil))) (setq it-index (1+ it-index)) (setq list (cdr list)))))
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:fns :group :super-groups :header :allow-other-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 (:fns :group :super..." (car --cl-keys--)))))) (let ((source-buffer (if org-sidebar-updating org-sidebar-source-buffer (current-buffer))) (slot 0) (fns (or org-sidebar-fns fns)) (group (cond (group-passed group) (org-sidebar-updating org-sidebar-group) (t org-sidebar-group-items))) (super-groups (or org-sidebar-super-groups super-groups)) (header (or org-sidebar-header header)) (inhibit-read-only t)) (let ((list fns) (it-index 0)) (while list (let ((it (car list))) (let* ((items ...)) (if items (save-current-buffer ... ... ... ... ... ... ...) nil))) (setq it-index (1+ it-index)) (setq list (cdr list))))))
  (let* ((fns (car (cdr (or (plist-member --cl-rest-- ':fns) '(nil ...))))) (group-passed (plist-member --cl-rest-- ':group)) (group (if group-passed (prog1 (car (cdr group-passed)) (setq group-passed t)) nil)) (super-groups (car (cdr (plist-member --cl-rest-- ':super-groups)))) (header (car (cdr (plist-member --cl-rest-- ':header))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:fns :group :super..." (car --cl-keys--)))))) (let ((source-buffer (if org-sidebar-updating org-sidebar-source-buffer (current-buffer))) (slot 0) (fns (or org-sidebar-fns fns)) (group (cond (group-passed group) (org-sidebar-updating org-sidebar-group) (t org-sidebar-group-items))) (super-groups (or org-sidebar-super-groups super-groups)) (header (or org-sidebar-header header)) (inhibit-read-only t)) (let ((list fns) (it-index 0)) (while list (let ((it ...)) (let* (...) (if items ... nil))) (setq it-index (1+ it-index)) (setq list (cdr list)))))))
  org-sidebar()
  funcall-interactively(org-sidebar)
  call-interactively(org-sidebar record nil)
  command-execute(org-sidebar record)
  #f(compiled-function (cmd) #<bytecode 0x209107d>)("org-sidebar")