Browse Source

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.
Nicolas Goaziou 11 years ago
parent
commit
d71f035462
1 changed files with 21 additions and 22 deletions
  1. 21 22
      contrib/lisp/ox-koma-letter.el

+ 21 - 22
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