TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

services: dbus: Set the search path for .service files.

Browse source 
* gnu/services/dbus.scm (dbus-configuration-directory)[services->sxml]:
  Produce a <servicedir> tag.
This commit is contained in:
Ludovic Courtès 2015-01-26 00:01:16 +01:00
parent dfba54893e
commit ac41737f49
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/services/dbus.scm
View file

@ -40,15 +40,18 @@ (define (dbus-configuration-directory dbus services)
@var{services}."
(define build
#~(begin
(use-modules (sxml simple))
(use-modules (sxml simple)
(srfi srfi-1))
(define (services->sxml services)
;; Return the SXML 'includedir' clauses for DIRS.
`(busconfig
,@(map (lambda (dir)
`(includedir ,(string-append dir
"/etc/dbus-1/system.d")))
services)))
,@(append-map (lambda (dir)
`((includedir
,(string-append dir "/etc/dbus-1/system.d"))
(servicedir ;for '.service' files
,(string-append dir "/share/dbus-1/services"))))
services)))
(mkdir #$output)
(copy-file (string-append #$dbus "/etc/dbus-1/system.conf")