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

services: desktop: Create /var/run/udisks2 for the udisks service.

Browse source 
* gnu/services/desktop.scm (%udisks-activation): New variable.
  (udisks-service-type)[extensions]: Extend the activation service type with
  %udisks-activation.
This commit is contained in:
Christopher Baines 2017-11-24 23:08:14 +00:00
parent 080e023d45
commit 5823396404
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/services/desktop.scm
View file

@ -507,6 +507,15 @@ (define-record-type* <udisks-configuration>
(udisks udisks-configuration-udisks
(default udisks)))
(define %udisks-activation
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(let ((run-dir "/var/run/udisks2"))
(mkdir-p run-dir)
(chmod run-dir #o700)))))
(define udisks-service-type
(let ((udisks-package (lambda (config)
(list (udisks-configuration-udisks config)))))
@ -518,6 +527,8 @@ (define udisks-service-type
udisks-package)
(service-extension udev-service-type
udisks-package)
(service-extension activation-service-type
(const %udisks-activation))
;; Profile 'udisksctl' & co. in the system profile.
(service-extension profile-service-type