packages: wm: Add rivercarro

radix/packages/wm.scm

@@ -1,9 +1,48 @@
 (define-module (radix packages wm)
   #:use-module (gnu packages wm)
-  #:use-module (guix transformations))
+  #:use-module (gnu packages)
+  #:use-module (gnu packages freedesktop)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages zig)
+  #:use-module (guix build-system zig)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module (guix transformations)
+  #:use-module ((guix licenses) #:prefix license:))
 
 (define-public awesome-next
   ((options->transformation
      `((with-branch  . "awesome=master")
        (with-git-url . "awesome=https://github.com/awesomeWM/awesome")))
    awesome))
+
+(define-public rivercarro
+  (package
+   (name "rivercarro")
+   (version "0.2.1")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+           (url "https://git.sr.ht/~novakane/rivercarro")
+           (commit (string-append "v" version))
+           (recursive? #t)))
+     (file-name (git-file-name name version))
+     (sha256
+      (base32 "1a852hkakha3f5djnd8jrmkcq0xcdxbcbidr2kkfbqrhni9p33cl"))))
+   (build-system zig-build-system)
+   (arguments
+    (list #:tests? #f
+          #:phases #~(modify-phases %standard-phases
+                       (delete 'validate-runpath))))
+   (native-inputs
+    (list pkg-config
+          wayland
+          wayland-protocols))
+   (home-page "https://git.sr.ht/~novakane/rivercarro")
+   (synopsis "A slightly modified version of rivertile layout generator for river")
+   (description
+    "A modified version of rivertile which adds: monocle layout, gaps rather
+than padding, gap size modification at run time, and smart gaps.")
+   (license license:gpl3)))