add wl-clip-persist

sakura/packages/crates-io.scm

@@ -10,6 +10,32 @@
                #:use-module (guix utils))
 
 
+(define-public rust-tokio-pipe-0.2
+  (package
+    (name "rust-tokio-pipe")
+    (version "0.2.12")
+      (source
+        (origin
+          (method url-fetch)
+          (uri (crate-uri "tokio-pipe" version))
+          (file-name (string-append name "-" version ".tar.gz"))
+      (modules '((guix build utils)))
+      (sha256
+        (base32
+          "1117ahamrgc23qc6g22i1cflfpg3pfs498581gxbhqdxzx5sh4zj"))))
+      (build-system cargo-build-system)
+      (arguments
+        `(#:tests? #f
+              #:cargo-inputs (("rust-libc" ,rust-libc-0.2)
+                        ("rust-tokio" ,rust-tokio-1))
+        #:cargo-development-inputs (("rust-anyhow" ,rust-anyhow-1))))
+      (home-page "https://github.com/yskszk63/tokio-pipe")
+      (synopsis "Asynchronous pipe(2) library using tokio.")
+      (description "Asynchronous pipe(2) library using tokio.")
+      (license license:expat)))
+
+
+
 (define-public rust-synstructure-0.13
   (package
     (inherit rust-synstructure-0.12)

sakura/packages/wm.scm

@@ -8,6 +8,9 @@
                #:use-module (gnu packages sdl)
                #:use-module (gnu packages xorg)
                #:use-module (gnu packages xdisorg)
+               #:use-module (gnu packages rust)
+               #:use-module (gnu packages crates-io)
+               #:use-module (gnu packages crates-graphics)
                #:use-module (gnu packages maths)
                #:use-module (gnu packages image)
                #:use-module (gnu packages cmake)
@@ -19,15 +22,63 @@
                #:use-module (gnu packages pkg-config)
                #:use-module (gnu packages freedesktop)
                #:use-module (gnu packages version-control)
+               #:use-module (sakura packages crates-io)
                #:use-module (guix download)
                #:use-module (guix packages)
                #:use-module (guix gexp)
                #:use-module (guix git-download)
                #:use-module (guix build utils)
                #:use-module (guix build-system meson)
+               #:use-module (guix build-system cargo)
                #:use-module (guix utils))
 
 
+(define-public wl-clip-persist
+  (package
+    (name "wl-clip-persist")
+    (version "0.4.3")
+    (source
+      (origin
+        (method git-fetch)
+        (uri (git-reference
+               (url "https://github.com/Linus789/wl-clip-persist")
+               (commit (string-append "v" version))))
+        (sha256
+          (base32
+            "1ycsp101qni18ws83srhvsv1ril7f0rl8s7wh1b7a15k2sq4fn3l"))
+        (file-name (git-file-name name version))))
+    (build-system cargo-build-system)
+    (arguments
+      `(#:tests? #f
+        #:cargo-inputs (("rust-log" ,rust-log-0.4)
+                        ("rust-env-logger" ,rust-env-logger-0.11)
+                        ("rust-chrono" ,rust-chrono-0.4)
+                        ("rust-clap" ,rust-clap-4)
+                        ("rust-tokio" ,rust-tokio-1)
+                        ("rust-tokio-pipe" ,rust-tokio-pipe-0.2)
+                        ("rust-futures-util" ,rust-futures-util-0.3)
+                        ("rust-wayrs-client" ,rust-wayrs-client-1)
+                        ("rust-wayrs-protocols" ,rust-wayrs-protocols-0.13)
+                        ("rust-fancy-regex" ,rust-fancy-regex-0.13)
+                        ("rust-libc" ,rust-libc-0.2))
+        #:phases
+        (modify-phases %standard-phases
+          (add-after 'unpack 'patch-source
+            (lambda* (#:key outputs #:allow-other-keys)
+              (substitute* "Cargo.toml"
+                (("1.37") "^1")    ; tokio
+                (("1.1") "^1")     ; wayrs-client
+                (("0.14") "0.13")) ; wayrs-protocols
+                )))))
+    (native-inputs
+      (list rust
+            pkg-config))
+    (home-page "https://github.com/Linus789/wl-clip-persist")
+    (synopsis "Keep Wayland clipboard even after programs close.")
+    (description "Keep Wayland clipboard even after programs close.")
+    (license license:expat)))
+
+
 (define-public vkroots
   (let ((commit "d5ef31abc7cb5c69aee4bcb67b10dd543c1ff7ac"))
   (package