Fix `org-export-creator-string' and add the option `org-e-html-creator-string'.

* org-e-html.el (org-e-html-creator-string): New option.
(org-e-html-options-alist): Use it.

* org-export.el (org-export-creator-string): Don't use HTML
tags in the generic creator string.

Thanks to Nicolas for directions on what to change wrt this.
This commit is contained in:
Bastien Guerry 2012-07-06 09:09:31 +02:00
parent f801549160
commit 9731a8b681
2 changed files with 10 additions and 1 deletions

View File

@ -114,6 +114,7 @@
(defconst org-e-html-options-alist
'((:agenda-style nil nil org-agenda-export-html-style)
(:creator "CREATOR" nil org-e-html-creator-string)
(:convert-org-links nil nil org-e-html-link-org-files-as-html)
;; (:expand-quoted-html nil "@" org-e-html-expand)
(:inline-images nil nil org-e-html-inline-images)
@ -871,6 +872,14 @@ When nil, the links still point to the plain `.org' file."
:group 'org-export-e-html
:type 'boolean)
(defcustom org-e-html-creator-string
(format "Generated by <a href=\"http://orgmode.org\">Org</a> mode %s in <a href=\"http://www.gnu.org/software/emacs/\">Emacs</a> %s."
(if (fboundp 'org-version) (org-version) "(Unknown)")
emacs-version)
"String to insert at the end of the HTML document."
:group 'org-export-e-html
:type '(string :tag "Creator string"))
;;;; Headline
(defcustom org-e-html-format-headline-function nil

View File

@ -354,7 +354,7 @@ If the value is `comment' insert it as a comment."
(const :tag "Insert the sentence" t)))
(defcustom org-export-creator-string
(format "Generated by <a href=\"http://orgmode.org\">Org</a> mode %s in <a href=\"http://www.gnu.org/software/emacs/\">Emacs</a> %s."
(format "Generated by Org mode %s in Emacs %s."
(if (fboundp 'org-version) (org-version) "(Unknown)")
emacs-version)
"String to insert at the end of the generated document."