mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-12 09:28:11 +00:00
Code

ox-koma-letter: Parse more keywords

Browse Source 
* ox-koma-letter.el (koma-letter): Parse author, phone-number,
  opening, closing and signature.
  (org-koma-letter-template): parse closing.
This commit is contained in:
Rasmus 2015-06-18 10:34:17 +02:00
parent 66686f69a5
commit 72f10cffce
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/lisp/ox-koma-letter.el
View File

@ -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.