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

ox-texinfo.el: Add @documentlanguage and @documentencoding and `org-texinfo-publish-to-texinfo'

Browse source 
* ox-texinfo.el (org-texinfo-coding-system): New option.
(org-texinfo-template): Add @documentlanguage and
@documentencoding.
(org-texinfo-headline): Add a space before tags.
(org-texinfo-export-to-texinfo, org-texinfo-export-to-info):
Use `org-texinfo-coding-system' as the coding system for
exported buffers.
(org-texinfo-publish-to-texinfo): New function.
This commit is contained in:
Bastien Guerry 2013-03-19 10:24:30 +01:00
parent 3b0c9b4e78
commit a6e1f67d34
1 changed files with 43 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
lisp/ox-texinfo.el
View file

@ -148,6 +148,11 @@
:group 'org-export-texinfo :group 'org-export-texinfo
:type '(string :tag "Export Filename")) :type '(string :tag "Export Filename"))
(defcustom org-texinfo-coding-system nil
"Default document encoding for Texinfo output."
:group 'org-export-texinfo
:type 'coding-system)
(defcustom org-texinfo-default-class "info" (defcustom org-texinfo-default-class "info"
"The default Texinfo class." "The default Texinfo class."
:group 'org-export-texinfo :group 'org-export-texinfo
@ -654,6 +659,7 @@ holding export options."
(file-name-nondirectory (file-name-nondirectory
(org-export-output-file-name ".info")))) (org-export-output-file-name ".info"))))
(author (org-export-data (plist-get info :author) info)) (author (org-export-data (plist-get info :author) info))
(lang (org-export-data (plist-get info :language) info))
(texinfo-header (plist-get info :texinfo-header)) (texinfo-header (plist-get info :texinfo-header))
(texinfo-post-header (plist-get info :texinfo-post-header)) (texinfo-post-header (plist-get info :texinfo-post-header))
(subtitle (plist-get info :subtitle)) (subtitle (plist-get info :subtitle))
@ -678,6 +684,10 @@ holding export options."
;; Filename and Title ;; Filename and Title
"@setfilename " info-filename "\n" "@setfilename " info-filename "\n"
"@settitle " title "\n" "@settitle " title "\n"
(if org-texinfo-coding-system
(format "@documentencoding %s\n"
(upcase (symbol-name org-texinfo-coding-system))) "\n")
(format "@documentlanguage %s\n" lang)
"\n\n" "\n\n"
"@c Version and Contact Info\n" "@c Version and Contact Info\n"
"@set AUTHOR " author "\n" "@set AUTHOR " author "\n"
@ -1003,7 +1013,7 @@ holding contextual information."
(when priority (format "@emph{#%s} " priority)) (when priority (format "@emph{#%s} " priority))
text text
(when tags (when tags
(format ":%s:" (format " :%s:"
(mapconcat 'identity tags ":"))))))) (mapconcat 'identity tags ":")))))))
(full-text-no-tag (full-text-no-tag
(org-texinfo--sanitize-content (org-texinfo--sanitize-content
@ -1679,16 +1689,19 @@ file-local settings.
Return output file's name." Return output file's name."
(interactive) (interactive)
(let ((outfile (org-export-output-file-name ".texi" subtreep))) (let ((outfile (org-export-output-file-name ".texi" subtreep))
(org-export-coding-system org-texinfo-coding-system))
(if async (if async
(org-export-async-start (org-export-async-start
(lambda (f) (org-export-add-to-stack f 'texinfo)) (lambda (f) (org-export-add-to-stack f 'texinfo))
`(expand-file-name (let ((org-export-coding-system org-texinfo-coding-system))
(org-export-to-file `(expand-file-name
'texinfo ,outfile ,subtreep ,visible-only ,body-only (org-export-to-file
',ext-plist))) 'texinfo ,outfile ,subtreep ,visible-only ,body-only
(org-export-to-file ',ext-plist))))
'texinfo outfile subtreep visible-only body-only ext-plist)))) (let ((org-export-coding-system org-texinfo-coding-system))
(org-export-to-file
'texinfo outfile subtreep visible-only body-only ext-plist)))))
(defun org-texinfo-export-to-info (defun org-texinfo-export-to-info
(&optional async subtreep visible-only body-only ext-plist) (&optional async subtreep visible-only body-only ext-plist)
@ -1723,17 +1736,31 @@ directory.
Return INFO file's name." Return INFO file's name."
(interactive) (interactive)
(if async (if async
(let ((outfile (org-export-output-file-name ".texi" subtreep))) (let ((outfile (org-export-output-file-name ".texi" subtreep))
(org-export-coding-system org-texinfo-coding-system))
(org-export-async-start (org-export-async-start
(lambda (f) (org-export-add-to-stack f 'texinfo)) (lambda (f) (org-export-add-to-stack f 'texinfo))
`(expand-file-name (let ((org-export-coding-system org-texinfo-coding-system))
(org-texinfo-compile `(expand-file-name
(org-export-to-file (org-texinfo-compile
'texinfo ,outfile ,subtreep ,visible-only ,body-only (org-export-to-file
',ext-plist))))) 'texinfo ,outfile ,subtreep ,visible-only ,body-only
',ext-plist))))))
(org-texinfo-compile (org-texinfo-compile
(org-texinfo-export-to-texinfo (let ((org-export-coding-system org-texinfo-coding-system))
nil subtreep visible-only body-only ext-plist)))) (org-texinfo-export-to-texinfo
nil subtreep visible-only body-only ext-plist)))))
;;;###autoload
(defun org-texinfo-publish-to-texinfo (plist filename pub-dir)
"Publish an org file to Texinfo.
FILENAME is the filename of the Org file to be published. PLIST
is the property list for the given project. PUB-DIR is the
publishing directory.
Return output file name."
(org-publish-org-to 'texinfo filename ".texi" plist pub-dir))
(defun org-texinfo-compile (file) (defun org-texinfo-compile (file)
"Compile a texinfo file. "Compile a texinfo file.