me/guix
Archived
1
0
Fork 0
Code 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 @@
@var{services}." @var{services}."
(define build (define build
#~(begin #~(begin
(use-modules (sxml simple)) (use-modules (sxml simple)
(srfi srfi-1))
(define (services->sxml services) (define (services->sxml services)
;; Return the SXML 'includedir' clauses for DIRS. ;; Return the SXML 'includedir' clauses for DIRS.
`(busconfig `(busconfig
,@(map (lambda (dir) ,@(append-map (lambda (dir)
`(includedir ,(string-append dir `((includedir
"/etc/dbus-1/system.d"))) ,(string-append dir "/etc/dbus-1/system.d"))
services))) (servicedir ;for '.service' files
,(string-append dir "/share/dbus-1/services"))))
services)))
(mkdir #$output) (mkdir #$output)
(copy-file (string-append #$dbus "/etc/dbus-1/system.conf") (copy-file (string-append #$dbus "/etc/dbus-1/system.conf")