فهرست منبع

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 13 سال پیش
والد
کامیت
9731a8b681
2فایلهای تغییر یافته به همراه10 افزوده شده و 1 حذف شده
  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."