diff options
author | Bastien Guerry <bzg@altern.org> | 2013-02-12 22:21:20 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-02-12 22:21:20 +0100 |
commit | cf1ba8cb05e087da65c9173166ef62caef36f029 (patch) | |
tree | bed1a85c76f87757a9ac0623859c82cc57e249f1 | |
parent | 019a8dee210da5cd0c8bb6baf1a440a7a9037162 (diff) | |
download | org-mode-cf1ba8cb05e087da65c9173166ef62caef36f029.tar.gz |
ox-html.el (org-html-display-buffer-mode): New option
* ox-html.el (org-html-display-buffer-mode): New option.
(org-html-export-as-html): Use it.
-rw-r--r-- | lisp/ox-html.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ox-html.el b/lisp/ox-html.el index cbc10a6..f9ba5d6 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -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"))) + ;;; 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))))) |