gnu: librewolf: Shorten line length.

* gnu/packages/librewolf.scm (librewolf): Shorten line length.

Change-Id: I27eea08401b16b56e29b61c5dc6f87f7517b87d4
This commit is contained in:
Ian Eure 2025-03-11 21:16:38 -07:00
parent 0b7c8ee635
commit d52ca2c579
No known key found for this signature in database
GPG key ID: 8499AC88F1A71CF2

View file

@ -283,7 +283,8 @@
(guix elf) (guix elf)
(guix build gremlin) (guix build gremlin)
,@%default-gnu-imported-modules) ,@%default-gnu-imported-modules)
#:phases #~(modify-phases %standard-phases #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-preferences (add-after 'unpack 'fix-preferences
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((port (open-file "browser/app/profile/firefox.js" (let ((port (open-file "browser/app/profile/firefox.js"
@ -311,7 +312,8 @@
(libavcodec (string-append ffmpeg (libavcodec (string-append ffmpeg
"/lib/libavcodec.so"))) "/lib/libavcodec.so")))
;; Arrange to load libavcodec.so by its absolute file name. ;; Arrange to load libavcodec.so by its absolute file name.
(substitute* "dom/media/platforms/ffmpeg/FFmpegRuntimeLinker.cpp" (substitute*
"dom/media/platforms/ffmpeg/FFmpegRuntimeLinker.cpp"
(("libavcodec\\.so") (("libavcodec\\.so")
libavcodec))))) libavcodec)))))
(add-after 'unpack 'neuter-genai (add-after 'unpack 'neuter-genai
@ -328,7 +330,8 @@
(string-append (string-append
"e3b0c44298fc1c149afbf4c8996fb924" "e3b0c44298fc1c149afbf4c8996fb924"
"27ae41e4649b934ca495991b7852b855"))) "27ae41e4649b934ca495991b7852b855")))
(for-each (lambda (file) (for-each
(lambda (file)
(format #t (format #t
"patch-cargo-checksums: patching checksums in ~a~%" "patch-cargo-checksums: patching checksums in ~a~%"
file) file)
@ -402,7 +405,8 @@
(string-append all ", icu-uc >= 76.1"))) (string-append all ", icu-uc >= 76.1")))
(if (string=? old-content (if (string=? old-content
(pk (call-with-input-file file get-string-all))) (pk (call-with-input-file file get-string-all)))
(error "substitute did nothing, phase requires an update"))))) (error
"substitute did nothing, phase requires an update")))))
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs configure-flags (lambda* (#:key inputs outputs configure-flags
#:allow-other-keys) #:allow-other-keys)
@ -419,7 +423,8 @@
;; This should use the host info probably (does it ;; This should use the host info probably (does it
;; build on non-x86_64 though?) ;; build on non-x86_64 though?)
(setenv "GUIX_PYTHONPATH" (setenv "GUIX_PYTHONPATH"
(string-append (getcwd) (string-append
(getcwd)
"/obj-x86_64-pc-linux-gnu/_virtualenvs/build")) "/obj-x86_64-pc-linux-gnu/_virtualenvs/build"))
;; Use Clang, Clang is 2x faster than GCC ;; Use Clang, Clang is 2x faster than GCC
@ -473,7 +478,8 @@
(invoke "./mach" "configure"))) (invoke "./mach" "configure")))
(add-before 'build 'fix-addons-placeholder (add-before 'build 'fix-addons-placeholder
(lambda _ (lambda _
(substitute* "toolkit/locales/en-US/toolkit/about/aboutAddons.ftl" (substitute*
"toolkit/locales/en-US/toolkit/about/aboutAddons.ftl"
(("addons.mozilla.org") (("addons.mozilla.org")
"gnuzilla.gnu.org")))) "gnuzilla.gnu.org"))))
(replace 'build (replace 'build