Function: org-macro--find-date

org-macro--find-date is a byte-compiled function defined in org-macro.el.gz.

Signature

(org-macro--find-date)

Documentation

Find value for DATE in current buffer.

Return value as a string.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-macro.el.gz
(defun org-macro--find-date ()
  "Find value for DATE in current buffer.
Return value as a string."
  (let* ((value (org-macro--find-keyword-value "DATE"))
	 (date (org-element-parse-secondary-string
		value (org-element-restriction 'keyword))))
    (if (and (consp date)
	     (not (cdr date))
	     (org-element-type-p (car date) 'timestamp))
	(format "(eval (if (org-string-nw-p $1) %s %S))"
		(format "(org-format-timestamp '%S $1)"
			(org-element-put-property
                         (org-element-copy (car date))
                         ;; Remove non-printable.
                         :buffer nil))
		value)
      value)))