diff options
| author | Bastien Guerry <bzg@altern.org> | 2012-07-06 09:09:31 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-07-06 09:09:31 +0200 |
| commit | 9731a8b68194cce172556a65c21acc28870ef9e0 (patch) | |
| tree | fc4a0ae129ef41d9e2685ec865d1b7a6ff25db82 | |
| parent | f801549160c953eddd69425de19e76394b94da43 (diff) | |
| download | org-mode-9731a8b68194cce172556a65c21acc28870ef9e0.tar.gz | |
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.
| -rw-r--r-- | contrib/lisp/org-e-html.el | 9 | ||||
| -rw-r--r-- | contrib/lisp/org-export.el | 2 |
2 files changed, 10 insertions, 1 deletions
diff --git a/contrib/lisp/org-e-html.el b/contrib/lisp/org-e-html.el index db96516..3c12227 100644 --- a/contrib/lisp/org-e-html.el +++ b/contrib/lisp/org-e-html.el @@ -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 diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 9700b8f..6a2ea74 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -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." |