diff options
| author | Christopher Baines <mail@cbaines.net> | 2017-11-24 23:08:14 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2017-11-27 19:41:13 +0000 |
| commit | 5823396404bf8fc04cf0d392980bf463323014b1 (patch) | |
| tree | 366641b7f3e85e522b0d1eb33344f740a68f4ecf | |
| parent | 080e023d45d4553ad419ee9f09088ad3a110a512 (diff) | |
| download | guix-5823396404bf8fc04cf0d392980bf463323014b1.tar.gz | |
services: desktop: Create /var/run/udisks2 for the udisks service.
* gnu/services/desktop.scm (%udisks-activation): New variable. (udisks-service-type)[extensions]: Extend the activation service type with %udisks-activation.
| -rw-r--r-- | gnu/services/desktop.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 4b5100c27a..ec33e1d5ec 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -507,6 +507,15 @@ site} for more information." (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 @@ site} for more information." 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 |