diff options
author | David Craven <david@craven.ch> | 2016-07-30 11:02:47 +0200 |
---|---|---|
committer | David Craven <david@craven.ch> | 2016-08-05 21:48:43 +0200 |
commit | 00f469056893ae80fecefee44e09d6904b613de4 (patch) | |
tree | 78a99d33f59ba48afed895a2528a672fe85e61ea /gnu/services | |
parent | e02cd2b8fe9de08a9f33d643792ee24734ff1d6e (diff) | |
download | guix-00f469056893ae80fecefee44e09d6904b613de4.tar.gz guix-00f469056893ae80fecefee44e09d6904b613de4.zip |
services: Add spice vdagent service.
* gnu/services/spice.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
* doc/guix.texi (Various Services): New subheading.
Diffstat (limited to 'gnu/services')
-rw-r--r-- | gnu/services/spice.scm | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/gnu/services/spice.scm b/gnu/services/spice.scm new file mode 100644 index 0000000000..26f072e7a8 --- /dev/null +++ b/gnu/services/spice.scm @@ -0,0 +1,75 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2016 David Craven <david@craven.ch> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu services spice) + #:use-module (gnu packages spice) + #:use-module (gnu services) + #:use-module (gnu services shepherd) + #:use-module (guix gexp) + #:use-module (guix records) + #:export (spice-vdagent-configuration + spice-vdagent-configuration? + spice-vdagent-service-type + spice-vdagent-service)) + +(define-record-type* <spice-vdagent-configuration> + spice-vdagent-configuration make-spice-vdagent-configuration + spice-vdagent-configuration? + (spice-vdagent spice-vdagent-configuration-spice-vdagent + (default spice-vdagent))) + +(define (spice-vdagent-activation config) + "Return the activation gexp for CONFIG." + #~(mkdir-p "/var/run/spice-vdagentd")) + +(define (spice-vdagent-shepherd-service config) + "Return a <shepherd-service> for spice-vdagentd with CONFIG." + (define spice-vdagent (spice-vdagent-configuration-spice-vdagent config)) + + (define spice-vdagentd-command + (list + #~(string-append #$spice-vdagent "/sbin/spice-vdagentd") + "-x")) + + (list + (shepherd-service + (documentation "Spice vdagentd service") + (requirement '(udev)) + (provision '(spice-vdagentd)) + (start #~(make-forkexec-constructor #$@spice-vdagentd-command)) + (stop #~(make-kill-destructor))))) + +(define spice-vdagent-profile + (compose list spice-vdagent-configuration-spice-vdagent)) + +(define spice-vdagent-service-type + (service-type (name 'spice-vdagent) + (extensions + (list (service-extension shepherd-root-service-type + spice-vdagent-shepherd-service) + (service-extension activation-service-type + spice-vdagent-activation) + (service-extension profile-service-type + spice-vdagent-profile))))) + +(define* (spice-vdagent-service + #:optional (config (spice-vdagent-configuration))) + "Start the @command{vdagentd} and @command{vdagent} deamons +from @var{spice-vdagent} to enable guest window resizing and +clipboard sharing." + (service spice-vdagent-service-type config)) |