浏览代码

Use an overridable list of available doctypes for customization.

* lisp/ox-html.el (org-html-doctype): Use choice of available
  doctypes (from `org-html-doctype-alist) plus user-entered string.
Rick Frankel 11 年之前
父节点
当前提交
1376df2648
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      lisp/ox-html.el

+ 4 - 1
lisp/ox-html.el

@@ -923,7 +923,10 @@ publishing, with :html-doctype."
   :group 'org-export-html
   :version "24.4"
   :package-version '(Org . "8.0")
-  :type 'string)
+  :type (append
+	 '(choice)
+	 (mapcar (lambda (x) `(const ,(car x))) org-html-doctype-alist)
+	 '((string :tag "Custom doctype" ))))
 
 (defcustom org-html-html5-fancy nil
   "Non-nil means using new HTML5 elements.