me
/
guix
Archived
1
0
Fork 0
Code

gnu: fwupd: Disable remotes by default. 

* gnu/packages/firmware.scm (fwupd)
[configure-flags]: Add "-Dlvfs=disabled".
[phases]{ensure-all-remotes-are-disabled}: New phase.
master
Maxim Cournoyer 2022-09-01 16:13:59 -04:00
parent 23a91e9a2e
commit 4d361a6b51
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 40 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/firmware.scm
View File

@ -205,7 +205,8 @@ driver.")
"02jf052qj1nl47ppqrgz3s9qapq4pajgkf6lbj5rxr5sshlrw44n")))) "02jf052qj1nl47ppqrgz3s9qapq4pajgkf6lbj5rxr5sshlrw44n"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
(list #:configure-flags #~(list "--wrap-mode=nofallback" (list
#:configure-flags #~(list "--wrap-mode=nofallback"
"-Dsystemd=false" "-Dsystemd=false"
(string-append "-Defi_os_dir=" (string-append "-Defi_os_dir="
#$gnu-efi "/lib") #$gnu-efi "/lib")
@ -215,9 +216,13 @@ driver.")
"--localstatedir=/var" "--localstatedir=/var"
(string-append "--libexecdir=" (string-append "--libexecdir="
#$output "/libexec") #$output "/libexec")
"-Dsupported_build=true") "-Dsupported_build=true"
;; Disable LVFS, because it contains
;; nonfree firmwares.
"-Dlvfs=disabled")
#:glib-or-gtk? #t ;To wrap binaries and/or compile schemas #:glib-or-gtk? #t ;To wrap binaries and/or compile schemas
#:phases #~(modify-phases %standard-phases #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'make-source-writable (add-after 'unpack 'make-source-writable
(lambda _ (lambda _
(for-each make-file-writable (for-each make-file-writable
@ -230,7 +235,16 @@ driver.")
(setenv "HOME" "/tmp"))) (setenv "HOME" "/tmp")))
(add-before 'install 'no-polkit-magic (add-before 'install 'no-polkit-magic
(lambda _ (lambda _
(setenv "PKEXEC_UID" "something")))))) (setenv "PKEXEC_UID" "something")))
(add-after 'install 'ensure-all-remotes-are-disabled
;; Because no remote currently promises to offer only free
;; software firmwares, disable them to prevent a user to
;; unknowingly install proprietary firmware updates.
(lambda _
(substitute* (find-files (string-append #$output "/etc")
"\\.conf$")
(("Enabled=true")
"Enabled=false")))))))
(native-inputs (list gobject-introspection (native-inputs (list gobject-introspection
python-pygobject python-pygobject
python-pillow python-pillow