diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-04-03 00:02:15 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-04-03 00:02:15 +0200 |
commit | 6f78b660f87ab8719ed22f61d2f2633316c159ed (patch) | |
tree | a886e9f0f940a58b6b7e8d7e901f06c3626f3aec | |
parent | e7bf989b289e11c7cc732240ef6517260a4b3767 (diff) | |
download | org-mode-6f78b660f87ab8719ed22f61d2f2633316c159ed.tar.gz |
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'.
-rw-r--r-- | contrib/lisp/ox-deck.el | 2 | ||||
-rw-r--r-- | contrib/lisp/ox-groff.el | 4 | ||||
-rw-r--r-- | contrib/lisp/ox-koma-letter.el | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/contrib/lisp/ox-deck.el b/contrib/lisp/ox-deck.el index 3934955..6338643 100644 --- a/contrib/lisp/ox-deck.el +++ b/contrib/lisp/ox-deck.el @@ -463,7 +463,7 @@ INFO is a plist used as a communication channel." (let ((auth (plist-get info :author))) (and auth (org-export-data auth info))))) (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))))) (description (plist-get info :description)) (keywords (plist-get info :keywords))) diff --git a/contrib/lisp/ox-groff.el b/contrib/lisp/ox-groff.el index 8fc0d3f..3c7abdf 100644 --- a/contrib/lisp/ox-groff.el +++ b/contrib/lisp/ox-groff.el @@ -622,8 +622,8 @@ See `org-groff-text-markup-alist' for details." ;; 5. Date. (when (plist-get info :with-date) - (let ((date (org-export-data (plist-get info :date) info))) - (and date (format ".ND \"%s\"\n" date)))) + (let ((date (org-export-data (org-export-get-date info) info))) + (and (org-string-nw-p date) (format ".ND \"%s\"\n" date)))) ;; ;; If Abstract, then Populate Abstract diff --git a/contrib/lisp/ox-koma-letter.el b/contrib/lisp/ox-koma-letter.el index 41bd6af..1ffb455 100644 --- a/contrib/lisp/ox-koma-letter.el +++ b/contrib/lisp/ox-koma-letter.el @@ -206,7 +206,7 @@ holding export options." (org-export-data (plist-get info :email) info)) (format "\\setkomavar{fromphone}{%s}\n" (plist-get info :phone-number)) ;; 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 (format "\\LoadLetterOption{%s}\n" (plist-get info :lco)) ;; Letter start. |