gnu: kpmcore: Fix missing commands.

* gnu/packages/kde.scm (kpmcore)[inputs]: Switch to the old input style; Add
coreutils, cryptsetup, eudev, lvm2, mdadm, smartmontools and util-linux.
[arguments]<#:phases>: Add patch-trustedprefixes-file phase.

Change-Id: I6b205596e2ae5d03010db27b0b41ddb42d4534b5
Signed-off-by: Zheng Junjie <z572@z572.online>
This commit is contained in:
Sughosha 2025-01-12 18:10:16 +05:30 committed by Zheng Junjie
parent 21a2588929
commit 4f9a1406f2
No known key found for this signature in database
GPG key ID: 3B5AA993E1A2DFF0

View file

@ -46,6 +46,7 @@
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages algebra) #:use-module (gnu packages algebra)
#:use-module (gnu packages apr) #:use-module (gnu packages apr)
#:use-module (gnu packages astronomy) #:use-module (gnu packages astronomy)
@ -59,6 +60,7 @@
#:use-module (gnu packages code) #:use-module (gnu packages code)
#:use-module (gnu packages cpp) #:use-module (gnu packages cpp)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages cryptsetup)
#:use-module (gnu packages curl) #:use-module (gnu packages curl)
#:use-module (gnu packages djvu) #:use-module (gnu packages djvu)
#:use-module (gnu packages documentation) #:use-module (gnu packages documentation)
@ -1271,14 +1273,21 @@ multi-floor indoor maps.")
(native-inputs (native-inputs
(list extra-cmake-modules pkg-config)) (list extra-cmake-modules pkg-config))
(inputs (inputs
(list kauth `(("coreutils" ,coreutils)
kcoreaddons ("cryptsetup" ,cryptsetup)
ki18n ("eudev" ,eudev)
kwidgetsaddons ("kauth" ,kauth)
polkit-qt6 ("kcoreaddons" ,kcoreaddons)
qtbase ("ki18n" ,ki18n)
qca-qt6 ("kwidgetsaddons" ,kwidgetsaddons)
`(,util-linux "lib"))) ("lvm2" ,lvm2)
("mdadm" ,mdadm)
("polkit-qt6" ,polkit-qt6)
("qtbase" ,qtbase)
("qca-qt6" ,qca-qt6)
("smartmontools" ,smartmontools)
("util-linux" ,util-linux)
("util-linux:lib" ,util-linux "lib")))
(arguments (arguments
(list (list
#:phases #:phases
@ -1289,7 +1298,24 @@ multi-floor indoor maps.")
(("DESTINATION \\$\\{POLKITQT-1_POLICY_FILES_INSTALL_DIR\\}") (("DESTINATION \\$\\{POLKITQT-1_POLICY_FILES_INSTALL_DIR\\}")
"DESTINATION share/polkit-1/actions")) "DESTINATION share/polkit-1/actions"))
(substitute* "src/backend/corebackend.cpp" (substitute* "src/backend/corebackend.cpp"
(("\\/usr") #$output))))))) (("\\/usr") #$output))))
(add-before 'configure 'patch-trustedprefixes-file
(lambda* (#:key inputs #:allow-other-keys)
(call-with-output-file "src/util/trustedprefixes"
(lambda (port)
(map (lambda (prefix)
(display prefix port)
(newline port))
(list (assoc-ref inputs "coreutils")
(assoc-ref inputs "util-linux")
(assoc-ref inputs "eudev")
(assoc-ref inputs "cryptsetup")
(assoc-ref inputs "lvm2")
(assoc-ref inputs "mdadm")
(assoc-ref inputs "smartmontools")
"/run/current-system/profile"
"/usr"
"/")))))))))
(home-page "https://community.kde.org/Frameworks") (home-page "https://community.kde.org/Frameworks")
(synopsis "Library for managing partitions") (synopsis "Library for managing partitions")
(description "Library for managing partitions.") (description "Library for managing partitions.")