From 99cffa500dc86482bf217d725224cbbf19687711 Mon Sep 17 00:00:00 2001 From: Rasmus Date: Sat, 25 Jan 2014 14:15:03 +0100 Subject: [PATCH 2/2] Allow separate subject and title in ox-koma-letter * ox-koma-letter.el (org-koma-letter-use-title): New variable. (org-koma-letter-prefer-subject): New variable. (org-koma-letter-template): Allow separate subject and title. --- contrib/lisp/ox-koma-letter.el | 37 ++++++++++++++++++++++++++++++++----- 1 file changed, 32 insertions(+), 5 deletions(-) diff --git a/contrib/lisp/ox-koma-letter.el b/contrib/lisp/ox-koma-letter.el index b1f37b8..d5ee1de 100644 --- a/contrib/lisp/ox-koma-letter.el +++ b/contrib/lisp/ox-koma-letter.el @@ -335,6 +335,14 @@ This option can also be set with the OPTIONS keyword, e.g.: :group 'org-export-koma-letter :type 'boolean) +(defcustom org-koma-letter-use-title t + "Non-nil means use a title in the letter if present. + +See also `org-koma-letter-prefer-subject' for the handling of +title versus subject." + :group 'org-export-koma-letter + :type 'boolean) + (defcustom org-koma-letter-default-class "default-koma-letter" "Default class for `org-koma-letter'. The value must be a member of `org-latex-classes'." @@ -348,6 +356,14 @@ A headline is only used if #+OPENING is not set. See also :group 'org-export-koma-letter :type 'boolean) +(defcustom org-koma-letter-prefer-subject nil + "Non-nil means title should be interpret as subject if subject is missing. + +This may be useful for older documents where the SUBJECT keyword +was not present." + :group 'org-export-koma-letter + :type 'boolean) + (defconst org-koma-letter-special-tags-in-letter '(to from) "Header tags related to the letter itself.") @@ -377,6 +393,7 @@ A headline is only used if #+OPENING is not set. See also (:opening "OPENING" nil org-koma-letter-opening) (:closing "CLOSING" nil org-koma-letter-closing) (:signature "SIGNATURE" nil org-koma-letter-signature newline) + (:subject "SUBJECT" nil nil space) (:special-headings nil "special-headings" org-koma-letter-prefer-special-headings) (:special-tags nil nil (append @@ -393,6 +410,8 @@ A headline is only used if #+OPENING is not set. See also (:with-phone nil "phone" org-koma-letter-use-phone) (:with-place nil "place" org-koma-letter-use-place) (:with-subject nil "subject" org-koma-letter-subject-format) + (:with-title nil "title" org-koma-letter-use-title) + (:with-title-as-subject nil "title-subject" org-koma-letter-prefer-subject) ;; Special properties non-nil when a setting happened in buffer. ;; They are used to prioritize in-buffer settings over "lco" ;; files. See `org-koma-letter-template'. @@ -598,17 +617,25 @@ holding export options." (format "\\date{%s}\n" (org-export-data (org-export-get-date info) info)) ;; Document start "\\begin{document}\n\n" - ;; Subject - (let ((with-subject (plist-get info :with-subject))) + ;; Subject and title + (let ((with-subject (plist-get info :with-subject)) + (title-as-subject (plist-get info :with-title-as-subject)) + (subject (org-string-nw-p (org-export-data (plist-get info :subject) info))) + (title (org-string-nw-p (org-export-data (plist-get info :title) info)))) (when with-subject (concat (unless (eq with-subject t) (format "\\KOMAoption{subject}{%s}\n" (if (symbolp with-subject) with-subject (mapconcat #'symbol-name with-subject ",")))) - (let ((subject (org-export-data (plist-get info :title) info))) - (and (org-string-nw-p subject) - (format "\\setkomavar{subject}{%s}\n\n" subject)))))) + (let ((subject (if title-as-subject (or subject title) subject)) + (title (if title-as-subject (and subject title) title))) + (concat + (and (org-string-nw-p subject) + (format "\\setkomavar{subject}{%s}\n" subject)) + (and (org-string-nw-p title) + (format "\\setkomavar{title}{%s}\n" title)) + (when (or (org-string-nw-p title) (org-string-nw-p subject)) "\n")))))) ;; Letter start. (format "\\begin{letter}{%%\n%s}\n\n" (org-koma-letter--determine-to-and-from info 'to)) -- 1.8.5.3