ox-html.el (org-html-display-buffer-mode): New option
authorBastien Guerry <bzg@altern.org>
Tue, 12 Feb 2013 21:21:20 +0000 (12 22:21 +0100)
committerBastien Guerry <bzg@altern.org>
Tue, 12 Feb 2013 21:21:20 +0000 (12 22:21 +0100)
* ox-html.el (org-html-display-buffer-mode): New option.
(org-html-export-as-html): Use it.

lisp/ox-html.el

index cbc10a6..f9ba5d6 100644 (file)
@@ -976,6 +976,14 @@ CSS classes, then this prefix can be very useful."
   :group 'org-export-html
   :type 'string)
 
+(defcustom org-html-display-buffer-mode 'html-mode
+  "Default mode when visiting the HTML output."
+  :group 'org-export-html
+  :version "24.3"
+  :type '(choice (function 'html-mode)
+                (function 'nxml-mode)
+                (function :tag "Other mode")))
+
 
 \f
 ;;; Internal Functions
@@ -2817,14 +2825,14 @@ is non-nil."
              (erase-buffer)
              (insert output)
              (goto-char (point-min))
-             (nxml-mode)
+             (funcall org-html-display-buffer-mode)
              (org-export-add-to-stack (current-buffer) 'html)))
        `(org-export-as 'html ,subtreep ,visible-only ,body-only ',ext-plist))
     (let ((outbuf (org-export-to-buffer
                   'html "*Org HTML Export*"
                   subtreep visible-only body-only ext-plist)))
       ;; Set major mode.
-      (with-current-buffer outbuf (nxml-mode))
+      (with-current-buffer outbuf (funcall org-html-display-buffer-mode))
       (when org-export-show-temporary-export-buffer
        (switch-to-buffer-other-window outbuf)))))