mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 16:32:57 +00:00
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.)
This commit is contained in:
parent
6bd7ffef36
commit
b2743b9e37
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue