From b2743b9e37abe42df79920a9a06a0b0833e69296 Mon Sep 17 00:00:00 2001 From: Andrew Stribblehill Date: Sun, 9 Aug 2009 12:20:50 +0100 Subject: [PATCH] Remove some blank leading blank lines from ASCII export. With the following org file: ------ Foo In which foos are described. #+OPTIONS: num:nil author:nil creator:nil timestamp:nil d:nil toc:nil skip:t #+TITLE: * The construction of a foo ** Armaments ------ I found exporting to ASCII gave five leading blank lines. The following patch reduces that to one. (I'd love some help in tracking down that final one.) --- lisp/org-ascii.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/org-ascii.el b/lisp/org-ascii.el index ede4ccce2..846be8aa1 100644 --- a/lisp/org-ascii.el +++ b/lisp/org-ascii.el @@ -266,11 +266,13 @@ publishing directory." ;; File header (unless body-only - (if title (org-insert-centered title ?=)) - (insert "\n") + (when (and title (not (string= "" title))) + (org-insert-centered title ?=) + (insert "\n")) + (if (and (or author email) org-export-author-info) - (insert (concat (nth 1 lang-words) ": " (or author "") + (insert(concat (nth 1 lang-words) ": " (or author "") (if email (concat " <" email ">") "") "\n"))) @@ -283,7 +285,8 @@ publishing directory." (if (and date org-export-time-stamp-file) (insert (concat (nth 2 lang-words) ": " date"\n"))) - (insert "\n\n")) + (unless (= (point) (point-min)) + (insert "\n\n"))) (if (and org-export-with-toc (not body-only)) (progn -- 2.11.4.GIT