summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2014-01-16 22:33:43 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2014-01-17 01:37:25 +0100
commitd71f035462b8108c7721d9baea5dc7fa58dd0418 (patch)
treeb30606470788477051759c10d10731d62ea06e23
parente955be903a5cf29f173972ab18f851f8553ddd89 (diff)
downloadorg-mode-d71f035462b8108c7721d9baea5dc7fa58dd0418.tar.gz
ox-koma-letter: Fix customizable variables values
* contrib/lisp/ox-koma-letter.el (org-koma-letter-from-address): (org-koma-letter-phone-number, org-koma-letter-place, org-koma-letter-subject-format, org-koma-letter-opening, org-koma-letter-closing, org-koma-letter-signature, org-koma-letter-default-class, org-koma-letter-subject-format): Fix value.
-rw-r--r--contrib/lisp/ox-koma-letter.el43
1 files changed, 21 insertions, 22 deletions
diff --git a/contrib/lisp/ox-koma-letter.el b/contrib/lisp/ox-koma-letter.el
index 5142912..89cffde 100644
--- a/contrib/lisp/ox-koma-letter.el
+++ b/contrib/lisp/ox-koma-letter.el
@@ -157,22 +157,22 @@ a function may be given. Functions must return a string."
(function)
(const :tag "Do not export email" nil)))
-(defcustom org-koma-letter-from-address nil
+(defcustom org-koma-letter-from-address ""
"Sender's address, as a string."
:group 'org-export-koma-letter
:type 'string)
-(defcustom org-koma-letter-phone-number nil
+(defcustom org-koma-letter-phone-number ""
"Sender's phone number, as a string."
:group 'org-export-koma-letter
:type 'string)
-(defcustom org-koma-letter-place nil
+(defcustom org-koma-letter-place ""
"Place from which the letter is sent, as a string."
:group 'org-export-koma-letter
:type 'string)
-(defcustom org-koma-letter-opening nil
+(defcustom org-koma-letter-opening ""
"Letter's opening, as a string.
If (1) this value is nil; (2) the letter is started with a
headline; and (3) `org-koma-letter-headline-is-opening-maybe' is
@@ -180,21 +180,21 @@ t the value opening will be implicit set as the headline title."
:group 'org-export-koma-letter
:type 'string)
-(defcustom org-koma-letter-closing nil
+(defcustom org-koma-letter-closing ""
"Koma-Letter's closing, as a string."
:group 'org-export-koma-letter
:type 'string)
+(defcustom org-koma-letter-signature ""
+ "Signature, as a string."
+ :group 'org-export-koma-letter
+ :type 'string)
+
(defcustom org-koma-letter-prefer-special-headings nil
"Non-nil means prefer headlines over keywords for TO and FROM."
:group 'org-export-koma-letter
:type 'boolean)
-(defcustom org-koma-letter-signature nil
- "Signature, as a string."
- :group 'org-export-koma-letter
- :type 'string)
-
(defcustom org-koma-letter-subject-format t
"Use the title as the subject of the letter.
@@ -211,21 +211,20 @@ At this time the following values are allowed:
nil Do no insert a subject even if present
t Use default options
-It can also be a string. Please refer to the KOMA-script
-manual (Table 4.16. in the English manual of 2012-07-22)."
+Please refer to the KOMA-script manual (Table 4.16. in the
+English manual of 2012-07-22)."
:type '(radio
(const :tag "No export" nil)
(const :tag "Default options" t)
(set :tag "selection"
- (const 'afteropening)
- (const 'beforeopening)
- (const 'centered)
- (const 'left)
- (const 'right)
- (const 'underlined)
- (const 'titled)
- (const 'untitled))
- (string))
+ (const afteropening)
+ (const beforeopening)
+ (const centered)
+ (const left)
+ (const right)
+ (const underlined)
+ (const titled)
+ (const untitled)))
:group 'org-export-koma-letter)
(defcustom org-koma-letter-use-backaddress nil
@@ -258,7 +257,7 @@ Use `foldmarks:true' to activate default fold marks or
:group 'org-export-koma-letter
:type 'boolean)
-(defcustom org-koma-letter-default-class nil
+(defcustom org-koma-letter-default-class ""
"Default class for `org-koma-letter'.
The value must be a member of `org-latex-classes'."
:group 'org-export-koma-letter