org_demo_agenda_output.el

;; Dummy agenda-prefix and formatting function.
;; For exporation of Todo heading properties.

     (defun demo_org_entry_fmt_fn (elem)
            (concat
               ;(or (org-entry-get elem "CustProp1") "noCustProp")
               ;"||"
               ;(or (org-entry-get elem "Effort") "noEff")
               ;"||"
               (or (org-entry-get elem "TIMESTAMP") "noSTMP")
               "||"
               (or (org-entry-get elem "SCHEDULED") "noSCH")
               "||"
               (if (not (org-entry-get elem "DEADLINE"))
                   "noDED"
                   (let ( (ts_parsed (org-parse-time-string (org-entry-get elem "DEADLINE"))) )
                        (format "%s(%s){%s-%s}"
                                (org-entry-get elem "DEADLINE")
                                (type-of (org-entry-get elem "DEADLINE"))
                                (nth 5 ts_parsed)
                                (nth 4 ts_parsed))) )
               ":."
               ))
     (setq org-agenda-prefix-format "%(demo_org_entry_fmt_fn (point))")