ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

PRELIMINARY: gnu: wpa-supplicant: Install dbus service files.

Browse source
This commit is contained in:
Mark H Weaver 2015-07-27 02:39:28 -04:00
parent fe1f2c80a1
commit 9243fdf779
1 changed files with 25 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
gnu/packages/admin.scm
View file

@ -790,25 +790,34 @@ (define-public wpa-supplicant
(arguments
(substitute-keyword-arguments (package-arguments wpa-supplicant-light)
((#:phases phases)
`(alist-cons-after
'configure 'configure-for-dbus
(lambda _
(let ((port (open-file ".config" "al")))
(display "
`(modify-phases ,phases
(add-after
'configure 'configure-for-dbus
(lambda _
(let ((port (open-file ".config" "al")))
(display "
CONFIG_CTRL_IFACE_DBUS=y
CONFIG_CTRL_IFACE_DBUS_NEW=y
CONFIG_CTRL_IFACE_DBUS_INTRO=y\n" port)
(close-port port))
#t)
(alist-cons-after
'install-man-pages 'install-dbus-conf
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(dir (string-append out "/etc/dbus-1/system.d")))
(mkdir-p dir)
(copy-file "dbus/dbus-wpa_supplicant.conf"
(string-append dir "/wpa_supplicant.conf"))))
,phases)))))))
(close-port port))
#t))
(add-after
'install-man-pages 'install-dbus-conf
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(conf-dir (string-append out "/etc/dbus-1/system.d"))
(service-dir
(string-append out "/share/dbus-1/system-services")))
(mkdir-p conf-dir)
(copy-file "dbus/dbus-wpa_supplicant.conf"
(string-append conf-dir "/wpa_supplicant.conf"))
(mkdir-p service-dir)
(for-each (lambda (file)
(copy-file
file
(string-append service-dir "/" (basename file))))
(find-files "dbus" "\\.service$"))
#t)))))))))
(define-public wakelan
(package