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

ox-koma-letter: Fix a docstring 

* contrib/lisp/ox-koma-letter.el (org-koma-letter--special-contents-as-macro):
  Fix docstring.  Tiny refactoring.
This commit is contained in:
Nicolas Goaziou 2015-06-18 15:31:09 +02:00
parent e6f36cfe3a
commit a0a8834f30
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -473,17 +473,17 @@ formatted.
The function is used for inserting content of special headings The function is used for inserting content of special headings
such as PS. such as PS.
If KEEP-NEWLINES is t newlines will not be removed. If NO-TAG is If KEEP-NEWLINES is non-nil leading and trailing newlines are not
t the content in `org-koma-letter-special-contents' will not be removed. If NO-TAG is non-nil the content in
wrapped in a macro named whatever the members of KEYWORDS are `org-koma-letter-special-contents' are not wrapped in a macro
called." named whatever the members of KEYWORDS are called."
(mapconcat (mapconcat
#'(lambda (keyword) (lambda (keyword)
(let* ((name (org-koma-letter--get-value keyword)) (let* ((name (org-koma-letter--get-value keyword))
(value (org-koma-letter--get-tagged-contents name))) (value (org-koma-letter--get-tagged-contents name)))
(when value (cond ((not value) nil)
(if no-tag (if keep-newlines value (org-trim value)) (no-tag (if keep-newlines value (org-trim value)))
(format "\\%s{%s}\n" (t (format "\\%s{%s}\n"
name name
(if keep-newlines value (org-trim value))))))) (if keep-newlines value (org-trim value)))))))
keywords keywords