gnu: wpa-supplicant: Install DBus service file.
* gnu/packages/admin.scm (wpa-supplicant)[arguments]: In 'install-dbus-conf' phase, install DBus service file for dbus-system-services-builder to find. Signed-off-by: Ludovic Courtès <ludo@gnu.org>master
parent
f697dd94c4
commit
544a886ae1
|
@ -48,6 +48,7 @@
|
||||||
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
|
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
|
||||||
;;; Copyright © 2021 Artyom V. Poptsov <poptsov.artyom@gmail.com>
|
;;; Copyright © 2021 Artyom V. Poptsov <poptsov.artyom@gmail.com>
|
||||||
;;; Copyright © 2022 Wamm K. D. <jaft.r@outlook.com>
|
;;; Copyright © 2022 Wamm K. D. <jaft.r@outlook.com>
|
||||||
|
;;; Copyright © 2022 Roman Riabenko <roman@riabenko.com>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
|
@ -2036,10 +2037,16 @@ command.")
|
||||||
(add-after 'install-documentation 'install-dbus-conf
|
(add-after 'install-documentation 'install-dbus-conf
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(let* ((out (assoc-ref outputs "out"))
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
(dir (string-append out "/etc/dbus-1/system.d")))
|
(interfaces (string-append out "/etc/dbus-1/system.d"))
|
||||||
(mkdir-p dir)
|
(services (string-append out
|
||||||
|
"/share/dbus-1/system-services")))
|
||||||
|
(mkdir-p interfaces)
|
||||||
(copy-file "dbus/dbus-wpa_supplicant.conf"
|
(copy-file "dbus/dbus-wpa_supplicant.conf"
|
||||||
(string-append dir "/wpa_supplicant.conf")))
|
(string-append interfaces "/wpa_supplicant.conf"))
|
||||||
|
(mkdir-p services)
|
||||||
|
(copy-file "dbus/fi.w1.wpa_supplicant1.service"
|
||||||
|
(string-append services
|
||||||
|
"/fi.w1.wpa_supplicant1.service")))
|
||||||
#t))))))))
|
#t))))))))
|
||||||
|
|
||||||
(define-public wpa-supplicant-gui
|
(define-public wpa-supplicant-gui
|
||||||
|
|
Reference in New Issue