@@ -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")