It seems there are some semantic bugs in ox-koma-letter.el in that new
variables are introduces for SENDER (as opposed to AUTHOR) and a
separate email variable as well. This seems like a semantic bug IMO.
This patch fixes these issues if they in fact are issues.
–Rasmus
--
And let me remind you also that moderation in the pursuit of justice
is no virtue
>From 0cb47f73c2e3579a78c2ae7e7d9777012f142f20 Mon Sep 17 00:00:00 2001
From: "rasmus.pank" <rasmus.p...@gmail.com>
Date: Sun, 19 May 2013 22:14:54 +0200
Subject: [PATCH 4/4] Changed =#+SENDER= to =#+AUTHOR= and removed duplicated
email and author variables in =ox-koma-letter.el=.
* ox-koma-letter.el: changed the unorthodox =SENDER= keyword to
the ordinary =AUTHOR= keyword.
* ox-koma-letter.el: changed email to work as in standard
latex exporter and dropped dedicated ox-koma-letter variable.
---
contrib/lisp/ox-koma-letter.el | 15 ++++-----------
1 file changed, 4 insertions(+), 11 deletions(-)
diff --git a/contrib/lisp/ox-koma-letter.el b/contrib/lisp/ox-koma-letter.el
index 8ae9fc5..16bcb86 100644
--- a/contrib/lisp/ox-koma-letter.el
+++ b/contrib/lisp/ox-koma-letter.el
@@ -82,10 +82,6 @@
:group 'org-export-koma-letter
:type 'string)
-(defcustom org-koma-letter-sender nil
- "Sender's name, as a string."
- :group 'org-export-koma-letter
- :type 'string)
(defcustom org-koma-letter-from-address nil
"Sender's address, as a string."
@@ -97,10 +93,6 @@
:group 'org-export-koma-letter
:type 'string)
-(defcustom org-koma-letter-email nil
- "Sender's email, as a string."
- :group 'org-export-koma-letter
- :type 'string)
(defcustom org-koma-letter-place nil
"Place from which the letter is sent."
@@ -212,10 +204,10 @@ content temporarily.")
(org-export-define-derived-backend 'koma-letter 'latex
:options-alist
'((:lco "LCO" nil org-koma-letter-class-option-file)
- (:sender "SENDER" nil org-koma-letter-sender newline)
+ (:sender "AUTHOR" nil user-full-name t)
(:from-address "FROM_ADDRESS" nil org-koma-letter-from-address newline)
(:phone-number "PHONE_NUMBER" nil org-koma-letter-phone-number)
- (:email "EMAIL" nil org-koma-letter-email)
+ (:email "EMAIL" nil user-mail-address t)
(:to-address "TO_ADDRESS" nil nil newline)
(:place "PLACE" nil org-koma-letter-place)
(:opening "OPENING" nil org-koma-letter-opening)
@@ -361,7 +353,8 @@ holding export options."
(setq lco-def (format "%s\\LoadLetterOption{%s}\n" lco-def lco-file)))
lco-def))
;; Define "From" data.
- (when sender (format "\\setkomavar{fromname}{%s}\n" sender))
+ (when sender (format "\\setkomavar{fromname}{%s}\n"
+ (org-export-data sender info)))
(when from-address (format "\\setkomavar{fromaddress}{%s}\n" from-address))
(when phone-number (format "\\setkomavar{fromphone}{%s}\n" phone-number))
(when email (format "\\setkomavar{fromemail}{%s}\n" email))
--
1.8.2.3
