tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

ox-koma-letter.el: Give the user complete control over foldmarks appearance.

Browse source 
* ox-koma-letter.el (org-koma-letter-use-foldmarks) Update
	documentation
	(org-koma-letter-template): Pass foldmarks setting to
	KOMA-Script

TINYCHANGE

Signed-off-by: Alan Schmitt <alan.schmitt@polytechnique.org>
This commit is contained in:
Viktor Rosenfeld 2013-05-05 15:22:51 +02:00 committed by Alan Schmitt
parent d19964c74f
commit 0e85c43935
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
contrib/lisp/ox-koma-letter.el
View file

@ -130,10 +130,15 @@
:group 'org-export-koma-letter :group 'org-export-koma-letter
:type 'boolean) :type 'boolean)
(defcustom org-koma-letter-use-foldmarks t (defcustom org-koma-letter-use-foldmarks "true"
"Print foldmarks." "Configure appearence of fold marks.
Accepts any valid value for the KOMA-Script `foldmarks' option.
Use `foldmarks:true' to activate default fold marks or
`foldmarks:nil' to deactivate fold marks."
:group 'org-export-koma-letter :group 'org-export-koma-letter
:type 'boolean) :type 'string)
(defcustom org-koma-letter-use-phone t (defcustom org-koma-letter-use-phone t
"Print sender's phone number." "Print sender's phone number."
@ -286,7 +291,7 @@ holding export options."
(with-email (plist-get info :with-email))) (with-email (plist-get info :with-email)))
(concat (concat
(format "\\KOMAoption{backaddress}{%s}\n" (if with-backaddress "true" "false")) (format "\\KOMAoption{backaddress}{%s}\n" (if with-backaddress "true" "false"))
(format "\\KOMAoption{foldmarks}{%s}\n" (if with-foldmarks "true" "false")) (format "\\KOMAoption{foldmarks}{%s}\n" (if with-foldmarks with-foldmarks "false"))
(format "\\KOMAoption{fromphone}{%s}\n" (if with-phone "true" "false")) (format "\\KOMAoption{fromphone}{%s}\n" (if with-phone "true" "false"))
(format "\\KOMAoption{fromemail}{%s}\n" (if with-email "true" "false")))) (format "\\KOMAoption{fromemail}{%s}\n" (if with-email "true" "false"))))
;; Document start ;; Document start