tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Bastien Guerry 2013-02-12 22:21:20 +01:00
parent 019a8dee21
commit cf1ba8cb05
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/ox-html.el
View File

@ -976,6 +976,14 @@ CSS classes, then this prefix can be very useful."
:group 'org-export-html :group 'org-export-html
:type 'string) :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 ;;; Internal Functions
@ -2817,14 +2825,14 @@ is non-nil."
(erase-buffer) (erase-buffer)
(insert output) (insert output)
(goto-char (point-min)) (goto-char (point-min))
(nxml-mode) (funcall org-html-display-buffer-mode)
(org-export-add-to-stack (current-buffer) 'html))) (org-export-add-to-stack (current-buffer) 'html)))
`(org-export-as 'html ,subtreep ,visible-only ,body-only ',ext-plist)) `(org-export-as 'html ,subtreep ,visible-only ,body-only ',ext-plist))
(let ((outbuf (org-export-to-buffer (let ((outbuf (org-export-to-buffer
'html "*Org HTML Export*" 'html "*Org HTML Export*"
subtreep visible-only body-only ext-plist))) subtreep visible-only body-only ext-plist)))
;; Set major mode. ;; 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 (when org-export-show-temporary-export-buffer
(switch-to-buffer-other-window outbuf))))) (switch-to-buffer-other-window outbuf)))))