Function: org--batch-agenda-csv

org--batch-agenda-csv is a byte-compiled function defined in org-agenda.el.gz.

Signature

(org--batch-agenda-csv CMD-KEY VARS VALS)

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-agenda.el.gz
(defun org--batch-agenda-csv (cmd-key vars vals)
  ;; `org-batch-agenda-csv' is a macro because every other "parameter" is
  ;; a variable name rather than an expression to evaluate.  Yuck!
  (let ((org-agenda-remove-tags t))
    (cl-progv vars vals
      ;; FIXME: Shouldn't this be 1 (see commit 10173ad6d610b)?
      (if (> (length cmd-key) 2)
	  (org-tags-view nil cmd-key)
	(org-agenda nil cmd-key))))
  (set-buffer org-agenda-buffer-name)
  (let ((lines (org-split-string (buffer-string) "\n")))
    (dolist (line lines)
      (when (get-text-property 0 'org-category line)
	(setq org-agenda-info
	      (org-fix-agenda-info (text-properties-at 0 line)))
	(princ
	 (mapconcat #'org-agenda-export-csv-mapper
		    '(org-category txt type todo tags date time extra
                                   priority-letter priority agenda-day)
		    ","))
	(princ "\n")))))