org-agenda-custom-commands, add-to-list

Question

I'm trying to add-to-list org-agenda, but I failboat

(setq c-view
      `(
    ("c" "High Priority and Low Rewards"
     (
      (tags "PRIORITY=\"A\""
        (
         (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
         (org-agenda-overriding-header "High-priority unfinished tasks:"))
        )
      (agenda "")
      (alltodo "")
      )
     )
    )
      )
  (add-to-list 'org-agenda-custom-commands `,c-view)

I get this:

Debugger entered--Lisp error: (wrong-type-argument stringp ("c" "High Priority and Low Rewards" ((tags "PRIORITY=\"A\"" ((org-agenda-skip-function '(org-agenda-skip-entry-if ... ...)) (org-agenda-overriding-header "High-priority unfinished tasks:"))) (agenda "") (alltodo ""))))
  string-to-char(("c" "High Priority and Low Rewards" ((tags "PRIORITY=\"A\"" ((org-agenda-skip-function '(org-agenda-skip-entry-if ... ...)) (org-agenda-overriding-header "High-priority unfinished tasks:"))) (agenda "") (alltodo ""))))
  org-agenda-get-restriction-and-command(nil)
  org-agenda(nil)
  funcall-interactively(org-agenda nil)
  call-interactively(org-agenda nil nil)
  command-execute(org-agenda)

I'm not sure how to debug this. Where does it actually stop?;)

Answer 1

In addition to the quoting problems, c-view is supposed to be an element of the list, so you have too many parens:

(setq c-view
  '("c" "High Priority and Low Rewards"
     ((tags "PRIORITY=\"A\""
        ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
         (org-agenda-overriding-header "High-priority unfinished tasks:")))
      (agenda "")
      (alltodo ""))))

(with-eval-after-load "org-agenda"
   (add-to-list 'org-agenda-custom-commands c-view))

Whether that does what you want is of course another matter, but at least it will not blow up - I hope...

---

EDIT: "I'm not sure how to debug this. Where does it actually stop?" Not sure what "it" is, but if you are asking how to read the backtrace, you read it from the bottom up: you executed org-agenda, which called org-agenda-get-restriction-and-command, which called string-to-char, which got an error because its argument was a list and not a string as it expected.