ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Marco Wahl 2018-07-14 12:38:08 +02:00
parent 8aed6ba3ed
commit 76e38e8c54
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/lisp/ox-koma-letter.el
View File

@ -767,7 +767,9 @@ holding export options."
;; Opening. ;; Opening.
(format "\\opening{%s}\n\n" (format "\\opening{%s}\n\n"
(org-koma-letter--keyword-or-headline (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)) info))
;; Letter body. ;; Letter body.
contents contents
@ -776,7 +778,9 @@ holding export options."
(org-koma-letter--keyword-or-headline (org-koma-letter--keyword-or-headline
:closing :closing
(lambda (h i) (lambda (h i)
(eq (org-koma-letter--special-tag h i) 'closing)) (let ((special-tag (org-koma-letter--special-tag h i)))
(and special-tag
(string= "closing" special-tag))))
info)) info))
(org-koma-letter--special-contents-inline (org-koma-letter--special-contents-inline
(plist-get info :special-tags-after-closing) info) (plist-get info :special-tags-after-closing) info)