summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-02-12 22:21:20 +0100
committerBastien Guerry <bzg@altern.org>2013-02-12 22:21:20 +0100
commitcf1ba8cb05e087da65c9173166ef62caef36f029 (patch)
treebed1a85c76f87757a9ac0623859c82cc57e249f1
parent019a8dee210da5cd0c8bb6baf1a440a7a9037162 (diff)
downloadorg-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.el12
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)))))