[bug#56688] [PATCH 4/4] gnu: Add sworkstyle 1.2.2.

[muradm]

* gnu/packages/wm.scm (sworkstyle): New variable.
---
 gnu/packages/wm.scm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index f27f8af8d4..43f0f1e4b5 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -79,6 +79,7 @@ (define-module (gnu packages wm)
   #:use-module (guix gexp)
   #:use-module (guix git-download)
   #:use-module (guix build-system asdf)
+  #:use-module (guix build-system cargo)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system copy)
   #:use-module (guix build-system gnu)
@@ -97,6 +98,7 @@ (define-module (gnu packages wm)
   #:use-module (gnu packages build-tools)
   #:use-module (gnu packages calendar)
   #:use-module (gnu packages check)
+  #:use-module (gnu packages crates-io)
   #:use-module (gnu packages datastructures)
   #:use-module (gnu packages docbook)
   #:use-module (gnu packages documentation)
@@ -1717,6 +1719,38 @@ (define-public swaybg
     (description "Swaybg is a wallpaper utility for Wayland compositors.")
     (license license:expat))) ; MIT license
 
+(define-public sworkstyle
+  (package
+    (name "sworkstyle")
+    (version "1.2.2")
+    (home-page "https://github.com/lyr-7d1h/swayest_workstyle";)
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url home-page)
+                    (commit version)))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32 
"0x9xhx14g60mas9iwgk30wk14i3282nk1szr929d24v4l0z4phnb"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:cargo-inputs
+       (("rust-anyhow" ,rust-anyhow-1)
+        ("rust-ctrlc" ,rust-ctrlc-3)
+        ("rust-dirs" ,rust-dirs-4)
+        ("rust-env-logger" ,rust-env-logger-0.9)
+        ("rust-fslock" ,rust-fslock-0.2)
+        ("rust-futures-util" ,rust-futures-util-0.3)
+        ("rust-log" ,rust-log-0.4)
+        ("rust-swayipc" ,rust-swayipc-2)
+        ("rust-tokio" ,rust-tokio-1)
+        ("rust-toml" ,rust-toml-0.5)
+        ("rust-regex" ,rust-regex-1))))
+    (synopsis  "Your workspace shall never contain an empty icon again!")
+    (description "Map workspace name to icons defined depending on the windows
+inside of the workspace.")
+    (license license:expat)))
+
 (define-public waybar
   (package
     (name "waybar")
-- 
2.36.1