diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2018-07-14 12:38:08 +0200 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2018-07-14 12:38:08 +0200 |
commit | 76e38e8c545c623411af3a86ba896892f98f500b (patch) | |
tree | ce80cf123755125e175f515ca1187bc076c85f2d | |
parent | 8aed6ba3edbe0e9523ba7be0aa5e8cf7db73f629 (diff) | |
download | org-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.el | 14 |
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. |