From b506dd781404a999056a0348fb7f3eb8c8ef4524 Mon Sep 17 00:00:00 2001 From: Viktor Rosenfeld Date: Sun, 5 May 2013 15:22:51 +0200 Subject: [PATCH 2/2] ox-koma-letter.el: Give the user complete control over foldmarks appearance. * ox-koma-letter.el (org-koma-letter-use-foldmarks) Update documentation (org-koma-letter-template): Pass foldmarks setting to KOMA-Script TINYCHANGE --- contrib/lisp/ox-koma-letter.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/contrib/lisp/ox-koma-letter.el b/contrib/lisp/ox-koma-letter.el index 37ff903..96c0569 100644 --- a/contrib/lisp/ox-koma-letter.el +++ b/contrib/lisp/ox-koma-letter.el @@ -130,10 +130,15 @@ :group 'org-export-koma-letter :type 'boolean) -(defcustom org-koma-letter-use-foldmarks t - "Print foldmarks." +(defcustom org-koma-letter-use-foldmarks "true" + "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 - :type 'boolean) + :type 'string) (defcustom org-koma-letter-use-phone t "Print sender's phone number." @@ -286,7 +291,7 @@ holding export options." (with-email (plist-get info :with-email))) (concat (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{fromemail}{%s}\n" (if with-email "true" "false")))) ;; Document start -- 1.8.2.2