Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
gnome-boxes
modified gnu/packages/gnome.scm
@@ -147,12 +147,12 @@
#:use-module (gnu packages tex)
#:use-module (gnu packages time)
#:use-module (gnu packages tls)
+ #:use-module (gnu packages mtools)
#:use-module (gnu packages version-control)
#:use-module (gnu packages video)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages vpn)
#:use-module (gnu packages web)
- #:use-module (gnu packages web)
#:use-module (gnu packages webkit)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xiph)
@@ -300,7 +300,8 @@ features to enable users to create their discs easily and quickly.")
("gettext" ,gettext-minimal)
("itstool" ,itstool)
("intltool" ,intltool)
- ("cmake" ,cmake)))
+ ("cmake" ,cmake)
+ ))
(home-page "https://launchpad.net/deja-dup")
(synopsis "Simple backup tool, for regular encrypted backups")
(description
@@ -8175,3 +8176,78 @@ advanced image management tool")
"Terminator allows you to run multiple GNOME terminals in a grid and
+tabs, and it supports drag and drop re-ordering of terminals.")
(license license:gpl2)))
+
+(define-public gnome-boxes
+ (package
+ (name "gnome-boxes")
+ (version "3.32.1")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "mirror://gnome/sources/" name "/"
+ (version-major+minor version) "/"
+ name "-" version ".tar.xz"))
+ (sha256
+ (base32
+ "159sxii3g4s5pjb4s4i3kc4q162w5vicp4g6wvk1y2yv68bgmcl4"))))
+ (build-system meson-build-system)
+ (arguments
+ `(#:glib-or-gtk? #t
+ #:configure-flags
+ (list (string-append "-Dc_link_args=-Wl,-rpath="
+ (assoc-ref %outputs "out") "/lib/gnome-boxes"))))
+
+ (propagated-inputs
+ `(
+ ("gtk+" ,gtk+ "bin") ; gtk-update-icon-cache
+ ("spice" ,spice)
+ ("spice-gtk" ,spice-gtk)
+ ("spice-protocol" ,spice-protocol)
+ ("libarchive" ,libarchive)
+ ("python" ,python-2)
+ ("yelp-tools" ,yelp-tools)
+ ("glib:bin" ,glib "bin") ; for glib-compile-resources
+ ("gtk-vnc" ,gtk-vnc)
+ ("libosinfo" ,libosinfo)
+ ("libsecret" ,libsecret)
+ ("libsoup" ,libsoup)
+ ("libusb" ,libusb)
+ ("libvirt-glib" ,libvirt-glib)
+ ("gobject-introspection" ,gobject-introspection)
+ ("glib:bin" ,glib "bin")
+ ("libvirt" ,libvirt)
+ ("tracker" ,tracker)
+ ("vte" ,vte)
+ ("webkitgtk" ,webkitgtk)
+ ("desktop-file-utils" ,desktop-file-utils)
+ ("appstream-glib" ,appstream-glib)
+ ("cdrtools" ,cdrtools)
+ ("libgovirt" ,libgovirt)
+ ("libgudev" ,libgudev)
+ ("mtools" ,mtools)
+ ("qemu" ,qemu)
+ ("freerdp" ,freerdp)
+ ("libxml2" ,libxml2)
+ ("pixman" ,pixman)
+ ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
+ ("openssl" ,openssl)))
+ (native-inputs
+ `(
+ ("pkg-config" ,pkg-config)
+ ("vala" ,vala)
+ ("gettext" ,gettext-minimal)
+ ("itstool" ,itstool)
+ ("intltool" ,intltool)
+ ("cmake" ,cmake)
+
+ ))
+ (inputs
+ `(
+ ("dbus-glib" ,dbus-glib)
+
+ ))
+ (home-page "https://wiki.gnome.org/Apps/Boxes")
+ (synopsis "Simple GNOME application to access remote or virtual systems")
+ (description
+ "Boxes is an application that gives you access to virtual machines, running locally or remotely. It also allows you to connect to the display of a remote computer.")
+ (license license:lgpl3)))
modified gnu/packages/spice.scm
@@ -131,7 +131,7 @@ which allows users to view a desktop computing environment.")
(define-public spice-gtk
(package
(name "spice-gtk")
- (version "0.36")
+ (version "0.37")
(source (origin
(method url-fetch)
(uri (string-append
@@ -139,7 +139,7 @@ which allows users to view a desktop computing environment.")
"spice-gtk-" version ".tar.bz2"))
(sha256
(base32
- "1kfpixfdmxs9wn3id48gc9bvfrgxz935y3wpykf40bgi9mcc69ki"))))
+ "1drvj8y35gnxbnrxsipwi15yh0vs9ixzv4wslz6r3lra8w3bfa0z"))))
(build-system gnu-build-system)
(propagated-inputs
`(("gstreamer" ,gstreamer)
@@ -166,6 +166,7 @@ which allows users to view a desktop computing environment.")
("pulseaudio" ,pulseaudio)
("python" ,python)
("opus" ,opus)
+ ("vala" ,vala)
("usbredir" ,usbredir)))
(native-inputs
`(("glib:bin" ,glib "bin")
@@ -176,6 +177,8 @@ which allows users to view a desktop computing environment.")
'("--enable-gstaudio"
"--enable-gstvideo"
"--enable-pulse"
+ "--enable-vala"
+ "--enable-python"
"--enable-introspection")
#:phases
(modify-phases %standard-phases
modified gnu/packages/virtualization.scm
@@ -286,7 +286,7 @@ server and embedded PowerPC, and S390 guests.")
(define-public libosinfo
(package
(name "libosinfo")
- (version "1.0.0")
+ (version "1.5.0")
(source
(origin
(method url-fetch)
@@ -294,7 +294,7 @@ server and embedded PowerPC, and S390 guests.")
version ".tar.gz"))
(sha256
(base32
- "0srrs2m6irqd4f867g8ls6jp2dq3ql0l9d0fh80d55sivvn2bd7p"))))
+ "12b0xj9fz9q91d1pz9xm6aqap5k1ip0m9m3qvqmwjy1lk1kjasdz"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@@ -305,11 +305,13 @@ server and embedded PowerPC, and S390 guests.")
#:phases
(modify-phases %standard-phases
;; This odd test fails for unknown reasons.
- (add-after 'unpack 'disable-broken-test
- (lambda _
- (substitute* "test/Makefile.in"
- (("test-isodetect\\$\\(EXEEXT\\)") ""))
- #t)))))
+; (add-after 'unpack 'disable-broken-test
+; (lambda _
+; (substitute* "test/Makefile.in"
+; (("test-isodetect\\$\\(EXEEXT\\)") ""))
+; #t))
+
+ )))
(inputs
`(("libsoup" ,libsoup)
("libxml2" ,libxml2)
@@ -488,14 +490,14 @@ to integrate other virtualization mechanisms if needed.")
(define-public libvirt-glib
(package
(name "libvirt-glib")
- (version "1.0.0")
+ (version "2.0.0")
(source (origin
(method url-fetch)
(uri (string-append "ftp://libvirt.org/libvirt/glib/"
"libvirt-glib-" version ".tar.gz"))
(sha256
(base32
- "0iwa5sdbii52pjpdm5j37f67sdmf0kpcky4liwhy1nf43k85i4fa"))))
+ "0six9ckmvlwwyavyjkgc262qkpvfqgi8rjij7cyk00bmqq8c9s4l"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@@ -1327,3 +1329,65 @@ which is a hypervisor.")
;; TODO: Some files are licensed differently. List those.
(license license:gpl2)
(supported-systems '("i686-linux" "x86_64-linux" "armhf-linux"))))
+
+
+(define-public qemu-minimal
+ ;; QEMU without GUI support.
+ (package (inherit qemu)
+ (name "qemu-minimal")
+ (synopsis "Machine emulator and virtualizer (without GUI)")
+ (arguments
+ (substitute-keyword-arguments (package-arguments qemu)
+ ((#:configure-flags _ '(list))
+ ;; Restrict to the targets supported by Guix.
+ ''("--target-list=i386-softmmu,x86_64-softmmu,mips64el-softmmu,arm-softmmu,aarch64-softmmu"))))
+
+ ;; Remove dependencies on optional libraries, notably GUI libraries.
+ (native-inputs (fold alist-delete (package-native-inputs qemu)
+ '("gettext")))
+ (inputs (fold alist-delete (package-inputs qemu)
+ '("libusb" "mesa" "sdl2" "spice" "virglrenderer" "gtk+"
+ "usbredir" "libdrm" "libepoxy" "pulseaudio")))))
+
+(define-public libgovirt
+ (package
+ (name "libgovirt")
+ (version "0.3.6")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "mirror://gnome/sources/" name "/"
+ (version-major+minor version) "/"
+ name "-" version ".tar.xz"))
+ (sha256
+ (base32
+ "19pb71pag3vsi83kbv8h08kimwym4hpw36kjl6a5ik5nk50mc8sg"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:tests? #f))
+ (native-inputs
+ `(
+
+ ))
+ (propagated-inputs
+ `(("glib:bin" ,glib "bin")
+ ("automake" ,automake)
+ ("cmake" ,cmake)
+ ("vala" ,vala)
+ ("libtool" ,libtool)
+ ("pkg-config" ,pkg-config)
+ ("gobject-introspection" ,gobject-introspection)
+ ("rest" ,rest)
+ ))
+ (inputs
+ `(
+
+ ))
+ (home-page "https://gitlab.gnome.org/GNOME/libgovirt")
+ (synopsis "GObject-based library to access oVirt REST API")
+ (description
+ "GoVirt is a GObject wrapper for the oVirt REST API [1]. It will
+only provide very basic functionality as the goal is to
+autogenerate a full wrapper as it is already done for the python
+bindings.")
+ (license license:lgpl3)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.