me/guix
Archived
1
0
Fork 0
Code Activity

gnu: make-mozilla-with-l10n: Use the copy-build-system.

Browse source 
Fixes <https://issues.guix.gnu.org/61742>.

* gnu/packages/gnuzilla.scm (make-mozilla-with-l10n): Rewrite to use the
copy-build-system.

Reported-by: Feng Shu <tumashu@163.com>
This commit is contained in:
Maxim Cournoyer 2023-03-02 15:39:55 -05:00
parent b2200e3488
commit 89e5f3f384
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 42 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
gnu/packages/gnuzilla.scm
View file

@ -50,8 +50,9 @@
#:use-module (guix modules) #:use-module (guix modules)
#:use-module (guix monads) #:use-module (guix monads)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system cargo) #:use-module (guix build-system cargo)
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu)
#:use-module (guix build-system trivial) #:use-module (guix build-system trivial)
#:use-module (gnu packages admin) #:use-module (gnu packages admin)
#:use-module (gnu packages audio) #:use-module (gnu packages audio)
@ -1681,16 +1682,20 @@ associated with their name."))
(package (package
(inherit base) (inherit base)
(name (symbol->string project)) (name (symbol->string project))
(build-system trivial-build-system) ;; Use the copy-build-system, as it provides the necessary UTF-8 locales
;; support.
(build-system copy-build-system)
(arguments (arguments
(list (list
#:modules '((guix build union) #:imported-modules `(,@%copy-build-system-modules
(guix build union))
#:modules '((guix build copy-build-system)
(guix build union)
(guix build utils)) (guix build utils))
#:builder #:phases
#~(begin #~(modify-phases %standard-phases
(use-modules (guix build union) (replace 'install
(guix build utils)) (lambda _
(union-build #$output (list #$base #$l10n-package) (union-build #$output (list #$base #$l10n-package)
#:create-all-directories? #t) #:create-all-directories? #t)
@ -1725,7 +1730,7 @@ associated with their name."))
;; Adjust the references in the desktop file and wrapper. ;; Adjust the references in the desktop file and wrapper.
(substitute* (list (string-append #$output "/" desktop-file) (substitute* (list (string-append #$output "/" desktop-file)
(string-append #$output "/" wrapper)) (string-append #$output "/" wrapper))
((#$base) #$output))))))))) ((#$base) #$output)))))))))))
(define-public icecat (define-public icecat
(make-mozilla-with-l10n 'icecat icecat-minimal icecat-l10n)) (make-mozilla-with-l10n 'icecat icecat-minimal icecat-l10n))