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

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