From f03a75ceeda012d486a68b06fd70beab390f3dbc Mon Sep 17 00:00:00 2001
From: Petr Hodina <phodina@protonmail.com>
Date: Mon, 27 Dec 2021 20:23:25 +0100
Subject: [PATCH v3 4/5] gnu: Add squeekboard.

* gnu/packages/gnome.scm (squeekboard): New variable.

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 0bf5a8ed2f..a481b1db79 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -566,6 +566,70 @@ (define-public seed
     (home-page "https://wiki.gnome.org/Projects/Seed")
     (license license:lgpl2.0+)))
 
+(define-public squeekboard
+  (package
+    (name "squeekboard")
+    (version "1.17.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+	   (url "https://gitlab.gnome.org/World/Phosh/squeekboard")
+	   (commit (string-append "v" version))))
+       (sha256
+        (base32
+         "1612s6cim46a4rqzqpvz46m4l4kgdnf52bxgrpx7p4fp8r1qx3jk"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:modules ((guix build cargo-build-system)
+                  (guix build utils)
+                  (ice-9 textual-ports))
+	  #:cargo-inputs
+       (("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
+        ("rust-cairo-rs" ,rust-cairo-rs-0.7)
+        ("rust-clap" ,rust-clap-2)
+        ("rust-gdk" ,rust-gdk-0.12)
+        ("rust-gio" ,rust-gio-0.7)
+        ("rust-glib-sys" ,rust-glib-sys-0.9)
+        ("rust-gtk" ,rust-gtk-0.8)
+	    ("rust-gtk-sys" ,rust-gtk-sys-0.9)
+	    ("rust-bitflags" ,rust-bitflags-1)
+        ("rust-maplit" ,rust-maplit-1)
+		("rust-serde" ,rust-serde-1)
+		("rust-serde-yaml" ,rust-serde-yaml-0.8)
+		("rust-xkbcommon" ,rust-xkbcommon-0.4))
+		#:phases
+ 		(modify-phases %standard-phases
+		 (add-before 'patch-cargo-checksums 'fix-requirements
+		   (lambda* _
+				(substitute* "Cargo.toml.in"
+				(("@path@/") ""))
+				(substitute* "Cargo.deps"
+				(("1.2") ,(version-major+minor (package-version
+				rust-bitflags-1)))
+				(("0.7") ,(version-major+minor (package-version
+				rust-gtk-0.8)))
+				(("0.11") ,(version-major+minor (package-version
+				rust-gdk-0.12)))
+				(("2.33") ,(version-major+minor (package-version
+				rust-clap-2))))))
+         (add-after 'fix-requirements 'prepare-cargo-toml
+           (lambda* (#:key source #:allow-other-keys)
+		   (let* ((cargo-toml-in (call-with-input-file "Cargo.toml.in" get-string-all))
+		          (cargo-deps (call-with-input-file "Cargo.deps" get-string-all))
+		          (cargo-toml (open-file "Cargo.toml" "w")))
+                (display cargo-toml-in cargo-toml)
+                (display cargo-deps cargo-toml)
+                (close-output-port cargo-toml)))))))
+	(native-inputs (list wayland-protocols))
+    (inputs
+     (list gtk dbus))
+    (home-page "https://gitlab.gnome.org/World/Phosh/squeekboard")
+    (synopsis "On-screen-keyboard input method for Wayland")
+    (description "This package provides an on-screen-keyboard input
+	method for Wayland.")
+    (license license:gpl3+)))
+
 (define-public libdmapsharing
   (package
     (name "libdmapsharing")
-- 
2.34.0