procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve robustness of documentation generation

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc--build-documentation): Log
output and display error messages if anything goes wrong.
This commit is contained in:
Philip Kaludercic 2022-11-11 00:09:46 +01:00
parent a6cd44734d
commit 7c3d3fa44e
1 changed files with 14 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/emacs-lisp/package-vc.el
View file

@ -355,10 +355,8 @@ asynchronously."
FILE can be an Org file, indicated by its \".org\" extension,
otherwise it's assumed to be an Info file."
(let* ((pkg-name (package-desc-name pkg-desc))
(pkg-dir (package-desc-dir pkg-desc))
(output (file-name-concat
(format "%s.info" pkg-name)
pkg-dir)))
(default-directory (package-desc-dir pkg-desc))
(output (expand-file-name (format "%s.info" pkg-name))))
(when (string-match-p "\\.org\\'" file)
(require 'ox)
(require 'ox-texinfo)
@ -366,10 +364,18 @@ otherwise it's assumed to be an Info file."
(insert-file-contents file)
(setq file (make-temp-file "ox-texinfo-"))
(org-export-to-file 'texinfo file)))
(call-process "makeinfo" nil nil nil
"--no-split" file "-o" output)
(call-process "install-info" nil nil nil
output pkg-dir)))
(with-current-buffer (get-buffer-create " *package-vc doc*")
(erase-buffer)
(cond
((/= 0 (call-process "makeinfo" nil t nil
"--no-split" file "-o" output))
(message "Failed to build manual %s, see buffer %S"
file (buffer-name)))
((/= 0 (call-process "install-info" nil t nil
output (expand-file-name "dir")))
(message "Failed to install manual %s, see buffer %S"
output (buffer-name)))
((kill-buffer))))))
(defun package-vc--unpack-1 (pkg-desc pkg-dir)
"Prepare PKG-DESC that is already checked-out in PKG-DIR.