mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-27 16:32:57 +00:00
Code Releases Activity

Remove some blank leading blank lines from ASCII export.

Browse source 
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.)
This commit is contained in:
Andrew Stribblehill 2009-08-09 12:20:50 +01:00 committed by Carsten Dominik
parent 6bd7ffef36
commit b2743b9e37
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/org-ascii.el
View file

@ -266,11 +266,13 @@ publishing directory."
;; File header ;; File header
(unless body-only (unless body-only
(if title (org-insert-centered title ?=)) (when (and title (not (string= "" title)))
(insert "\n") (org-insert-centered title ?=)
(insert "\n"))
(if (and (or author email) (if (and (or author email)
org-export-author-info) org-export-author-info)
(insert (concat (nth 1 lang-words) ": " (or author "") (insert(concat (nth 1 lang-words) ": " (or author "")
(if email (concat " <" email ">") "") (if email (concat " <" email ">") "")
"\n"))) "\n")))
@ -283,7 +285,8 @@ publishing directory."
(if (and date org-export-time-stamp-file) (if (and date org-export-time-stamp-file)
(insert (concat (nth 2 lang-words) ": " date"\n"))) (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)) (if (and org-export-with-toc (not body-only))
(progn (progn