From 72f10cffced40a9448818bb9e1ebd0031deb1922 Mon Sep 17 00:00:00 2001 From: Rasmus Date: Thu, 18 Jun 2015 10:34:17 +0200 Subject: [PATCH] ox-koma-letter: Parse more keywords * ox-koma-letter.el (koma-letter): Parse author, phone-number, opening, closing and signature. (org-koma-letter-template): parse closing. --- contrib/lisp/ox-koma-letter.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/contrib/lisp/ox-koma-letter.el b/contrib/lisp/ox-koma-letter.el index 1e8c2355f..d0a810908 100644 --- a/contrib/lisp/ox-koma-letter.el +++ b/contrib/lisp/ox-koma-letter.el @@ -381,7 +381,7 @@ e.g. \"title-subject:t\"." :options-alist '((:latex-class "LATEX_CLASS" nil org-koma-letter-default-class t) (:lco "LCO" nil org-koma-letter-class-option-file) - (:author "AUTHOR" nil (org-koma-letter--get-value org-koma-letter-author) t) + (:author "AUTHOR" nil (org-koma-letter--get-value org-koma-letter-author) parse) (:author-changed-in-buffer-p "AUTHOR" nil nil t) (:from-address "FROM_ADDRESS" nil org-koma-letter-from-address newline) (:phone-number "PHONE_NUMBER" nil org-koma-letter-phone-number) @@ -389,8 +389,8 @@ e.g. \"title-subject:t\"." (:to-address "TO_ADDRESS" nil nil newline) (:place "PLACE" nil org-koma-letter-place) (:subject "SUBJECT" nil nil parse) - (:opening "OPENING" nil org-koma-letter-opening) - (:closing "CLOSING" nil org-koma-letter-closing) + (:opening "OPENING" nil org-koma-letter-opening parse) + (:closing "CLOSING" nil org-koma-letter-closing parse) (:signature "SIGNATURE" nil org-koma-letter-signature newline) (:special-headings nil "special-headings" org-koma-letter-prefer-special-headings) @@ -665,7 +665,7 @@ holding export options." ;; Letter body. contents ;; Closing. - (format "\n\\closing{%s}\n" (plist-get info :closing)) + (format "\n\\closing{%s}\n" (org-export-data (plist-get info :closing) info)) (org-koma-letter--special-contents-as-macro (plist-get info :with-after-closing)) ;; Letter end. -- 2.11.4.GIT