From f02b4baab3d8249994009b889b7fb11ee287d413 Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Thu, 26 Jun 2008 06:04:44 +0200
Subject: [PATCH] New option to turn off creator info.

---
 doc/org.texi    |  6 ++++--
 lisp/ChangeLog  |  6 ++++++
 lisp/org-exp.el | 12 ++++++++++--
 3 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/doc/org.texi b/doc/org.texi
index 458afb2ed..085f28cec 100644
--- a/doc/org.texi
+++ b/doc/org.texi
@@ -7761,8 +7761,10 @@ respective variable for details.
 @item @code{:TeX-macros}            @tab @code{org-export-with-TeX-macros}
 @item @code{:LaTeX-fragments}       @tab @code{org-export-with-LaTeX-fragments}
 @item @code{:fixed-width}           @tab @code{org-export-with-fixed-width}
-@item @code{:timestamps}           .@tab @code{org-export-with-timestamps}
-@item @code{:tags}                 .@tab @code{org-export-with-tags}
+@item @code{:timestamps}            @tab @code{org-export-with-timestamps}
+@item @code{:author-info}           @tab @code{org-export-author-info}
+@item @code{:creator-info}          @tab @code{org-export-creator-info}
+@item @code{:tags}                  @tab @code{org-export-with-tags}
 @item @code{:tables}                @tab @code{org-export-with-tables}
 @item @code{:table-auto-headline}   @tab @code{org-export-highlight-first-table-line}
 @item @code{:style}                 @tab @code{org-export-html-style}
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6de67c6f4..f28101077 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-06-26  Carsten Dominik  <dominik@science.uva.nl>
+
+	* org-exp.el (org-export-plist-vars, org-export-as-html):
+	Implement `org-export-creator-info'.
+	(org-export-creator-info): New option.
+
 2008-06-25  Carsten Dominik  <dominik@science.uva.nl>
 
 	* org.el (org-clock-drawer-start-re, org-clock-drawer-end-re)
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 8931e3da9..9771b7608 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -209,6 +209,12 @@ e.g. \"author-info:nil\"."
   :group 'org-export-general
   :type 'boolean)
 
+(defcustom org-export-creator-info t
+  "Non-nil means, the postamle should contain a creator sentence.
+This sentence is \"HTML generated by org-mode XX in emacs XXX\"."
+  :group 'org-export-general
+  :type 'boolean)
+
 (defcustom org-export-time-stamp-file t
   "Non-nil means, insert a time stamp into the exported file.
 The time stamp shows when the file was created.
@@ -744,6 +750,7 @@ or if they are only using it locally."
     (:fixed-width          . org-export-with-fixed-width)
     (:timestamps           . org-export-with-timestamps)
     (:author-info          . org-export-author-info)
+    (:creator-info         . org-export-creator-info)
     (:time-stamp-file      . org-export-time-stamp-file)
     (:tables               . org-export-with-tables)
     (:table-auto-headline  . org-export-highlight-first-table-line)
@@ -3249,8 +3256,9 @@ lang=\"%s\" xml:lang=\"%s\">
 	    (insert "<p class=\"date\"> "
 		    (nth 2 lang-words) ": "
 		    date "</p>\n"))
-	  (insert (format "<p>HTML generated by org-mode %s in emacs %s<\p>\n"
-			  org-version emacs-major-version))
+	  (when org-export-creator-info
+	    (insert (format "<p>HTML generated by org-mode %s in emacs %s<\p>\n"
+			    org-version emacs-major-version)))
 	  (insert "</div>"))
 
 	(if org-export-html-with-timestamp