ox-texinfo: Offer to open produced file from dispatcher

* lisp/ox-texinfo.el (texinfo): Offer to open produced file from
  dispatcher.

File is opened through `org-open-file' since texinfo back-end can
output multiple formats.
This commit is contained in:
Nicolas Goaziou 2015-05-25 23:55:00 +02:00
parent e50472d926
commit f1f6eb1140
1 changed files with 5 additions and 1 deletions

View File

@ -86,7 +86,11 @@
:menu-entry
'(?i "Export to Texinfo"
((?t "As TEXI file" org-texinfo-export-to-texinfo)
(?i "As INFO file" org-texinfo-export-to-info)))
(?i "As INFO file" org-texinfo-export-to-info)
(?o "As INFO file and open"
(lambda (a s v b)
(if a (org-texinfo-export-to-info t s v b)
(org-open-file (org-texinfo-export-to-info nil s v b)))))))
:options-alist
'((:texinfo-filename "TEXINFO_FILENAME" nil nil t)
(:texinfo-class "TEXINFO_CLASS" nil org-texinfo-default-class t)