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

Build documentation like elpa-admin.el

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc-build-documentation): Add
function to build a documentation file.
(package-vc-unpack-1): Use 'package-vc-build-documentation'.
This commit is contained in:
Philip Kaludercic 2022-10-20 21:34:48 +02:00
parent 37bfb623e4
commit 2dabcba148
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 19 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -242,6 +242,21 @@ The output is written out into PKG-FILE."
"\n")
nil pkg-file nil 'silent))))
(declare-function org-export-to-file "ox" (backend file))
(defun package-vc-build-documentation (pkg-desc file)
"Build documentation FILE for PKG-DESC."
(let ((pkg-dir (package-desc-dir pkg-desc)))
(when (string-match-p "\\.org\\'" file)
(require 'ox)
(require 'ox-texinfo)
(with-temp-buffer
(insert-file-contents file)
(setq file (make-temp-file "ox-texinfo-"))
(org-export-to-file 'texinfo file)))
(call-process "install-info" nil nil nil
file pkg-dir)))
(defun package-vc-unpack-1 (pkg-desc pkg-dir)
"Install PKG-DESC that is already located in PKG-DIR."
;; In case the package was installed directly from source, the
@ -273,14 +288,10 @@ The output is written out into PKG-FILE."
(package-vc-generate-description-file pkg-desc pkg-file)
;; Detect a manual
(when (executable-find "install-info")
;; Only proceed if we can find an unambiguous TeXinfo file
(let ((texi-files (directory-files pkg-dir t "\\.texi\\'"))
(dir-file (expand-file-name "dir" pkg-dir)))
(when (length= texi-files 1)
(call-process "install-info" nil nil nil
(concat "--dir=" dir-file)
(car texi-files))))))
(when-let ((pkg-spec (pacakge-vc-desc->spec pkg-desc))
((executable-find "install-info")))
(dolist (doc-file (ensure-list (plist-get pkg-spec :doc)))
(package-vc-build-documentation pkg-desc doc-file))))
;; Update package-alist.
(let ((new-desc (package-load-descriptor pkg-dir)))