Browse Source

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.
Bastien Guerry 12 years ago
parent
commit
9731a8b681
2 changed files with 10 additions and 1 deletions
  1. 9 0
      contrib/lisp/org-e-html.el
  2. 1 1
      contrib/lisp/org-export.el

+ 9 - 0
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

+ 1 - 1
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."