Variable: org-agenda-custom-commands-local-options

(repeat :tag "Local settings for this command.  Remember to quote values"
	(choice :tag "Setting"
		(list :tag "Heading for this block"
		      (const org-agenda-overriding-header)
		      (string :tag "Headline"))
		(list :tag "Files to be searched"
		      (const org-agenda-files)
		      (list
		       (const :format "" quote)
		       (repeat
			(file))))
		(list :tag "Sorting strategy"
		      (const org-agenda-sorting-strategy)
		      (list
		       (const :format "" quote)
		       (repeat
			(choice
			 (const time-up)
			 (const time-down)
			 (const timestamp-up)
			 (const timestamp-down)
			 (const scheduled-up)
			 (const scheduled-down)
			 (const deadline-up)
			 (const deadline-down)
			 (const ts-up)
			 (const ts-down)
			 (const tsia-up)
			 (const tsia-down)
			 (const category-keep)
			 (const category-up)
			 (const category-down)
			 (const tag-down)
			 (const tag-up)
			 (const priority-up)
			 (const priority-down)
			 (const todo-state-up)
			 (const todo-state-down)
			 (const effort-up)
			 (const effort-down)
			 (const habit-up)
			 (const habit-down)
			 (const alpha-up)
			 (const alpha-down)
			 (const user-defined-up)
			 (const user-defined-down)))))
		(list :tag "Prefix format"
		      (const org-agenda-prefix-format :value "  %-12:c%?-12t% s")
		      (string))
		(list :tag "Number of days in agenda"
		      (const org-agenda-span)
		      (list
		       (const :format "" quote)
		       (choice
			(const :tag "Day" day)
			(const :tag "Week" week)
			(const :tag "Fortnight" fortnight)
			(const :tag "Month" month)
			(const :tag "Year" year)
			(integer :tag "Custom"))))
		(list :tag "Fixed starting date"
		      (const org-agenda-start-day)
		      (string :value "2007-11-01"))
		(list :tag "Start on day of week"
		      (const org-agenda-start-on-weekday)
		      (choice :value 1
			      (const :tag "Today" nil)
			      (integer :tag "Weekday No.")))
		(list :tag "Include data from diary"
		      (const org-agenda-include-diary)
		      (boolean))
		(list :tag "Deadline Warning days"
		      (const org-deadline-warning-days)
		      (integer :value 1))
		(list :tag "Category filter preset"
		      (const org-agenda-category-filter-preset)
		      (list
		       (const :format "" quote)
		       (repeat
			(string :tag "+category or -category"))))
		(list :tag "Tags filter preset"
		      (const org-agenda-tag-filter-preset)
		      (list
		       (const :format "" quote)
		       (repeat
			(string :tag "+tag or -tag"))))
		(list :tag "Effort filter preset"
		      (const org-agenda-effort-filter-preset)
		      (list
		       (const :format "" quote)
		       (repeat
			(string :tag "+=10 or -=10 or +<10 or ->10"))))
		(list :tag "Regexp filter preset"
		      (const org-agenda-regexp-filter-preset)
		      (list
		       (const :format "" quote)
		       (repeat
			(string :tag "+regexp or -regexp"))))
		(list :tag "Set daily/weekly entry types"
		      (const org-agenda-entry-types)
		      (list
		       (const :format "" quote)
		       (set :greedy t :value
			    (:deadline :scheduled :timestamp :sexp)
			    (const :deadline)
			    (const :scheduled)
			    (const :deadline*)
			    (const :scheduled*)
			    (const :timestamp)
			    (const :sexp))))
		(list :tag "Columns format"
		      (const org-overriding-columns-format)
		      (string :tag "Format"))
		(list :tag "Standard skipping condition" :value
		      (org-agenda-skip-function
		       '(org-agenda-skip-entry-if))
		      (const org-agenda-skip-function)
		      (list
		       (const :format "" quote)
		       (list
			(choice :tag "Skipping range"
				(const :tag "Skip entry" org-agenda-skip-entry-if)
				(const :tag "Skip subtree" org-agenda-skip-subtree-if))
			(repeat :inline t :tag "Conditions for skipping"
				(choice :tag "Condition type"
					(list :tag "Regexp matches" :inline t
					      (const :format "" regexp)
					      (regexp))
					(list :tag "Regexp does not match" :inline t
					      (const :format "" notregexp)
					      (regexp))
					(list :tag "TODO state is" :inline t
					      (const todo)
					      (choice
					       (const :tag "Any not-done state" todo)
					       (const :tag "Any done state" done)
					       (const :tag "Any state" any)
					       (list :tag "Keyword list"
						     (const :format "" quote)
						     (repeat
						      (string :tag "Keyword")))))
					(list :tag "TODO state is not" :inline t
					      (const nottodo)
					      (choice
					       (const :tag "Any not-done state" todo)
					       (const :tag "Any done state" done)
					       (const :tag "Any state" any)
					       (list :tag "Keyword list"
						     (const :format "" quote)
						     (repeat
						      (string :tag "Keyword")))))
					(const :tag "scheduled" scheduled)
					(const :tag "not scheduled" notscheduled)
					(const :tag "deadline" deadline)
					(const :tag "no deadline" notdeadline)
					(const :tag "timestamp" timestamp)
					(const :tag "no timestamp" nottimestamp))))))
		(list :tag "Non-standard skipping condition" :value
		      (org-agenda-skip-function)
		      (const org-agenda-skip-function)
		      (sexp :tag "Function or form (quoted!)"))
		(list :tag "Any variable"
		      (variable :tag "Variable")
		      (sexp :tag "Value (sexp)"))))