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

org-e-texinfo: Update compile function

Browse source 
* contrib/lisp/org-e-texinfo.el (org-e-texinfo-compile): Mirror recent
changes about base filename and default-directory made to
`org-e-latex-compile'.
This commit is contained in:
Nicolas Goaziou 2012-10-25 16:07:13 +02:00
parent ec40ba021a
commit c712d65397
1 changed files with 46 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
contrib/lisp/org-e-texinfo.el
View file

@ -1740,37 +1740,38 @@ Return INFO file's name."
(org-e-texinfo-export-to-texinfo
subtreep visible-only body-only ext-plist pub-dir)))
(defun org-e-texinfo-compile (texifile)
(defun org-e-texinfo-compile (file)
"Compile a texinfo file.
TEXIFILE is the name of the file being compiled. Processing is
FILE is the name of the file being compiled. Processing is
done through the command specified in `org-e-texinfo-info-process'.
Return INFO file name or an error if it couldn't be produced."
(let* ((wconfig (current-window-configuration))
(texifile (file-truename texifile))
(base (file-name-sans-extension texifile))
(let* ((base-name (file-name-sans-extension (file-name-nondirectory file)))
(full-name (file-truename file))
(out-dir (file-name-directory file))
;; Make sure `default-directory' is set to FILE directory,
;; not to whatever value the current buffer may have.
(default-directory (file-name-directory full-name))
errors)
(message (format "Processing Texinfo file %s ..." texifile))
(unwind-protect
(progn
(message (format "Processing Texinfo file %s ..." file))
(save-window-excursion
(cond
;; A function is provided: Apply it.
((functionp org-e-texinfo-info-process)
(funcall org-e-texinfo-info-process (shell-quote-argument texifile)))
(funcall org-e-texinfo-info-process (shell-quote-argument file)))
;; A list is provided: Replace %b, %f and %o with appropriate
;; values in each command before applying it. Output is
;; redirected to "*Org INFO Texinfo Output*" buffer.
((consp org-e-texinfo-info-process)
(let* ((out-dir (or (file-name-directory texifile) "./"))
(outbuf (get-buffer-create "*Org Info Texinfo Output*")))
(let ((outbuf (get-buffer-create "*Org INFO Texinfo Output*")))
(mapc
(lambda (command)
(shell-command
(replace-regexp-in-string
"%b" (shell-quote-argument base)
"%b" (shell-quote-argument base-name)
(replace-regexp-in-string
"%f" (shell-quote-argument texifile)
"%f" (shell-quote-argument full-name)
(replace-regexp-in-string
"%o" (shell-quote-argument out-dir) command t t) t t) t t)
outbuf))
@ -1778,7 +1779,7 @@ Return INFO file name or an error if it couldn't be produced."
;; Collect standard errors from output buffer.
(setq errors (org-e-texinfo-collect-errors outbuf))))
(t (error "No valid command to process to Info")))
(let ((infofile (concat base ".info")))
(let ((infofile (concat out-dir base-name ".info")))
;; Check for process failure. Provide collected errors if
;; possible.
(if (not (file-exists-p infofile))
@ -1790,8 +1791,7 @@ Return INFO file name or an error if it couldn't be produced."
(if (not errors) "."
(concat " with errors: " errors)))))
;; Return output file name.
infofile))
(set-window-configuration wconfig))))
infofile))))
(defun org-e-texinfo-collect-errors (buffer)
"Collect some kind of errors from \"makeinfo\" command output.