diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-02-12 22:08:44 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-02-12 22:08:44 +0100 |
commit | dfd7fb23d20f7d5aa4ab8c441dbfb1563d2f324b (patch) | |
tree | 3179f79b5082c94bba4b8ab96a5249808d24ac1d | |
parent | 862fc8f4798ab8e48db25fc9cd84e1dd320e2d4e (diff) | |
download | org-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.el | 9 |
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))))) |