From 9f9011d65f3f06ecac34cd6d3a6127402cb940ed Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Mon, 25 Mar 2024 01:11:11 -0300
Subject: [PATCH] packages: wm: Add riverguile

---
 radix/packages/wm.scm | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/radix/packages/wm.scm b/radix/packages/wm.scm
index d4838bd..f19f163 100644
--- a/radix/packages/wm.scm
+++ b/radix/packages/wm.scm
@@ -3,9 +3,13 @@
   #:use-module (gnu packages)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages guile)
+  #:use-module (gnu packages guile-xyz)
   #:use-module (gnu packages zig)
   #:use-module (guix build-system zig)
+  #:use-module (guix build-system gnu)
   #:use-module (guix gexp)
+  #:use-module (guix utils)
   #:use-module (guix git-download)
   #:use-module (guix packages)
   #:use-module (guix transformations)
@@ -51,3 +55,40 @@
     "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)))
+
+(define-public riverguile
+  (package
+    (name "riverguile")
+    (version "0.1.0")
+    (source
+     (origin
+      (method git-fetch)
+      (uri (git-reference
+            (url "https://git.sr.ht/~leon_plickat/riverguile")
+            (commit (string-append "v" version))
+            (recursive? #t)))
+      (file-name (git-file-name name version))
+      (sha256
+       (base32 "1m14pfk1mxkijmpcs0gqlpvyp6bzc214fdn8aq0r5llg5v0wkidz"))))
+   (build-system gnu-build-system)
+   (arguments
+     (list #:tests? #f
+           #:make-flags
+           #~(list (string-append "CC=" #$(cc-for-target))
+                   (string-append "PREFIX=" (assoc-ref %outputs "out")))
+           #:phases
+           #~(modify-phases %standard-phases
+               (delete 'configure))))
+   (inputs
+     (list guile-3.0
+           guile-config
+           pkg-config
+           wayland))
+   (home-page "https://git.sr.ht/~leon_plickat/riverguile")
+   (synopsis "Scripting layer for the river Wayland server using Guile Scheme.")
+   (description "Scripting layer for the river Wayland server using Guile Scheme.
+Send commands to river and install handlers for various events, including layout
+demands.
+The ultimate aim of riverguile is to allow comfortable scripting in the context
+of desktop operations, including window management.")
+   (license license:gpl3)))