diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-01-16 22:33:43 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2014-01-17 01:37:25 +0100 |
commit | d71f035462b8108c7721d9baea5dc7fa58dd0418 (patch) | |
tree | b30606470788477051759c10d10731d62ea06e23 | |
parent | e955be903a5cf29f173972ab18f851f8553ddd89 (diff) | |
download | org-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.el | 43 |
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 |