forked from mirrors/org-mode
export back-ends in contrib: Handle DATE keywords the same way
* contrib/lisp/ox-deck.el (org-deck--build-meta-info): Use `org-export-get-date'. * contrib/lisp/ox-groff.el (org-groff--mt-head): Use `org-export-get-date'. * contrib/lisp/ox-koma-letter.el (org-koma-letter-template): Use `org-export-get-date'.
This commit is contained in:
parent
e7bf989b28
commit
6f78b660f8
|
@ -463,7 +463,7 @@ INFO is a plist used as a communication channel."
|
||||||
(let ((auth (plist-get info :author)))
|
(let ((auth (plist-get info :author)))
|
||||||
(and auth (org-export-data auth info)))))
|
(and auth (org-export-data auth info)))))
|
||||||
(date (and (plist-get info :with-date)
|
(date (and (plist-get info :with-date)
|
||||||
(let ((date (plist-get info :date)))
|
(let ((date (org-export-get-date info)))
|
||||||
(and date (org-export-data date info)))))
|
(and date (org-export-data date info)))))
|
||||||
(description (plist-get info :description))
|
(description (plist-get info :description))
|
||||||
(keywords (plist-get info :keywords)))
|
(keywords (plist-get info :keywords)))
|
||||||
|
|
|
@ -622,8 +622,8 @@ See `org-groff-text-markup-alist' for details."
|
||||||
|
|
||||||
;; 5. Date.
|
;; 5. Date.
|
||||||
(when (plist-get info :with-date)
|
(when (plist-get info :with-date)
|
||||||
(let ((date (org-export-data (plist-get info :date) info)))
|
(let ((date (org-export-data (org-export-get-date info) info)))
|
||||||
(and date (format ".ND \"%s\"\n" date))))
|
(and (org-string-nw-p date) (format ".ND \"%s\"\n" date))))
|
||||||
|
|
||||||
;;
|
;;
|
||||||
;; If Abstract, then Populate Abstract
|
;; If Abstract, then Populate Abstract
|
||||||
|
|
|
@ -206,7 +206,7 @@ holding export options."
|
||||||
(org-export-data (plist-get info :email) info))
|
(org-export-data (plist-get info :email) info))
|
||||||
(format "\\setkomavar{fromphone}{%s}\n" (plist-get info :phone-number))
|
(format "\\setkomavar{fromphone}{%s}\n" (plist-get info :phone-number))
|
||||||
;; Date.
|
;; Date.
|
||||||
(format "\\date{%s}\n" (org-export-data (plist-get info :date) info))
|
(format "\\date{%s}\n" (org-export-data (org-export-get-date info) info))
|
||||||
;; Letter Class Option File
|
;; Letter Class Option File
|
||||||
(format "\\LoadLetterOption{%s}\n" (plist-get info :lco))
|
(format "\\LoadLetterOption{%s}\n" (plist-get info :lco))
|
||||||
;; Letter start.
|
;; Letter start.
|
||||||
|
|
Loading…
Reference in New Issue