From mboxrd@z Thu Jan 1 00:00:00 1970 From: Andrew Stribblehill Subject: [PATCH] Remove some blank leading blank lines from ASCII export. Date: Sun, 9 Aug 2009 12:20:50 +0100 Message-ID: <1f38ae890908090420q6db51cdfubedcba3020ba7a71@mail.gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Ma6SP-0002xs-IP for emacs-orgmode@gnu.org; Sun, 09 Aug 2009 07:20:57 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Ma6SK-0002xM-2j for emacs-orgmode@gnu.org; Sun, 09 Aug 2009 07:20:56 -0400 Received: from [199.232.76.173] (port=40079 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ma6SJ-0002xJ-Ry for emacs-orgmode@gnu.org; Sun, 09 Aug 2009 07:20:51 -0400 Received: from mail-bw0-f222.google.com ([209.85.218.222]:44697) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Ma6SJ-00036H-Fl for emacs-orgmode@gnu.org; Sun, 09 Aug 2009 07:20:51 -0400 Received: by mail-bw0-f222.google.com with SMTP id 22so2245354bwz.42 for ; Sun, 09 Aug 2009 04:20:50 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode 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/ChangeLog | 5 +++++ lisp/org-ascii.el | 11 +++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dd00a9a..2c477d7 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-08-09 Andrew Stribblehill + + * org-ascii.el (org-export-as-ascii): Remove some leading blank + lines from output when skipping preamble. + 2009-08-08 Bastien Guerry * org.el (org-iswitchb): Fix bug when aborting the `org-iswitchb' diff --git a/lisp/org-ascii.el b/lisp/org-ascii.el index ede4ccc..846be8a 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 -- 1.6.3.GIT