From 94358d5c36f030379731b0dfc25b168998a275ea Mon Sep 17 00:00:00 2001
From: Freya Murphy <freya@freyacat.org>
Date: Sun, 12 Nov 2023 09:31:34 -0500
Subject: [PATCH] wl-mirror

---
 modules/home-packages/freedesktop.scm | 55 +++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 modules/home-packages/freedesktop.scm

diff --git a/modules/home-packages/freedesktop.scm b/modules/home-packages/freedesktop.scm
new file mode 100644
index 0000000..6b7a884
--- /dev/null
+++ b/modules/home-packages/freedesktop.scm
@@ -0,0 +1,55 @@
+(define-module (home-packages freedesktop)
+                #:use-module (guix download)
+                #:use-module ((guix licenses) #:prefix license:)
+                #:use-module (guix gexp)
+                #:use-module (guix build-system meson)
+                #:use-module (guix build-system qt)
+                #:use-module (guix build-system cmake)
+                #:use-module (guix build utils)
+                #:use-module (guix build glib-or-gtk-build-system)
+                #:use-module (guix packages)
+                #:use-module (guix git-download)
+                #:use-module (guix utils)
+                #:use-module (gnu packages)
+                #:use-module (gnu packages gl)
+                #:use-module (gnu packages linux)
+                #:use-module (gnu packages image)
+                #:use-module (gnu packages qt)
+                #:use-module (gnu packages cmake)
+                #:use-module (gnu packages gcc)
+                #:use-module (gnu packages pkg-config)
+                #:use-module (gnu packages freedesktop)
+                #:use-module (gnu packages xorg)
+                #:use-module (gnu packages glib)
+                #:use-module (gnu packages man)
+                #:use-module (gnu packages wm))
+
+(define-public wl-mirror
+  (package
+    (name "wl-mirror")
+    (version "0.13.2")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                     (url "https://github.com/Ferdi265/wl-mirror")
+                     (commit (string-append "v" version))
+                     (recursive? #t)))
+              (file-name (git-file-name name version))
+              (sha256
+                (base32
+                  "0vkd73x5r2585s3w1ckvslc2mq9qbzrm5xkwg8gpy9ydaxhn8hmp"))))
+    (inputs (list wayland egl-wayland mesa))
+    (native-inputs (list pkg-config scdoc wayland-protocols))
+    (build-system cmake-build-system)
+    (arguments (list
+                 #:tests? #f
+                 #:phases
+                 #~(modify-phases %standard-phases
+                    (add-before 'configure 'touch
+                      (lambda _
+                        (invoke "touch" "proto/wayland-protocols/.git")
+                        (invoke "touch" "proto/wlr-protocols/.git"))))))
+    (home-page "bleh")
+    (synopsis "mirror displays")
+    (description "mirror displays")
+    (license license:expat)))