org-e-ascii: Less blank lines in document's title when no author is provided

* EXPERIMENTAL/org-e-ascii.el (org-e-ascii-template--document-title):
  Less blank lines in document's title when no author is provided.
This commit is contained in:
Nicolas Goaziou 2012-02-12 22:08:44 +01:00
parent 862fc8f479
commit dfd7fb23d2

View file

@ -925,12 +925,13 @@ INFO is a plist used as a communication channel."
(concat line "\n"
(unless utf8p "\n")
(upcase formatted-title)
(if utf8p "\n\n\n" "\n\n")
(cond
((and (org-string-nw-p author) (org-string-nw-p email))
(concat author "\n" email))
((org-string-nw-p author) author)
((org-string-nw-p email) email))
(concat (if utf8p "\n\n\n" "\n\n") author "\n" email))
((org-string-nw-p author)
(concat (if utf8p "\n\n\n" "\n\n") author))
((org-string-nw-p email)
(concat (if utf8p "\n\n\n" "\n\n") email)))
"\n" line
(when (org-string-nw-p date) (concat "\n\n\n" date))
"\n\n\n") text-width 'center)))))