[jackhill/guix/guix.git] / gnu / packages / spice.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;;
;;; 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 packages spice)
  #:use-module (gnu packages)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages base)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages cyrus-sasl)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages gstreamer)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages image)
  #:use-module (gnu packages libusb)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages nss)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages pulseaudio)
  #:use-module (gnu packages python)
  #:use-module (gnu packages security-token)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages xorg)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages xiph)
  #:use-module (gnu packages xml)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system meson)
  #:use-module (guix download)
  #:use-module (guix packages)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix utils))

(define-public usbredir
  (package
    (name "usbredir")
    (home-page "https://spice-space.org")
    (version "0.9.0")
    (source (origin
              (method url-fetch)
              (uri (string-append home-page "/download/" name "/" name "-"
                                  version ".tar.xz"))
              (sha256
               (base32
                "19jnpzlanq0a1m5lmlcsp50wxf7icxvpvclx7hnf0zxw8azngqd3"))))
    (build-system gnu-build-system)
    (propagated-inputs
     `(("libusb" ,libusb)))
    (native-inputs
     `(("autoconf" ,autoconf)
       ("automake" ,automake)
       ("libtool" ,libtool)
       ("pkg-config" ,pkg-config)))
    (synopsis "Tools for sending USB device traffic over a network")
    (description
     "Usbredir is a network protocol for sending USB device traffic over a
network connection.  It can be used to redirect traffic from a USB device to a
different (virtual) machine than the one to which the USB device is attached.")
    (license (list license:gpl2+ license:lgpl2.0+ license:lgpl2.1+))))

(define-public virglrenderer
  (package
    (name "virglrenderer")
    (version "0.6.0")
    (source (origin
              (method url-fetch)
              (uri (string-append
                "https://www.freedesktop.org/software/virgl/"
                "virglrenderer-" version ".tar.bz2"))
              (patches (search-patches "virglrenderer-CVE-2017-6386.patch"))
              (sha256
               (base32
                "06kf0q4l52gzx5p63l8850hff8pmhp7xv1hk8zgx2apbw18y6jd5"))))
    (build-system gnu-build-system)
    (inputs
      `(("libepoxy" ,libepoxy)
        ("mesa" ,mesa)
        ("udev" ,eudev)))
    (native-inputs
      `(("pkg-config" ,pkg-config)))
    (synopsis "Virtual 3D GPU library")
    (description "A virtual 3D GPU library that enables a virtualized operating
system to use the host GPU to accelerate 3D rendering.")
    (home-page "https://virgil3d.github.io")
    (license (list license:expat license:bsd-3))))

(define-public spice-protocol
  (package
    (name "spice-protocol")
    (version "0.14.3")
    (source (origin
              (method url-fetch)
              (uri (string-append
                "https://www.spice-space.org/download/releases/"
                "spice-protocol-" version ".tar.xz"))
              (sha256
               (base32
                "0yj8k7gcirrsf21w0q6146n5g4nzn2pqky4p90n5760m5ayfb1pr"))))
    (build-system meson-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'install-documentation
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (doc (string-append out "/share/doc/"
                                        ,name "-" ,version)))
               (install-file "COPYING" doc)
               #t))))))
    (synopsis "Protocol headers for the SPICE protocol")
    (description "SPICE (the Simple Protocol for Independent Computing
Environments) is a remote-display system built for virtual environments
which allows users to view a desktop computing environment.")
    (home-page "https://www.spice-space.org")
    (license (list license:bsd-3 license:lgpl2.1+))))

(define-public spice-gtk
  (package
    (name "spice-gtk")
    (version "0.37")
    (source (origin
              (method url-fetch)
              (uri (string-append
                "https://spice-space.org/download/gtk/"
                "spice-gtk-" version ".tar.bz2"))
              (sha256
               (base32
                "1drvj8y35gnxbnrxsipwi15yh0vs9ixzv4wslz6r3lra8w3bfa0z"))))
    (build-system gnu-build-system)
    (propagated-inputs
      `(("gstreamer" ,gstreamer)
        ("gst-plugins-base" ,gst-plugins-base)
        ("gst-plugins-good" ,gst-plugins-good)
        ("spice-protocol" ,spice-protocol)

        ;; These are required by the pkg-config files.
        ("gtk+" ,gtk+)
        ("pixman" ,pixman)
        ("openssl" ,openssl)))
    (inputs
      `(("glib-networking" ,glib-networking)
        ("gobject-introspection" ,gobject-introspection)
        ("json-glib" ,json-glib)
        ("libepoxy" ,libepoxy)
        ("libjpeg" ,libjpeg-turbo)
        ("libxcb" ,libxcb)
        ("lz4" ,lz4)
        ("mesa" ,mesa)
        ("pulseaudio" ,pulseaudio)
        ("python" ,python)
        ("opus" ,opus)
        ("usbredir" ,usbredir)))
    (native-inputs
      `(("glib:bin" ,glib "bin")
        ("intltool" ,intltool)
        ("pkg-config" ,pkg-config)
        ("vala" ,vala)))
    (arguments
      `(#:configure-flags
        '("--enable-gstaudio"
          "--enable-gstvideo"
          "--enable-pulse"
          "--enable-vala"
          "--enable-introspection")
        #:phases
         (modify-phases %standard-phases
           (add-before 'check 'disable-session-test
             (lambda _
               ;; XXX: Disable session tests, because they require USB support,
               ;; which is not available in the build container.
               (substitute* "tests/Makefile"
                 (("test-session\\$\\(EXEEXT\\) ") ""))
               #t))
           (add-after 'install 'patch-la-files
             (lambda* (#:key inputs outputs #:allow-other-keys)
               (let ((out (assoc-ref outputs "out"))
                     (libjpeg (assoc-ref inputs "libjpeg")))
                 ;; Add an absolute reference for libjpeg in the .la files
                 ;; so it does not have to be propagated.
                 (substitute* (find-files (string-append out "/lib") "\\.la$")
                   (("-ljpeg")
                    (string-append "-L" libjpeg "/lib -ljpeg")))
                 #t)))
           (add-after
            'install 'wrap-spicy
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((out             (assoc-ref outputs "out"))
                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
                (wrap-program (string-append out "/bin/spicy")
                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
              #t)))))
    (synopsis "Gtk client and libraries for SPICE remote desktop servers")
    (description "Gtk client and libraries for SPICE remote desktop servers.")
    (home-page "https://www.spice-space.org")
    (license (list license:lgpl2.1+ license:lgpl2.0+))))

(define-public spice
  (package
    (name "spice")
    (version "0.14.3")
    (source (origin
              (method url-fetch)
              (uri (string-append
                "https://www.spice-space.org/download/releases/"
                "spice-server/spice-" version ".tar.bz2"))
              (sha256
               (base32
                "05512vkfayw18ypg4acqbbpr72nsnsz9bj7k8c2wyrvnl3j4n7am"))))
    (build-system gnu-build-system)
    (propagated-inputs
      `(("openssl" ,openssl)
        ("pixman" ,pixman)
        ("spice-protocol" ,spice-protocol)))
    (inputs
      `(("cyrus-sasl" ,cyrus-sasl)
        ("glib" ,glib)
        ("libjpeg-turbo" ,libjpeg-turbo)
        ("libcacard" ,libcacard)        ; smartcard support
        ("lz4" ,lz4)
        ("opus" ,opus)
        ("orc" ,orc)
        ("zlib" ,zlib)))
    (native-inputs
      `(("pkg-config" ,pkg-config)
        ("python" ,python)
        ("spice-gtk" ,spice-gtk)

        ;; These are needed for the server listen tests.
        ("glib-networking" ,glib-networking)
        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
    (arguments
      `(#:configure-flags
        '("--enable-lz4"
          "--enable-automated-tests")

        ;; Several tests appear to be opening the same sockets concurrently.
        #:parallel-tests? #f))
    (synopsis "Server implementation of the SPICE protocol")
    (description "SPICE is a remote display system built for virtual
environments which allows you to view a computing @code{desktop} environment
not only on the machine where it is running, but from anywhere on the
Internet and from a wide variety of machine architectures.")
    (home-page "https://www.spice-space.org")
    (license (list license:lgpl2.1+ license:lgpl2.0+))))

(define-public spice-vdagent
  (package
    (name "spice-vdagent")
    (version "0.20.0")
    (source (origin
              (method url-fetch)
              (uri (string-append
                "http://www.spice-space.org/download/releases/"
                "spice-vdagent-" version ".tar.bz2"))
              (sha256
               (base32
                "0n9k2kna2gd1zi6jv45zsp2jlv439nz5l5jjijirxqaycwi74srf"))))
    (build-system gnu-build-system)
    (arguments
     `(#:configure-flags
       '("--localstatedir=/var")
       #:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'patch-makefile.in
           (lambda _
             (substitute* "Makefile.in"
               (((string-append "\\$\\(mkdir_p\\) \\$\\(DESTDIR\\)"
                                "\\$\\(localstatedir\\)/run/spice-vdagentd"))
                 "-$(mkdir_p) $(DESTDIR)$(localstatedir)/run/spice-vdagentd"))
             #t))
         (add-after 'unpack 'patch-spice-vdagent.desktop
           (lambda* (#:key outputs #:allow-other-keys)
            (substitute* "data/spice-vdagent.desktop"
              (("Exec=/usr/bin/spice-vdagent")
               (string-append "Exec=" (assoc-ref outputs "out")
                              "/bin/spice-vdagent")))
             #t)))))
    (inputs
      `(("alsa-lib" ,alsa-lib)
        ("dbus" ,dbus)
        ("glib" ,glib)
        ("libdrm" ,libdrm)
        ("libpciaccess" ,libpciaccess)
        ("libx11" ,libx11)
        ("libxext" ,libxext)
        ("libxfixes" ,libxfixes)
        ("libxinerama" ,libxinerama)
        ("libxrandr" ,libxrandr)
        ("spice-protocol" ,spice-protocol)))
    (native-inputs
      `(("pkg-config" ,pkg-config)))
    (synopsis "Spice agent for Linux")
    (description "Spice-vdagent enables sharing the clipboard and guest display
resolution scaling on graphical console window resize.")
    (home-page "https://www.spice-space.org")
    (license license:gpl3+)))

(define-public libcacard
  (package
    (name "libcacard")
    (version "2.7.0")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "https://gitlab.freedesktop.org/spice/libcacard/uploads/"
                    "56cb2499198e78e560a1d4c716cd8ab1"
                    "/libcacard-" version ".tar.xz"))
              (sha256
               (base32
                "0vyvkk4b6xjwq1ccggql13c1x7g4y90clpkqw28257azgn2a1c8n"))))
    (build-system gnu-build-system)
    (arguments
     '(#:tests? #f                      ; TODO Tests require gnutls built with
                                        ; p11-kit
       #:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'patch-tests
           (lambda* (#:key inputs #:allow-other-keys)
             (substitute* "tests/setup-softhsm2.sh"
               (("\\/usr\\/lib64\\/pkcs11\\/libsofthsm2\\.so")
                (string-append (assoc-ref inputs "softhsm")
                               "/lib/softhsm/libsofthsm2.so")))
             #t)))))
    (propagated-inputs
     `(("glib" ,glib)                   ; Requires: in the pkg-config file
       ("nss" ,nss)))                   ; Requires.private: in the pkg-config
                                        ; file
    (native-inputs
     `(("openssl" ,openssl)
       ("nss" ,nss "bin")
       ("opensc" ,opensc)
       ("softhsm" ,softhsm)
       ("gnutls" ,gnutls)
       ("pkg-config" ,pkg-config)
       ("which" ,which)))
    (synopsis "Emulate and share smart cards with virtual machines")
    (description
     "The @acronym{CAC,Common Access Card} library can be used to emulate and
share smart cards from client system to local or remote virtual machines.")
    (home-page "https://gitlab.freedesktop.org/spice/libcacard")
    (license license:lgpl2.1+)))

(define-public virt-viewer
  (package
    (name "virt-viewer")
    (version "7.0")
    (source (origin
              (method url-fetch)
              (uri (string-append
                "https://virt-manager.org/download/sources/virt-viewer/"
                "virt-viewer-" version ".tar.gz"))
              (sha256
               (base32
                "00y9vi69sja4pkrfnvrkwsscm41bqrjzvp8aijb20pvg6ymczhj7"))))
    (build-system gnu-build-system)
    (inputs
      `(("gtk+" ,gtk+)
        ("gtk-vnc" ,gtk-vnc)
        ("libcap" ,libcap)
        ("libxml2" ,libxml2)
        ("spice-gtk" ,spice-gtk)))
    (native-inputs
      `(("glib:bin" ,glib "bin")
        ("intltool" ,intltool)
        ("pkg-config" ,pkg-config)))
    (arguments
      `(#:configure-flags
        '("--with-spice-gtk")
        #:phases
         (modify-phases %standard-phases
           (add-after
            'install 'wrap-remote-viewer
            (lambda* (#:key inputs outputs #:allow-other-keys)
              (let ((out             (assoc-ref outputs "out"))
                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
                (wrap-program (string-append out "/bin/remote-viewer")
                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
              #t)))))
    (synopsis "Graphical console client for virtual machines")
    (description "Graphical console client for virtual machines using SPICE or
VNC.")
    (home-page "https://virt-manager.org")
    (license license:gpl2+)))
Commit	Line	Data
1d2c67c1 DC	1	;;; GNU Guix --- Functional package management for GNU
1d2c67c1 DC	2	;;; Copyright © 2016 David Craven <david@craven.ch>
2aa18eeb	3	;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
44ad1c16	4	;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
29c6fb0d	5	;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
1d2c67c1 DC	6	;;;
	7	;;; This file is part of GNU Guix.
	8	;;;
	9	;;; GNU Guix is free software; you can redistribute it and/or modify it
	10	;;; under the terms of the GNU General Public License as published by
	11	;;; the Free Software Foundation; either version 3 of the License, or (at
	12	;;; your option) any later version.
	13	;;;
	14	;;; GNU Guix is distributed in the hope that it will be useful, but
	15	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	16	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	;;; GNU General Public License for more details.
	18	;;;
	19	;;; You should have received a copy of the GNU General Public License
	20	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	21
	22	(define-module (gnu packages spice)
	23	#:use-module (gnu packages)
2aa18eeb	24	#:use-module (gnu packages autotools)
ee3d20b9	25	#:use-module (gnu packages base)
bb28cf90	26	#:use-module (gnu packages compression)
5f2a7f4f	27	#:use-module (gnu packages cyrus-sasl)
2ef2654d	28	#:use-module (gnu packages gl)
bb28cf90 DC	29	#:use-module (gnu packages glib)
	30	#:use-module (gnu packages gnome)
	31	#:use-module (gnu packages gstreamer)
	32	#:use-module (gnu packages gtk)
	33	#:use-module (gnu packages image)
1d2c67c1	34	#:use-module (gnu packages libusb)
2ef2654d	35	#:use-module (gnu packages linux)
ee3d20b9	36	#:use-module (gnu packages nss)
1d2c67c1	37	#:use-module (gnu packages pkg-config)
bb28cf90 DC	38	#:use-module (gnu packages pulseaudio)
bb28cf90 DC	39	#:use-module (gnu packages python)
ee3d20b9	40	#:use-module (gnu packages security-token)
bb28cf90 DC	41	#:use-module (gnu packages tls)
	42	#:use-module (gnu packages xorg)
	43	#:use-module (gnu packages xdisorg)
	44	#:use-module (gnu packages xiph)
6144dff5	45	#:use-module (gnu packages xml)
1d2c67c1	46	#:use-module (guix build-system gnu)
6d215516	47	#:use-module (guix build-system meson)
1d2c67c1 DC	48	#:use-module (guix download)
	49	#:use-module (guix packages)
	50	#:use-module ((guix licenses) #:prefix license:)
	51	#:use-module (guix utils))
	52
	53	(define-public usbredir
41a659d2 MB	54	(package
	55	(name "usbredir")
	56	(home-page "https://spice-space.org")
2aa18eeb	57	(version "0.9.0")
41a659d2 MB	58	(source (origin
	59	(method url-fetch)
	60	(uri (string-append home-page "/download/" name "/" name "-"
2aa18eeb	61	version ".tar.xz"))
41a659d2 MB	62	(sha256
41a659d2 MB	63	(base32
2aa18eeb	64	"19jnpzlanq0a1m5lmlcsp50wxf7icxvpvclx7hnf0zxw8azngqd3"))))
41a659d2 MB	65	(build-system gnu-build-system)
	66	(propagated-inputs
	67	`(("libusb" ,libusb)))
	68	(native-inputs
2aa18eeb TGR	69	`(("autoconf" ,autoconf)
	70	("automake" ,automake)
	71	("libtool" ,libtool)
	72	("pkg-config" ,pkg-config)))
41a659d2 MB	73	(synopsis "Tools for sending USB device traffic over a network")
	74	(description
	75	"Usbredir is a network protocol for sending USB device traffic over a
	76	network connection. It can be used to redirect traffic from a USB device to a
	77	different (virtual) machine than the one to which the USB device is attached.")
	78	(license (list license:gpl2+ license:lgpl2.0+ license:lgpl2.1+))))
2ef2654d DC	79
	80	(define-public virglrenderer
	81	(package
	82	(name "virglrenderer")
8b20a4d1	83	(version "0.6.0")
2ef2654d DC	84	(source (origin
	85	(method url-fetch)
	86	(uri (string-append
	87	"https://www.freedesktop.org/software/virgl/"
	88	"virglrenderer-" version ".tar.bz2"))
1e5b8bee	89	(patches (search-patches "virglrenderer-CVE-2017-6386.patch"))
2ef2654d DC	90	(sha256
2ef2654d DC	91	(base32
8b20a4d1	92	"06kf0q4l52gzx5p63l8850hff8pmhp7xv1hk8zgx2apbw18y6jd5"))))
2ef2654d DC	93	(build-system gnu-build-system)
	94	(inputs
	95	`(("libepoxy" ,libepoxy)
	96	("mesa" ,mesa)
	97	("udev" ,eudev)))
	98	(native-inputs
	99	`(("pkg-config" ,pkg-config)))
	100	(synopsis "Virtual 3D GPU library")
	101	(description "A virtual 3D GPU library that enables a virtualized operating
	102	system to use the host GPU to accelerate 3D rendering.")
	103	(home-page "https://virgil3d.github.io")
	104	(license (list license:expat license:bsd-3))))
289e472f DC	105
	106	(define-public spice-protocol
	107	(package
	108	(name "spice-protocol")
05e9a463	109	(version "0.14.3")
289e472f DC	110	(source (origin
	111	(method url-fetch)
	112	(uri (string-append
5e569d5c	113	"https://www.spice-space.org/download/releases/"
6d215516	114	"spice-protocol-" version ".tar.xz"))
289e472f DC	115	(sha256
289e472f DC	116	(base32
05e9a463	117	"0yj8k7gcirrsf21w0q6146n5g4nzn2pqky4p90n5760m5ayfb1pr"))))
6d215516 TGR	118	(build-system meson-build-system)
	119	(arguments
	120	`(#:phases
	121	(modify-phases %standard-phases
	122	(add-after 'unpack 'install-documentation
	123	(lambda* (#:key outputs #:allow-other-keys)
	124	(let* ((out (assoc-ref outputs "out"))
	125	(doc (string-append out "/share/doc/"
	126	,name "-" ,version)))
	127	(install-file "COPYING" doc)
	128	#t))))))
289e472f DC	129	(synopsis "Protocol headers for the SPICE protocol")
	130	(description "SPICE (the Simple Protocol for Independent Computing
	131	Environments) is a remote-display system built for virtual environments
	132	which allows users to view a desktop computing environment.")
5e569d5c	133	(home-page "https://www.spice-space.org")
289e472f	134	(license (list license:bsd-3 license:lgpl2.1+))))
bb28cf90 DC	135
	136	(define-public spice-gtk
	137	(package
	138	(name "spice-gtk")
4f20e0a2	139	(version "0.37")
bb28cf90 DC	140	(source (origin
	141	(method url-fetch)
	142	(uri (string-append
f057755e	143	"https://spice-space.org/download/gtk/"
bb28cf90 DC	144	"spice-gtk-" version ".tar.bz2"))
	145	(sha256
	146	(base32
4f20e0a2	147	"1drvj8y35gnxbnrxsipwi15yh0vs9ixzv4wslz6r3lra8w3bfa0z"))))
bb28cf90 DC	148	(build-system gnu-build-system)
	149	(propagated-inputs
	150	`(("gstreamer" ,gstreamer)
bb28cf90 DC	151	("gst-plugins-base" ,gst-plugins-base)
bb28cf90 DC	152	("gst-plugins-good" ,gst-plugins-good)
4f20e0a2	153	("spice-protocol" ,spice-protocol)
a2d2c0bf MB	154
	155	;; These are required by the pkg-config files.
	156	("gtk+" ,gtk+)
	157	("pixman" ,pixman)
	158	("openssl" ,openssl)))
bb28cf90 DC	159	(inputs
bb28cf90 DC	160	`(("glib-networking" ,glib-networking)
c44dd0d6	161	("gobject-introspection" ,gobject-introspection)
fbd2a245	162	("json-glib" ,json-glib)
bb28cf90	163	("libepoxy" ,libepoxy)
4bd428a7	164	("libjpeg" ,libjpeg-turbo)
bb28cf90 DC	165	("libxcb" ,libxcb)
	166	("lz4" ,lz4)
	167	("mesa" ,mesa)
bb28cf90 DC	168	("pulseaudio" ,pulseaudio)
bb28cf90 DC	169	("python" ,python)
bb28cf90	170	("opus" ,opus)
bb28cf90 DC	171	("usbredir" ,usbredir)))
	172	(native-inputs
	173	`(("glib:bin" ,glib "bin")
	174	("intltool" ,intltool)
10e73bbc EF	175	("pkg-config" ,pkg-config)
10e73bbc EF	176	("vala" ,vala)))
bb28cf90 DC	177	(arguments
	178	`(#:configure-flags
	179	'("--enable-gstaudio"
	180	"--enable-gstvideo"
c44dd0d6	181	"--enable-pulse"
10e73bbc	182	"--enable-vala"
c44dd0d6	183	"--enable-introspection")
bb28cf90 DC	184	#:phases
bb28cf90 DC	185	(modify-phases %standard-phases
fbd2a245 MB	186	(add-before 'check 'disable-session-test
	187	(lambda _
	188	;; XXX: Disable session tests, because they require USB support,
	189	;; which is not available in the build container.
	190	(substitute* "tests/Makefile"
	191	(("test-session\\$\\(EXEEXT\\) ") ""))
	192	#t))
29c6fb0d MB	193	(add-after 'install 'patch-la-files
	194	(lambda* (#:key inputs outputs #:allow-other-keys)
	195	(let ((out (assoc-ref outputs "out"))
	196	(libjpeg (assoc-ref inputs "libjpeg")))
	197	;; Add an absolute reference for libjpeg in the .la files
	198	;; so it does not have to be propagated.
	199	(substitute* (find-files (string-append out "/lib") "\\.la$")
	200	(("-ljpeg")
	201	(string-append "-L" libjpeg "/lib -ljpeg")))
	202	#t)))
bb28cf90 DC	203	(add-after
	204	'install 'wrap-spicy
	205	(lambda* (#:key inputs outputs #:allow-other-keys)
	206	(let ((out (assoc-ref outputs "out"))
	207	(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
	208	(wrap-program (string-append out "/bin/spicy")
	209	`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
	210	#t)))))
	211	(synopsis "Gtk client and libraries for SPICE remote desktop servers")
	212	(description "Gtk client and libraries for SPICE remote desktop servers.")
f057755e	213	(home-page "https://www.spice-space.org")
bb28cf90	214	(license (list license:lgpl2.1+ license:lgpl2.0+))))
3cbd37e4 DC	215
	216	(define-public spice
	217	(package
	218	(name "spice")
c0dc4179	219	(version "0.14.3")
3cbd37e4 DC	220	(source (origin
	221	(method url-fetch)
	222	(uri (string-append
b142756d	223	"https://www.spice-space.org/download/releases/"
f6b7ccc9	224	"spice-server/spice-" version ".tar.bz2"))
3cbd37e4 DC	225	(sha256
3cbd37e4 DC	226	(base32
c0dc4179	227	"05512vkfayw18ypg4acqbbpr72nsnsz9bj7k8c2wyrvnl3j4n7am"))))
3cbd37e4 DC	228	(build-system gnu-build-system)
	229	(propagated-inputs
	230	`(("openssl" ,openssl)
	231	("pixman" ,pixman)
	232	("spice-protocol" ,spice-protocol)))
	233	(inputs
5f2a7f4f DC	234	`(("cyrus-sasl" ,cyrus-sasl)
5f2a7f4f DC	235	("glib" ,glib)
9b81876f	236	("libjpeg-turbo" ,libjpeg-turbo)
17adb70f	237	("libcacard" ,libcacard) ; smartcard support
3cbd37e4 DC	238	("lz4" ,lz4)
3cbd37e4 DC	239	("opus" ,opus)
b142756d	240	("orc" ,orc)
3cbd37e4 DC	241	("zlib" ,zlib)))
	242	(native-inputs
	243	`(("pkg-config" ,pkg-config)
	244	("python" ,python)
f6b7ccc9 MB	245	("spice-gtk" ,spice-gtk)
	246
	247	;; These are needed for the server listen tests.
	248	("glib-networking" ,glib-networking)
	249	("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
3cbd37e4 DC	250	(arguments
3cbd37e4 DC	251	`(#:configure-flags
f6b7ccc9 MB	252	'("--enable-lz4"
f6b7ccc9 MB	253	"--enable-automated-tests")
8504d192 LC	254
8504d192 LC	255	;; Several tests appear to be opening the same sockets concurrently.
65211552	256	#:parallel-tests? #f))
3cbd37e4 DC	257	(synopsis "Server implementation of the SPICE protocol")
3cbd37e4 DC	258	(description "SPICE is a remote display system built for virtual
36a4366d	259	environments which allows you to view a computing @code{desktop} environment
3cbd37e4 DC	260	not only on the machine where it is running, but from anywhere on the
3cbd37e4 DC	261	Internet and from a wide variety of machine architectures.")
d5ae997a	262	(home-page "https://www.spice-space.org")
3cbd37e4	263	(license (list license:lgpl2.1+ license:lgpl2.0+))))
33b0f4a4 DC	264
	265	(define-public spice-vdagent
	266	(package
	267	(name "spice-vdagent")
395489cd	268	(version "0.20.0")
33b0f4a4 DC	269	(source (origin
	270	(method url-fetch)
	271	(uri (string-append
	272	"http://www.spice-space.org/download/releases/"
	273	"spice-vdagent-" version ".tar.bz2"))
	274	(sha256
	275	(base32
395489cd	276	"0n9k2kna2gd1zi6jv45zsp2jlv439nz5l5jjijirxqaycwi74srf"))))
33b0f4a4 DC	277	(build-system gnu-build-system)
	278	(arguments
	279	`(#:configure-flags
	280	'("--localstatedir=/var")
	281	#:phases
	282	(modify-phases %standard-phases
	283	(add-after 'unpack 'patch-makefile.in
	284	(lambda _
	285	(substitute* "Makefile.in"
	286	(((string-append "\\$\\(mkdir_p\\) \\$\\(DESTDIR\\)"
	287	"\\$\\(localstatedir\\)/run/spice-vdagentd"))
	288	"-$(mkdir_p) $(DESTDIR)$(localstatedir)/run/spice-vdagentd"))
e02cd2b8 DC	289	#t))
	290	(add-after 'unpack 'patch-spice-vdagent.desktop
	291	(lambda* (#:key outputs #:allow-other-keys)
	292	(substitute* "data/spice-vdagent.desktop"
3f995aaf	293	(("Exec=/usr/bin/spice-vdagent")
e02cd2b8 DC	294	(string-append "Exec=" (assoc-ref outputs "out")
e02cd2b8 DC	295	"/bin/spice-vdagent")))
33b0f4a4 DC	296	#t)))))
	297	(inputs
	298	`(("alsa-lib" ,alsa-lib)
	299	("dbus" ,dbus)
	300	("glib" ,glib)
395489cd	301	("libdrm" ,libdrm)
33b0f4a4 DC	302	("libpciaccess" ,libpciaccess)
	303	("libx11" ,libx11)
	304	("libxext" ,libxext)
	305	("libxfixes" ,libxfixes)
	306	("libxinerama" ,libxinerama)
	307	("libxrandr" ,libxrandr)
	308	("spice-protocol" ,spice-protocol)))
	309	(native-inputs
	310	`(("pkg-config" ,pkg-config)))
	311	(synopsis "Spice agent for Linux")
	312	(description "Spice-vdagent enables sharing the clipboard and guest display
	313	resolution scaling on graphical console window resize.")
d5ae997a	314	(home-page "https://www.spice-space.org")
33b0f4a4	315	(license license:gpl3+)))
6144dff5	316
ee3d20b9 CB	317	(define-public libcacard
	318	(package
	319	(name "libcacard")
	320	(version "2.7.0")
	321	(source (origin
	322	(method url-fetch)
	323	(uri (string-append
	324	"https://gitlab.freedesktop.org/spice/libcacard/uploads/"
	325	"56cb2499198e78e560a1d4c716cd8ab1"
	326	"/libcacard-" version ".tar.xz"))
	327	(sha256
	328	(base32
	329	"0vyvkk4b6xjwq1ccggql13c1x7g4y90clpkqw28257azgn2a1c8n"))))
	330	(build-system gnu-build-system)
	331	(arguments
	332	'(#:tests? #f ; TODO Tests require gnutls built with
	333	; p11-kit
	334	#:phases
	335	(modify-phases %standard-phases
	336	(add-after 'unpack 'patch-tests
	337	(lambda* (#:key inputs #:allow-other-keys)
	338	(substitute* "tests/setup-softhsm2.sh"
	339	(("\\/usr\\/lib64\\/pkcs11\\/libsofthsm2\\.so")
	340	(string-append (assoc-ref inputs "softhsm")
	341	"/lib/softhsm/libsofthsm2.so")))
	342	#t)))))
	343	(propagated-inputs
	344	`(("glib" ,glib) ; Requires: in the pkg-config file
	345	("nss" ,nss))) ; Requires.private: in the pkg-config
	346	; file
	347	(native-inputs
	348	`(("openssl" ,openssl)
	349	("nss" ,nss "bin")
	350	("opensc" ,opensc)
	351	("softhsm" ,softhsm)
	352	("gnutls" ,gnutls)
	353	("pkg-config" ,pkg-config)
	354	("which" ,which)))
	355	(synopsis "Emulate and share smart cards with virtual machines")
	356	(description
	357	"The @acronym{CAC,Common Access Card} library can be used to emulate and
	358	share smart cards from client system to local or remote virtual machines.")
	359	(home-page "https://gitlab.freedesktop.org/spice/libcacard")
	360	(license license:lgpl2.1+)))
	361
6144dff5 DC	362	(define-public virt-viewer
	363	(package
	364	(name "virt-viewer")
800248fe	365	(version "7.0")
6144dff5 DC	366	(source (origin
	367	(method url-fetch)
	368	(uri (string-append
	369	"https://virt-manager.org/download/sources/virt-viewer/"
	370	"virt-viewer-" version ".tar.gz"))
	371	(sha256
	372	(base32
800248fe	373	"00y9vi69sja4pkrfnvrkwsscm41bqrjzvp8aijb20pvg6ymczhj7"))))
6144dff5 DC	374	(build-system gnu-build-system)
	375	(inputs
	376	`(("gtk+" ,gtk+)
facdae04	377	("gtk-vnc" ,gtk-vnc)
6144dff5 DC	378	("libcap" ,libcap)
6144dff5 DC	379	("libxml2" ,libxml2)
f54510d2	380	("spice-gtk" ,spice-gtk)))
6144dff5 DC	381	(native-inputs
	382	`(("glib:bin" ,glib "bin")
	383	("intltool" ,intltool)
	384	("pkg-config" ,pkg-config)))
	385	(arguments
	386	`(#:configure-flags
	387	'("--with-spice-gtk")
	388	#:phases
	389	(modify-phases %standard-phases
	390	(add-after
	391	'install 'wrap-remote-viewer
	392	(lambda* (#:key inputs outputs #:allow-other-keys)
	393	(let ((out (assoc-ref outputs "out"))
	394	(gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
	395	(wrap-program (string-append out "/bin/remote-viewer")
	396	`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))
	397	#t)))))
	398	(synopsis "Graphical console client for virtual machines")
	399	(description "Graphical console client for virtual machines using SPICE or
	400	VNC.")
	401	(home-page "https://virt-manager.org")
	402	(license license:gpl2+)))