me
/
guix
Archived
1
0
Fork 0
Code

services: dbus: Remove non-existent directories from 'system-local.conf'. 

This typically halves the number of entries in
/etc/dbus-1/system-local.conf.

* gnu/services/dbus.scm (dbus-configuration-directory)[build](directives):
New macro.
(services->sxml): Use it.
master
Ludovic Courtès 2019-11-01 23:48:40 +01:00
parent 33f9778bc8
commit 27727b18b8
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
gnu/services/dbus.scm
View File

@ -86,6 +86,19 @@ includes the @code{etc/dbus-1/system.d} directories of each package listed in
(use-modules (sxml simple)
(srfi srfi-1))
(define-syntax directives
(syntax-rules ()
;; Expand the given directives (SXML expressions) only if their
;; key names a file that exists.
((_ (name directory) rest ...)
(let ((dir directory))
(if (file-exists? dir)
`((name ,dir)
,@(directives rest ...))
(directives rest ...))))
((_)
'())))
(define (services->sxml services)
;; Return the SXML 'includedir' clauses for DIRS.
`(busconfig
@ -98,12 +111,13 @@ includes the @code{etc/dbus-1/system.d} directories of each package listed in
(servicedir "/etc/dbus-1/system-services")
,@(append-map (lambda (dir)
`((includedir
,(string-append dir "/etc/dbus-1/system.d"))
(includedir
,(string-append dir "/share/dbus-1/system.d"))
(servicedir ;for '.service' files
,(string-append dir "/share/dbus-1/services"))))
(directives
(includedir
(string-append dir "/etc/dbus-1/system.d"))
(includedir
(string-append dir "/share/dbus-1/system.d"))
(servicedir ;for '.service' files
(string-append dir "/share/dbus-1/services"))))
services)))
(mkdir #$output)