Browse Source

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 years ago
parent
commit
1376df2648
1 changed files with 4 additions and 1 deletions
  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
   :group 'org-export-html
   :version "24.4"
   :version "24.4"
   :package-version '(Org . "8.0")
   :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
 (defcustom org-html-html5-fancy nil
   "Non-nil means using new HTML5 elements.
   "Non-nil means using new HTML5 elements.