From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:43993) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eJF6B-0005ZF-AR for guix-patches@gnu.org; Mon, 27 Nov 2017 03:49:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eJF68-00082P-9L for guix-patches@gnu.org; Mon, 27 Nov 2017 03:49:07 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:51347) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eJF68-00081s-4O for guix-patches@gnu.org; Mon, 27 Nov 2017 03:49:04 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eJF66-0001PW-DL for guix-patches@gnu.org; Mon, 27 Nov 2017 03:49:02 -0500 Subject: [bug#29468] [PATCH 1/2] services: desktop: Create /var/run/udisks2 for the udisks service. Resent-Message-ID: From: Christopher Baines Date: Mon, 27 Nov 2017 08:48:14 +0000 Message-Id: <20171127084815.20587-1-mail@cbaines.net> In-Reply-To: <87k1ycf74y.fsf@cbaines.net> References: <87k1ycf74y.fsf@cbaines.net> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 29468@debbugs.gnu.org * gnu/services/desktop.scm (%udisks-activation): New variable. (udisks-service-type)[extensions]: Extend the activation service type with %udisks-activation. --- gnu/services/desktop.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 4b5100c27..ec33e1d5e 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 -- 2.14.2