amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system: emacs: Error if package file could not be generated.

Browse source 
* guix/build/emacs-build-system.scm (ensure-package-description)
[%write-pkg-file-form]: Use ‘error’ for error reporting.
This commit is contained in:
Liliana Marie Prikler 2025-07-04 08:46:36 +02:00
parent 6f93f5ac58
commit 8030c91dc2
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
guix/build/emacs-build-system.scm
View file

@ -209,14 +209,17 @@ locations in the store in '.el' files."
(build-package-desc-from-library name) (build-package-desc-from-library name)
(concat name "-pkg.el"))) (concat name "-pkg.el")))
(condition-case (let ((name (file-name-base (buffer-file-name)))
err (backtrace-on-error-noninteractive nil)) ; reduce backtrace noise
(let ((name (file-name-base (buffer-file-name)))) (condition-case
(generate-package-description-file name) err
(message (concat name "-pkg.el file generated."))) (progn
(error (generate-package-description-file name)
(message "There are some errors during generation of -pkg.el file:") (message (concat name "-pkg.el file generated.")))
(message "%s" (error-message-string err)))))) (error
(error
"ensure-package-description: could not generate %s-pkg.el: %s"
name (error-message-string err)))))))
(unless (file-exists? (string-append name "-pkg.el")) (unless (file-exists? (string-append name "-pkg.el"))
(emacs-batch-edit-file (string-append name ".el") (emacs-batch-edit-file (string-append name ".el")