@@ -20,6 +20,7 @@
(define-module (gnu packages crates-gtk)
#:use-module (guix build-system cargo)
#:use-module (guix download)
+ #:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (gnu packages)
@@ -2447,3 +2448,31 @@ the Secret Service API")
(description "This package provides API bindings for GtkSourceView,
version 4.x.")
(license license:lgpl2.1+)))
+
+(define-public rust-sourceview4-for-fractal
+ (package
+ (inherit rust-sourceview4-0.2)
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://gitlab.gnome.org/World/Rust/sourceview4-rs/")
+ (commit "fa8819fa7ecbe56f44d951656d3825f468915754")))
+ (file-name "rust-sourceview4-0.2.0.tar.gz")
+ (sha256
+ (base32
+ "0aib8385fxdpw79sasfzn6q11sqx3wigkb267if9fb12bagycgpk"))))
+ (arguments
+ `(#:cargo-inputs
+ (("rust-bitflags" ,rust-bitflags-1)
+ ("rust-gdk" ,rust-gdk-0.12)
+ ("rust-gdk-pixbuf" ,rust-gdk-pixbuf-0.8)
+ ("rust-gio" ,rust-gio-0.9)
+ ("rust-gio-sys" ,rust-gio-sys-0.10)
+ ("rust-glib" ,rust-glib-0.9)
+ ("rust-glib-sys" ,rust-glib-sys-0.9)
+ ("rust-gobject-sys" ,rust-gobject-sys-0.9)
+ ("rust-gtk" ,rust-gtk-0.8)
+ ("rust-gtk-sys" ,rust-gtk-sys-0.9)
+ ("rust-libc" ,rust-libc-0.2)
+ ("rust-pango" ,rust-pango-0.8))))
+ (properties `((hidden? . #t)))))