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

Attempt to infer the package subject if missing

Browse source 
* lisp/emacs-lisp/package-vc.el (package-vc-main-file): Add function.
(package-vc-generate-description-file): Infer the subject.
This commit is contained in:
Philip Kaludercic 2022-10-16 17:18:06 +02:00
parent 5134eb02cf
commit b4e833b2f8
No known key found for this signature in database
GPG key ID: F2C3CC513DB89F66
1 changed files with 23 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -120,10 +120,32 @@
return it
finally return "0"))
(defun package-vc-main-file (pkg-desc)
"Return the main file of the package PKG-DESC.
If no file can be found that appends \".el\" to the end of the
package name, the file with the closest file name is chosen."
(let* ((default-directory (package-desc-dir pkg-desc))
(best (format "%s.el" (package-desc-name pkg-desc)))
(distance most-positive-fixnum) next-best)
(if (file-exists-p best)
(expand-file-name best)
(dolist (file (directory-files default-directory nil "\\.el\\'"))
(let ((distance* (string-distance best file)))
(when (< distance* distance)
(setq distance distance* next-best file))))
next-best)))
(defun package-vc-generate-description-file (pkg-desc pkg-file)
"Generate a package description file for PKG-DESC.
The output is written out into PKG-FILE."
(let* ((name (package-desc-name pkg-desc)))
(let ((name (package-desc-name pkg-desc)))
;; Infer the subject if missing.
(unless (package-desc-summary pkg-desc)
(setf (package-desc-summary pkg-desc)
(or (and-let* ((pkg (cadr (assq name package-archive-contents))))
(package-desc-summary pkg))
(lm-summary (package-vc-main-file pkg-desc))
package--default-summary)))
(let ((print-level nil)
(print-quoted t)
(print-length nil))