summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-02-12 22:08:44 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2012-02-12 22:08:44 +0100
commitdfd7fb23d20f7d5aa4ab8c441dbfb1563d2f324b (patch)
tree3179f79b5082c94bba4b8ab96a5249808d24ac1d
parent862fc8f4798ab8e48db25fc9cd84e1dd320e2d4e (diff)
downloadorg-mode-dfd7fb23d20f7d5aa4ab8c441dbfb1563d2f324b.tar.gz
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.
-rw-r--r--EXPERIMENTAL/org-e-ascii.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/EXPERIMENTAL/org-e-ascii.el b/EXPERIMENTAL/org-e-ascii.el
index e1b8a67..1e8d1fa 100644
--- a/EXPERIMENTAL/org-e-ascii.el
+++ b/EXPERIMENTAL/org-e-ascii.el
@@ -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)))))