diff options
| author | 宋文武 <iyzsong@gmail.com> | 2016-06-17 20:35:21 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2016-06-18 09:53:14 +0800 |
| commit | 87a16de7441cf6af8e786a5bcba854c5e1484599 (patch) | |
| tree | ca9a86567d8ebf3442a663ada6467388c8da7677 | |
| parent | c80920462e871276748feaa187feb6b645980df4 (diff) | |
| download | guix-87a16de7441cf6af8e786a5bcba854c5e1484599.tar.gz guix-87a16de7441cf6af8e786a5bcba854c5e1484599.zip | |
gnu: bluez: Install 'org.bluez.obex.service' and fix '97-hid2hci.rules'.
* gnu/packages/linux.scm (bluez)[arguments]: Add 'post-install' phase.
| -rw-r--r-- | gnu/packages/linux.scm | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index e71ecbe5d7..16fd5d0ab3 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -2429,7 +2429,28 @@ Bluetooth audio output devices like headphones or loudspeakers.") "--disable-systemd" ;; Install dbus/udev files to the correct location. (string-append "--with-dbusconfdir=" out "/etc") - (string-append "--with-udevdir=" out "/lib/udev"))))) + (string-append "--with-udevdir=" out "/lib/udev"))) + #:phases + (modify-phases %standard-phases + (add-after 'install 'post-install + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (servicedir (string-append out "/share/dbus-1/services")) + (service "obexd/src/org.bluez.obex.service") + (rule (string-append + out "/lib/udev/rules.d/97-hid2hci.rules"))) + ;; Install the obex dbus service file. + (substitute* service + (("/bin/false") + (string-append out "/libexec/bluetooth/obexd"))) + (install-file service servicedir) + ;; Fix paths in the udev rule. + (substitute* rule + (("hid2hci --method") + (string-append out "/lib/udev/hid2hci --method")) + (("/sbin/udevadm") + (string-append (assoc-ref inputs "eudev") "/bin/udevadm"))) + #t)))))) (native-inputs `(("pkg-config" ,pkg-config) ("gettext" ,gnu-gettext))) |