mirror of
https://https.git.savannah.gnu.org/git/guix.git/
synced 2025-07-16 12:00:35 +02:00
gnu: librewolf: Shorten line length.
* gnu/packages/librewolf.scm (librewolf): Shorten line length. Change-Id: I27eea08401b16b56e29b61c5dc6f87f7517b87d4
This commit is contained in:
Ian Eure
parent
0b7c8ee635
commit
d52ca2c579
1 changed files with 374 additions and 368 deletions
|
|
@ -283,383 +283,389 @@
|
|||
(guix elf)
|
||||
(guix build gremlin)
|
||||
,@%default-gnu-imported-modules)
|
||||
#:phases #~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'fix-preferences
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let ((port (open-file "browser/app/profile/firefox.js"
|
||||
"a")))
|
||||
(define (write-setting key value)
|
||||
(format port "~%pref(\"~a\", ~a);~%" key value)
|
||||
(format #t
|
||||
"fix-preferences: setting value of ~a to ~a~%" key
|
||||
value))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'fix-preferences
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let ((port (open-file "browser/app/profile/firefox.js"
|
||||
"a")))
|
||||
(define (write-setting key value)
|
||||
(format port "~%pref(\"~a\", ~a);~%" key value)
|
||||
(format #t
|
||||
"fix-preferences: setting value of ~a to ~a~%" key
|
||||
value))
|
||||
|
||||
;; We should allow the sandbox to read the store directory,
|
||||
;; because the sandbox has access to /usr on FHS distros.
|
||||
(write-setting
|
||||
"security.sandbox.content.read_path_whitelist"
|
||||
(string-append "\""
|
||||
(%store-directory) "/\""))
|
||||
;; We should allow the sandbox to read the store directory,
|
||||
;; because the sandbox has access to /usr on FHS distros.
|
||||
(write-setting
|
||||
"security.sandbox.content.read_path_whitelist"
|
||||
(string-append "\""
|
||||
(%store-directory) "/\""))
|
||||
|
||||
;; XDG settings should be managed by Guix.
|
||||
(write-setting "browser.shell.checkDefaultBrowser"
|
||||
"false")
|
||||
(close-port port))))
|
||||
(add-after 'fix-preferences 'fix-ffmpeg-runtime-linker
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let* ((ffmpeg (assoc-ref inputs "ffmpeg"))
|
||||
(libavcodec (string-append ffmpeg
|
||||
"/lib/libavcodec.so")))
|
||||
;; Arrange to load libavcodec.so by its absolute file name.
|
||||
(substitute* "dom/media/platforms/ffmpeg/FFmpegRuntimeLinker.cpp"
|
||||
(("libavcodec\\.so")
|
||||
libavcodec)))))
|
||||
(add-after 'unpack 'neuter-genai
|
||||
(lambda* _
|
||||
;; Lock the preferences so they can't be enabled.
|
||||
(substitute* "lw/librewolf.cfg"
|
||||
(("defaultPref\\(\"browser\\.ml\\.")
|
||||
"lockPref(\"browser.ml."))))
|
||||
(add-after 'patch-source-shebangs 'patch-cargo-checksums
|
||||
(lambda _
|
||||
(use-modules (guix build cargo-utils))
|
||||
(let ((null-hash
|
||||
;; This is the SHA256 output of an empty string.
|
||||
(string-append
|
||||
"e3b0c44298fc1c149afbf4c8996fb924"
|
||||
"27ae41e4649b934ca495991b7852b855")))
|
||||
(for-each (lambda (file)
|
||||
(format #t
|
||||
"patch-cargo-checksums: patching checksums in ~a~%"
|
||||
file)
|
||||
(substitute* file
|
||||
(("(checksum = )\".*\"" all name)
|
||||
(string-append name "\"" null-hash
|
||||
"\""))))
|
||||
(find-files "." "Cargo\\.lock$"))
|
||||
(for-each generate-all-checksums
|
||||
'("build"
|
||||
"dom/media"
|
||||
"dom/webauthn"
|
||||
"gfx"
|
||||
"intl"
|
||||
"js"
|
||||
"media"
|
||||
"modules"
|
||||
"mozglue/static/rust"
|
||||
"netwerk"
|
||||
"remote"
|
||||
"security/manager/ssl"
|
||||
"servo"
|
||||
"storage"
|
||||
"third_party/rust"
|
||||
"toolkit"
|
||||
"xpcom/rust"
|
||||
"services")))))
|
||||
(add-after 'patch-cargo-checksums 'remove-cargo-frozen-flag
|
||||
(lambda _
|
||||
;; Remove --frozen flag from cargo invocation, otherwise it'll
|
||||
;; complain that it's not able to change Cargo.lock.
|
||||
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1726373
|
||||
(substitute* "build/RunCbindgen.py"
|
||||
(("args.append\\(\"--frozen\"\\)") "pass"))))
|
||||
(delete 'bootstrap)
|
||||
(add-before 'configure 'patch-SpeechDispatcherService.cpp
|
||||
(lambda _
|
||||
(let* ((lib "libspeechd.so.2")
|
||||
(file (string-append
|
||||
"dom/media/webspeech/synth/"
|
||||
"speechd/SpeechDispatcherService.cpp"))
|
||||
(old-content (call-with-input-file file
|
||||
get-string-all)))
|
||||
(substitute
|
||||
file
|
||||
`((,(format #f "~s" lib) unquote
|
||||
(lambda (line _)
|
||||
(string-replace-substring
|
||||
line lib
|
||||
(string-append #$speech-dispatcher
|
||||
"/lib/" lib))))))
|
||||
(if (string=? old-content
|
||||
(call-with-input-file file
|
||||
get-string-all))
|
||||
(error
|
||||
"substitute did nothing, phase requires an update")))))
|
||||
(add-before 'configure 'set-build-id
|
||||
;; Build will write the timestamp to output, which is harmful
|
||||
;; for reproducibility, so change it to a fixed date. Use a
|
||||
;; separate phase for easier modification with inherit.
|
||||
(lambda _
|
||||
(setenv "MOZ_BUILD_DATE"
|
||||
#$%librewolf-build-id)))
|
||||
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1927380
|
||||
(add-before 'configure 'patch-icu-lookup
|
||||
(lambda _
|
||||
(let* ((file "js/moz.configure")
|
||||
(old-content (call-with-input-file file get-string-all)))
|
||||
(substitute* file
|
||||
(("icu-i18n >= 76.1" all)
|
||||
(string-append all ", icu-uc >= 76.1")))
|
||||
(if (string=? old-content
|
||||
(pk (call-with-input-file file get-string-all)))
|
||||
(error "substitute did nothing, phase requires an update")))))
|
||||
(replace 'configure
|
||||
(lambda* (#:key inputs outputs configure-flags
|
||||
#:allow-other-keys)
|
||||
(setenv "AUTOCONF"
|
||||
(string-append (assoc-ref inputs "autoconf")
|
||||
"/bin/autoconf"))
|
||||
(setenv "SHELL"
|
||||
(which "bash"))
|
||||
(setenv "CONFIG_SHELL"
|
||||
(which "bash"))
|
||||
(setenv "MACH_BUILD_PYTHON_NATIVE_PACKAGE_SOURCE"
|
||||
"system")
|
||||
(setenv "LANG" "en_US.utf8")
|
||||
;; This should use the host info probably (does it
|
||||
;; build on non-x86_64 though?)
|
||||
(setenv "GUIX_PYTHONPATH"
|
||||
(string-append (getcwd)
|
||||
"/obj-x86_64-pc-linux-gnu/_virtualenvs/build"))
|
||||
;; XDG settings should be managed by Guix.
|
||||
(write-setting "browser.shell.checkDefaultBrowser"
|
||||
"false")
|
||||
(close-port port))))
|
||||
(add-after 'fix-preferences 'fix-ffmpeg-runtime-linker
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let* ((ffmpeg (assoc-ref inputs "ffmpeg"))
|
||||
(libavcodec (string-append ffmpeg
|
||||
"/lib/libavcodec.so")))
|
||||
;; Arrange to load libavcodec.so by its absolute file name.
|
||||
(substitute*
|
||||
"dom/media/platforms/ffmpeg/FFmpegRuntimeLinker.cpp"
|
||||
(("libavcodec\\.so")
|
||||
libavcodec)))))
|
||||
(add-after 'unpack 'neuter-genai
|
||||
(lambda* _
|
||||
;; Lock the preferences so they can't be enabled.
|
||||
(substitute* "lw/librewolf.cfg"
|
||||
(("defaultPref\\(\"browser\\.ml\\.")
|
||||
"lockPref(\"browser.ml."))))
|
||||
(add-after 'patch-source-shebangs 'patch-cargo-checksums
|
||||
(lambda _
|
||||
(use-modules (guix build cargo-utils))
|
||||
(let ((null-hash
|
||||
;; This is the SHA256 output of an empty string.
|
||||
(string-append
|
||||
"e3b0c44298fc1c149afbf4c8996fb924"
|
||||
"27ae41e4649b934ca495991b7852b855")))
|
||||
(for-each
|
||||
(lambda (file)
|
||||
(format #t
|
||||
"patch-cargo-checksums: patching checksums in ~a~%"
|
||||
file)
|
||||
(substitute* file
|
||||
(("(checksum = )\".*\"" all name)
|
||||
(string-append name "\"" null-hash
|
||||
"\""))))
|
||||
(find-files "." "Cargo\\.lock$"))
|
||||
(for-each generate-all-checksums
|
||||
'("build"
|
||||
"dom/media"
|
||||
"dom/webauthn"
|
||||
"gfx"
|
||||
"intl"
|
||||
"js"
|
||||
"media"
|
||||
"modules"
|
||||
"mozglue/static/rust"
|
||||
"netwerk"
|
||||
"remote"
|
||||
"security/manager/ssl"
|
||||
"servo"
|
||||
"storage"
|
||||
"third_party/rust"
|
||||
"toolkit"
|
||||
"xpcom/rust"
|
||||
"services")))))
|
||||
(add-after 'patch-cargo-checksums 'remove-cargo-frozen-flag
|
||||
(lambda _
|
||||
;; Remove --frozen flag from cargo invocation, otherwise it'll
|
||||
;; complain that it's not able to change Cargo.lock.
|
||||
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1726373
|
||||
(substitute* "build/RunCbindgen.py"
|
||||
(("args.append\\(\"--frozen\"\\)") "pass"))))
|
||||
(delete 'bootstrap)
|
||||
(add-before 'configure 'patch-SpeechDispatcherService.cpp
|
||||
(lambda _
|
||||
(let* ((lib "libspeechd.so.2")
|
||||
(file (string-append
|
||||
"dom/media/webspeech/synth/"
|
||||
"speechd/SpeechDispatcherService.cpp"))
|
||||
(old-content (call-with-input-file file
|
||||
get-string-all)))
|
||||
(substitute
|
||||
file
|
||||
`((,(format #f "~s" lib) unquote
|
||||
(lambda (line _)
|
||||
(string-replace-substring
|
||||
line lib
|
||||
(string-append #$speech-dispatcher
|
||||
"/lib/" lib))))))
|
||||
(if (string=? old-content
|
||||
(call-with-input-file file
|
||||
get-string-all))
|
||||
(error
|
||||
"substitute did nothing, phase requires an update")))))
|
||||
(add-before 'configure 'set-build-id
|
||||
;; Build will write the timestamp to output, which is harmful
|
||||
;; for reproducibility, so change it to a fixed date. Use a
|
||||
;; separate phase for easier modification with inherit.
|
||||
(lambda _
|
||||
(setenv "MOZ_BUILD_DATE"
|
||||
#$%librewolf-build-id)))
|
||||
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1927380
|
||||
(add-before 'configure 'patch-icu-lookup
|
||||
(lambda _
|
||||
(let* ((file "js/moz.configure")
|
||||
(old-content (call-with-input-file file get-string-all)))
|
||||
(substitute* file
|
||||
(("icu-i18n >= 76.1" all)
|
||||
(string-append all ", icu-uc >= 76.1")))
|
||||
(if (string=? old-content
|
||||
(pk (call-with-input-file file get-string-all)))
|
||||
(error
|
||||
"substitute did nothing, phase requires an update")))))
|
||||
(replace 'configure
|
||||
(lambda* (#:key inputs outputs configure-flags
|
||||
#:allow-other-keys)
|
||||
(setenv "AUTOCONF"
|
||||
(string-append (assoc-ref inputs "autoconf")
|
||||
"/bin/autoconf"))
|
||||
(setenv "SHELL"
|
||||
(which "bash"))
|
||||
(setenv "CONFIG_SHELL"
|
||||
(which "bash"))
|
||||
(setenv "MACH_BUILD_PYTHON_NATIVE_PACKAGE_SOURCE"
|
||||
"system")
|
||||
(setenv "LANG" "en_US.utf8")
|
||||
;; This should use the host info probably (does it
|
||||
;; build on non-x86_64 though?)
|
||||
(setenv "GUIX_PYTHONPATH"
|
||||
(string-append
|
||||
(getcwd)
|
||||
"/obj-x86_64-pc-linux-gnu/_virtualenvs/build"))
|
||||
|
||||
;; Use Clang, Clang is 2x faster than GCC
|
||||
(setenv "AR" "llvm-ar")
|
||||
(setenv "NM" "llvm-nm")
|
||||
(setenv "CC" "clang")
|
||||
(setenv "CXX" "clang++")
|
||||
(setenv "MOZ_NOSPAM" "1")
|
||||
(setenv "MOZ_APP_REMOTINGNAME" "LibreWolf")
|
||||
(setenv "MOZ_APP_NAME" "librewolf")
|
||||
;; Use Clang, Clang is 2x faster than GCC
|
||||
(setenv "AR" "llvm-ar")
|
||||
(setenv "NM" "llvm-nm")
|
||||
(setenv "CC" "clang")
|
||||
(setenv "CXX" "clang++")
|
||||
(setenv "MOZ_NOSPAM" "1")
|
||||
(setenv "MOZ_APP_REMOTINGNAME" "LibreWolf")
|
||||
(setenv "MOZ_APP_NAME" "librewolf")
|
||||
|
||||
(setenv "MOZBUILD_STATE_PATH"
|
||||
(getcwd))
|
||||
(setenv "MOZBUILD_STATE_PATH"
|
||||
(getcwd))
|
||||
|
||||
(let* ((mozconfig (string-append (getcwd) "/mozconfig"))
|
||||
(out (assoc-ref outputs "out"))
|
||||
(flags (cons (string-append "--prefix=" out)
|
||||
configure-flags)))
|
||||
(format #t "build directory: ~s~%"
|
||||
(getcwd))
|
||||
(format #t "configure flags: ~s~%" flags)
|
||||
(let* ((mozconfig (string-append (getcwd) "/mozconfig"))
|
||||
(out (assoc-ref outputs "out"))
|
||||
(flags (cons (string-append "--prefix=" out)
|
||||
configure-flags)))
|
||||
(format #t "build directory: ~s~%"
|
||||
(getcwd))
|
||||
(format #t "configure flags: ~s~%" flags)
|
||||
|
||||
(define write-flags
|
||||
(lambda flags
|
||||
(display (string-join (map (cut string-append
|
||||
"ac_add_options " <>)
|
||||
flags) "\n"))
|
||||
(display "\n")))
|
||||
(with-output-to-file mozconfig
|
||||
(lambda ()
|
||||
(apply write-flags flags)
|
||||
;; The following option unsets Telemetry
|
||||
;; Reporting. With the Addons Fiasco,
|
||||
;; Mozilla was found to be collecting
|
||||
;; user's data, including saved passwords
|
||||
;; and web form data, without users
|
||||
;; consent. Mozilla was also found
|
||||
;; shipping updates to systems without
|
||||
;; the user's knowledge or permission.
|
||||
;; As a result of this, use the following
|
||||
;; command to permanently disable
|
||||
;; telemetry reporting.
|
||||
(display "unset MOZ_TELEMETRY_REPORTING\n")
|
||||
(display "mk_add_options MOZ_CRASHREPORTER=0\n")
|
||||
(display "mk_add_options MOZ_DATA_REPORTING=0\n")
|
||||
(display
|
||||
"mk_add_options MOZ_SERVICES_HEALTHREPORT=0")
|
||||
(display
|
||||
"mk_add_options MOZ_TELEMETRY_REPORTING=0")))
|
||||
(setenv "MOZCONFIG" mozconfig))
|
||||
(invoke "./mach" "configure")))
|
||||
(add-before 'build 'fix-addons-placeholder
|
||||
(lambda _
|
||||
(substitute* "toolkit/locales/en-US/toolkit/about/aboutAddons.ftl"
|
||||
(("addons.mozilla.org")
|
||||
"gnuzilla.gnu.org"))))
|
||||
(replace 'build
|
||||
(lambda* (#:key (make-flags '())
|
||||
(parallel-build? #t) #:allow-other-keys)
|
||||
(apply invoke "./mach" "build"
|
||||
;; mach will use parallel build if possible by default
|
||||
`(,@(if parallel-build?
|
||||
`(,(string-append
|
||||
"-j" (number->string (parallel-job-count))))
|
||||
'("-j1"))
|
||||
,@make-flags))))
|
||||
(add-after 'build 'neutralise-store-references
|
||||
(lambda _
|
||||
;; Mangle the store references to compilers &
|
||||
;; other build tools in about:buildconfig,
|
||||
;; reducing the package's closure by 1 GiB on
|
||||
;; x86-64.
|
||||
(let* ((build-dir (car (scandir "."
|
||||
(cut string-prefix?
|
||||
"obj-" <>))))
|
||||
(file (string-append build-dir
|
||||
"/dist/bin/chrome/toolkit/"
|
||||
"content/global/buildconfig.html")))
|
||||
(substitute* file
|
||||
(((format #f "(~a/)([0-9a-df-np-sv-z]{32})"
|
||||
(regexp-quote (%store-directory)))
|
||||
_ store hash)
|
||||
(string-append store
|
||||
(string-take hash 8)
|
||||
"<!-- Guix: not a runtime dependency -->"
|
||||
(string-drop hash 8)))))))
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(invoke "./mach" "install")))
|
||||
(add-after 'install 'remove-duplicate-bin
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(delete-file (string-append #$output
|
||||
"/lib/librewolf/librewolf-bin"))))
|
||||
(add-after 'install 'wrap-glxtest
|
||||
;; glxtest uses dlopen() to load mesa and pci
|
||||
;; libs, wrap it to set LD_LIBRARY_PATH.
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(lib (string-append out "/lib"))
|
||||
(libs (map
|
||||
(lambda (lib-name)
|
||||
(string-append (assoc-ref inputs
|
||||
lib-name)
|
||||
"/lib"))
|
||||
'("mesa" "pciutils"))))
|
||||
(wrap-program (car (find-files lib "^glxtest$"))
|
||||
`("LD_LIBRARY_PATH" prefix ,libs)))))
|
||||
(add-after 'install 'patch-config
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let ((lib (string-append #$output "/lib/librewolf"))
|
||||
(config-file "librewolf.cfg"))
|
||||
(define write-flags
|
||||
(lambda flags
|
||||
(display (string-join (map (cut string-append
|
||||
"ac_add_options " <>)
|
||||
flags) "\n"))
|
||||
(display "\n")))
|
||||
(with-output-to-file mozconfig
|
||||
(lambda ()
|
||||
(apply write-flags flags)
|
||||
;; The following option unsets Telemetry
|
||||
;; Reporting. With the Addons Fiasco,
|
||||
;; Mozilla was found to be collecting
|
||||
;; user's data, including saved passwords
|
||||
;; and web form data, without users
|
||||
;; consent. Mozilla was also found
|
||||
;; shipping updates to systems without
|
||||
;; the user's knowledge or permission.
|
||||
;; As a result of this, use the following
|
||||
;; command to permanently disable
|
||||
;; telemetry reporting.
|
||||
(display "unset MOZ_TELEMETRY_REPORTING\n")
|
||||
(display "mk_add_options MOZ_CRASHREPORTER=0\n")
|
||||
(display "mk_add_options MOZ_DATA_REPORTING=0\n")
|
||||
(display
|
||||
"mk_add_options MOZ_SERVICES_HEALTHREPORT=0")
|
||||
(display
|
||||
"mk_add_options MOZ_TELEMETRY_REPORTING=0")))
|
||||
(setenv "MOZCONFIG" mozconfig))
|
||||
(invoke "./mach" "configure")))
|
||||
(add-before 'build 'fix-addons-placeholder
|
||||
(lambda _
|
||||
(substitute*
|
||||
"toolkit/locales/en-US/toolkit/about/aboutAddons.ftl"
|
||||
(("addons.mozilla.org")
|
||||
"gnuzilla.gnu.org"))))
|
||||
(replace 'build
|
||||
(lambda* (#:key (make-flags '())
|
||||
(parallel-build? #t) #:allow-other-keys)
|
||||
(apply invoke "./mach" "build"
|
||||
;; mach will use parallel build if possible by default
|
||||
`(,@(if parallel-build?
|
||||
`(,(string-append
|
||||
"-j" (number->string (parallel-job-count))))
|
||||
'("-j1"))
|
||||
,@make-flags))))
|
||||
(add-after 'build 'neutralise-store-references
|
||||
(lambda _
|
||||
;; Mangle the store references to compilers &
|
||||
;; other build tools in about:buildconfig,
|
||||
;; reducing the package's closure by 1 GiB on
|
||||
;; x86-64.
|
||||
(let* ((build-dir (car (scandir "."
|
||||
(cut string-prefix?
|
||||
"obj-" <>))))
|
||||
(file (string-append build-dir
|
||||
"/dist/bin/chrome/toolkit/"
|
||||
"content/global/buildconfig.html")))
|
||||
(substitute* file
|
||||
(((format #f "(~a/)([0-9a-df-np-sv-z]{32})"
|
||||
(regexp-quote (%store-directory)))
|
||||
_ store hash)
|
||||
(string-append store
|
||||
(string-take hash 8)
|
||||
"<!-- Guix: not a runtime dependency -->"
|
||||
(string-drop hash 8)))))))
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(invoke "./mach" "install")))
|
||||
(add-after 'install 'remove-duplicate-bin
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(delete-file (string-append #$output
|
||||
"/lib/librewolf/librewolf-bin"))))
|
||||
(add-after 'install 'wrap-glxtest
|
||||
;; glxtest uses dlopen() to load mesa and pci
|
||||
;; libs, wrap it to set LD_LIBRARY_PATH.
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(lib (string-append out "/lib"))
|
||||
(libs (map
|
||||
(lambda (lib-name)
|
||||
(string-append (assoc-ref inputs
|
||||
lib-name)
|
||||
"/lib"))
|
||||
'("mesa" "pciutils"))))
|
||||
(wrap-program (car (find-files lib "^glxtest$"))
|
||||
`("LD_LIBRARY_PATH" prefix ,libs)))))
|
||||
(add-after 'install 'patch-config
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let ((lib (string-append #$output "/lib/librewolf"))
|
||||
(config-file "librewolf.cfg"))
|
||||
|
||||
;; Required for Guix packaged extensions
|
||||
;; SCOPE_PROFILE=1, SCOPE_APPLICATION=4, SCOPE_SYSTEM=8
|
||||
;; Default is 5.
|
||||
(substitute* (in-vicinity lib config-file)
|
||||
(("defaultPref\\(\"extensions.enabledScopes\", 5\\)")
|
||||
"defaultPref(\"extensions.enabledScopes\", 13)"))
|
||||
;; Use Mozzarella addons repo.
|
||||
(call-with-port
|
||||
(open-file
|
||||
(in-vicinity lib config-file)
|
||||
"a")
|
||||
(lambda (port)
|
||||
;; Add-ons panel (see settings.js in Icecat source).
|
||||
(for-each
|
||||
(lambda (pref)
|
||||
(format port
|
||||
"defaultPref(~s, ~s);~%"
|
||||
(car pref)
|
||||
(cdr pref)))
|
||||
`(("extensions.getAddons.search.browseURL"
|
||||
,(string-append
|
||||
"https://gnuzilla.gnu.org/mozzarella/"
|
||||
"search.php?q=%TERMS%"))
|
||||
("extensions.getAddons.get.url" .
|
||||
"https://gnuzilla.gnu.org/mozzarella")
|
||||
("extensions.getAddons.link.url" .
|
||||
"https://gnuzilla.gnu.org/mozzarella")
|
||||
("extensions.getAddons.discovery.api_url" .
|
||||
"https://gnuzilla.gnu.org/mozzarella")
|
||||
("extensions.getAddons.langpacks.url" .
|
||||
"https://gnuzilla.gnu.org/mozzarella")
|
||||
("lightweightThemes.getMoreURL" .
|
||||
"https://gnuzilla.gnu.org/mozzarella"))))))))
|
||||
(add-after 'install 'wrap-program
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
;; The following two functions are from Guix's icecat package in
|
||||
;; (gnu packages gnuzilla). See commit
|
||||
;; b7a0935420ee630a29b7e5ac73a32ba1eb24f00b.
|
||||
(define (runpath-of lib)
|
||||
(call-with-input-file lib
|
||||
(compose elf-dynamic-info-runpath elf-dynamic-info
|
||||
parse-elf get-bytevector-all)))
|
||||
(define (runpaths-of-input label)
|
||||
(let* ((dir (string-append (assoc-ref inputs label)
|
||||
"/lib"))
|
||||
(libs (find-files dir "\\.so$")))
|
||||
(append-map runpath-of libs)))
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(lib (string-append out "/lib"))
|
||||
(libs (map
|
||||
(lambda (lib-name)
|
||||
(string-append (assoc-ref inputs
|
||||
lib-name)
|
||||
"/lib"))
|
||||
'("eudev" ; For U2F and WebAuthn
|
||||
"libnotify"
|
||||
"libpng-apng"
|
||||
"libva"
|
||||
"mesa"
|
||||
"pipewire" ; For sharing on Wayland
|
||||
"pulseaudio")))
|
||||
;; Required for Guix packaged extensions
|
||||
;; SCOPE_PROFILE=1, SCOPE_APPLICATION=4, SCOPE_SYSTEM=8
|
||||
;; Default is 5.
|
||||
(substitute* (in-vicinity lib config-file)
|
||||
(("defaultPref\\(\"extensions.enabledScopes\", 5\\)")
|
||||
"defaultPref(\"extensions.enabledScopes\", 13)"))
|
||||
;; Use Mozzarella addons repo.
|
||||
(call-with-port
|
||||
(open-file
|
||||
(in-vicinity lib config-file)
|
||||
"a")
|
||||
(lambda (port)
|
||||
;; Add-ons panel (see settings.js in Icecat source).
|
||||
(for-each
|
||||
(lambda (pref)
|
||||
(format port
|
||||
"defaultPref(~s, ~s);~%"
|
||||
(car pref)
|
||||
(cdr pref)))
|
||||
`(("extensions.getAddons.search.browseURL"
|
||||
,(string-append
|
||||
"https://gnuzilla.gnu.org/mozzarella/"
|
||||
"search.php?q=%TERMS%"))
|
||||
("extensions.getAddons.get.url" .
|
||||
"https://gnuzilla.gnu.org/mozzarella")
|
||||
("extensions.getAddons.link.url" .
|
||||
"https://gnuzilla.gnu.org/mozzarella")
|
||||
("extensions.getAddons.discovery.api_url" .
|
||||
"https://gnuzilla.gnu.org/mozzarella")
|
||||
("extensions.getAddons.langpacks.url" .
|
||||
"https://gnuzilla.gnu.org/mozzarella")
|
||||
("lightweightThemes.getMoreURL" .
|
||||
"https://gnuzilla.gnu.org/mozzarella"))))))))
|
||||
(add-after 'install 'wrap-program
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
;; The following two functions are from Guix's icecat package in
|
||||
;; (gnu packages gnuzilla). See commit
|
||||
;; b7a0935420ee630a29b7e5ac73a32ba1eb24f00b.
|
||||
(define (runpath-of lib)
|
||||
(call-with-input-file lib
|
||||
(compose elf-dynamic-info-runpath elf-dynamic-info
|
||||
parse-elf get-bytevector-all)))
|
||||
(define (runpaths-of-input label)
|
||||
(let* ((dir (string-append (assoc-ref inputs label)
|
||||
"/lib"))
|
||||
(libs (find-files dir "\\.so$")))
|
||||
(append-map runpath-of libs)))
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(lib (string-append out "/lib"))
|
||||
(libs (map
|
||||
(lambda (lib-name)
|
||||
(string-append (assoc-ref inputs
|
||||
lib-name)
|
||||
"/lib"))
|
||||
'("eudev" ; For U2F and WebAuthn
|
||||
"libnotify"
|
||||
"libpng-apng"
|
||||
"libva"
|
||||
"mesa"
|
||||
"pipewire" ; For sharing on Wayland
|
||||
"pulseaudio")))
|
||||
|
||||
;; VA-API is run in the RDD (Remote Data Decoder) sandbox
|
||||
;; and must be explicitly given access to files it needs.
|
||||
;; Rather than adding the whole store (as Nix had
|
||||
;; upstream do, see
|
||||
;; <https://github.com/NixOS/nixpkgs/pull/165964> and
|
||||
;; linked upstream patches), we can just follow the
|
||||
;; runpaths of the needed libraries to add everything to
|
||||
;; LD_LIBRARY_PATH. These will then be accessible in the
|
||||
;; RDD sandbox.
|
||||
(rdd-whitelist
|
||||
(map (cut string-append <> "/")
|
||||
(delete-duplicates
|
||||
(append-map runpaths-of-input
|
||||
'("mesa"
|
||||
"ffmpeg")))))
|
||||
(gtk-share (string-append (assoc-ref inputs
|
||||
"gtk+")
|
||||
"/share")))
|
||||
(wrap-program (car (find-files lib "^librewolf$"))
|
||||
`("LD_LIBRARY_PATH" prefix
|
||||
(,@libs ,@rdd-whitelist))
|
||||
`("XDG_DATA_DIRS" prefix
|
||||
(,gtk-share))
|
||||
`("MOZ_LEGACY_PROFILES" =
|
||||
("1"))
|
||||
`("MOZ_ALLOW_DOWNGRADE" =
|
||||
("1"))))))
|
||||
(add-after 'wrap-program 'install-desktop-entry
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((desktop-file
|
||||
"toolkit/mozapps/installer/linux/rpm/mozilla.desktop")
|
||||
(applications (string-append #$output
|
||||
"/share/applications")))
|
||||
(substitute* desktop-file
|
||||
(("^Exec=@MOZ_APP_NAME@")
|
||||
(string-append "Exec="
|
||||
#$output "/bin/librewolf %u"))
|
||||
(("@MOZ_APP_DISPLAYNAME@")
|
||||
"LibreWolf")
|
||||
(("@MOZ_APP_REMOTINGNAME@")
|
||||
"LibreWolf")
|
||||
(("^Icon=@MOZ_APP_NAME@")
|
||||
(string-append "Icon="
|
||||
#$output
|
||||
"/share/icons/hicolor/128x128/apps/librewolf.png")))
|
||||
;; VA-API is run in the RDD (Remote Data Decoder) sandbox
|
||||
;; and must be explicitly given access to files it needs.
|
||||
;; Rather than adding the whole store (as Nix had
|
||||
;; upstream do, see
|
||||
;; <https://github.com/NixOS/nixpkgs/pull/165964> and
|
||||
;; linked upstream patches), we can just follow the
|
||||
;; runpaths of the needed libraries to add everything to
|
||||
;; LD_LIBRARY_PATH. These will then be accessible in the
|
||||
;; RDD sandbox.
|
||||
(rdd-whitelist
|
||||
(map (cut string-append <> "/")
|
||||
(delete-duplicates
|
||||
(append-map runpaths-of-input
|
||||
'("mesa"
|
||||
"ffmpeg")))))
|
||||
(gtk-share (string-append (assoc-ref inputs
|
||||
"gtk+")
|
||||
"/share")))
|
||||
(wrap-program (car (find-files lib "^librewolf$"))
|
||||
`("LD_LIBRARY_PATH" prefix
|
||||
(,@libs ,@rdd-whitelist))
|
||||
`("XDG_DATA_DIRS" prefix
|
||||
(,gtk-share))
|
||||
`("MOZ_LEGACY_PROFILES" =
|
||||
("1"))
|
||||
`("MOZ_ALLOW_DOWNGRADE" =
|
||||
("1"))))))
|
||||
(add-after 'wrap-program 'install-desktop-entry
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((desktop-file
|
||||
"toolkit/mozapps/installer/linux/rpm/mozilla.desktop")
|
||||
(applications (string-append #$output
|
||||
"/share/applications")))
|
||||
(substitute* desktop-file
|
||||
(("^Exec=@MOZ_APP_NAME@")
|
||||
(string-append "Exec="
|
||||
#$output "/bin/librewolf %u"))
|
||||
(("@MOZ_APP_DISPLAYNAME@")
|
||||
"LibreWolf")
|
||||
(("@MOZ_APP_REMOTINGNAME@")
|
||||
"LibreWolf")
|
||||
(("^Icon=@MOZ_APP_NAME@")
|
||||
(string-append "Icon="
|
||||
#$output
|
||||
"/share/icons/hicolor/128x128/apps/librewolf.png")))
|
||||
|
||||
(copy-file desktop-file "librewolf.desktop")
|
||||
(install-file "librewolf.desktop" applications))))
|
||||
(add-after 'install-desktop-entry 'install-icons
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((icon-source-dir (string-append #$output
|
||||
"/lib/librewolf/browser/"
|
||||
"chrome/icons/default")))
|
||||
(for-each (lambda (size)
|
||||
(let ((dest (string-append #$output
|
||||
"/share/icons/hicolor/"
|
||||
size
|
||||
"x"
|
||||
size
|
||||
"/apps")))
|
||||
(mkdir-p dest)
|
||||
(symlink (string-append icon-source-dir
|
||||
"/default" size ".png")
|
||||
(string-append dest
|
||||
"/librewolf.png"))))
|
||||
'("16" "32" "48" "64" "128"))))))
|
||||
(copy-file desktop-file "librewolf.desktop")
|
||||
(install-file "librewolf.desktop" applications))))
|
||||
(add-after 'install-desktop-entry 'install-icons
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((icon-source-dir (string-append #$output
|
||||
"/lib/librewolf/browser/"
|
||||
"chrome/icons/default")))
|
||||
(for-each (lambda (size)
|
||||
(let ((dest (string-append #$output
|
||||
"/share/icons/hicolor/"
|
||||
size
|
||||
"x"
|
||||
size
|
||||
"/apps")))
|
||||
(mkdir-p dest)
|
||||
(symlink (string-append icon-source-dir
|
||||
"/default" size ".png")
|
||||
(string-append dest
|
||||
"/librewolf.png"))))
|
||||
'("16" "32" "48" "64" "128"))))))
|
||||
|
||||
;; Test will significantly increase build time but with little rewards.
|
||||
#:tests? #f
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue