summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarco Wahl <marcowahlsoft@gmail.com>2018-07-14 12:38:08 +0200
committerMarco Wahl <marcowahlsoft@gmail.com>2018-07-14 12:38:08 +0200
commit76e38e8c545c623411af3a86ba896892f98f500b (patch)
treece80cf123755125e175f515ca1187bc076c85f2d
parent8aed6ba3edbe0e9523ba7be0aa5e8cf7db73f629 (diff)
downloadorg-mode-76e38e8c545c623411af3a86ba896892f98f500b.tar.gz
ox-koma-letter: Fix: Respect The "closing" Tag
* contrib/lisp/ox-koma-letter.el (org-koma-letter-template): Compare special-tag to string instead of symbol. BTW indented and rearranged a few lines code.
-rw-r--r--contrib/lisp/ox-koma-letter.el14
1 files changed, 9 insertions, 5 deletions
diff --git a/contrib/lisp/ox-koma-letter.el b/contrib/lisp/ox-koma-letter.el
index defa388..abc0c28 100644
--- a/contrib/lisp/ox-koma-letter.el
+++ b/contrib/lisp/ox-koma-letter.el
@@ -767,17 +767,21 @@ holding export options."
;; Opening.
(format "\\opening{%s}\n\n"
(org-koma-letter--keyword-or-headline
- :opening (lambda (h i) (not (org-koma-letter--special-tag h i)))
+ :opening
+ (lambda (h i)
+ (not (org-koma-letter--special-tag h i)))
info))
;; Letter body.
contents
;; Closing.
(format "\\closing{%s}\n"
- (org-koma-letter--keyword-or-headline
- :closing
+ (org-koma-letter--keyword-or-headline
+ :closing
(lambda (h i)
- (eq (org-koma-letter--special-tag h i) 'closing))
- info))
+ (let ((special-tag (org-koma-letter--special-tag h i)))
+ (and special-tag
+ (string= "closing" special-tag))))
+ info))
(org-koma-letter--special-contents-inline
(plist-get info :special-tags-after-closing) info)
;; Letter end.