GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-05-03 15:43:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

use guix style on *.scm

Browse source
This commit is contained in:
Yann Dupont 2023-01-02 11:18:12 +01:00
parent a85adcc847
commit 09e78ddc85
28 changed files with 1981 additions and 2065 deletions
Download patch file Download diff file Expand all files Collapse all files

85
glicid/packages/virtualization.scm
View file

@ -1,50 +1,51 @@
(define-module (glicid packages virtualization)
#:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (gnu packages)
#:use-module (guix utils)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages storage)
#:use-module (guix download)
#:use-module (glicid utils))
#:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (gnu packages)
#:use-module (guix utils)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages storage)
#:use-module (guix download)
#:use-module (glicid utils))
(define-public qemu-latest qemu)
(define-public qemu-minimal-latest qemu-minimal)
(define-public qemu-latest
qemu)
(define-public qemu-minimal-latest
qemu-minimal)
(define-public qemu-with-rbd
(package
(inherit qemu-latest)
(name "qemu-with-rbd")
(arguments
(substitute-keyword-arguments
(package-arguments qemu)
((#:tests? _ #f)
#f)))
(inputs `(
("ceph:lib", ceph "lib")
,@(package-inputs qemu)))))
(package
(inherit qemu-latest)
(name "qemu-with-rbd")
(arguments
(substitute-keyword-arguments (package-arguments qemu)
((#:tests? _ #f)
#f)))
(inputs `(("ceph:lib" ,ceph "lib")
,@(package-inputs qemu)))))
(define-public qemu-minimal-with-rbd
(package
(inherit qemu-minimal-latest)
(name "qemu-minimal-with-rbd")
(arguments
(substitute-keyword-arguments
`(
#:tests? #f
,@(package-arguments qemu-minimal))))
(inputs `(
("ceph:lib", ceph "lib" )
,@(package-inputs qemu-minimal)))))
(package
(inherit qemu-minimal-latest)
(name "qemu-minimal-with-rbd")
(arguments
(substitute-keyword-arguments `(#:tests? #f
,@(package-arguments qemu-minimal))
))
(inputs `(("ceph:lib" ,ceph "lib")
,@(package-inputs qemu-minimal)))))
(define-public libvirt-8.5
(package
(inherit libvirt)
(name "libvirt")
(version "8.5.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://libvirt.org/sources/libvirt-" version ".tar.xz"))
(sha256 (base32 "0qnvjy7k4l52bb5xylvhm21blkgbhld0jzilhsdf6gdqw6srj7j0"))
(patches (search-patches "glicid/packages/patches/glicid-libvirt-add-install-prefix.patch"))))))
(package
(inherit libvirt)
(name "libvirt")
(version "8.5.0")
(source (origin
(method url-fetch)
(uri (string-append "https://libvirt.org/sources/libvirt-"
version ".tar.xz"))
(sha256
(base32
"0qnvjy7k4l52bb5xylvhm21blkgbhld0jzilhsdf6gdqw6srj7j0"))
(patches (search-patches
"glicid/packages/patches/glicid-libvirt-add-install-prefix.patch"))))))