added fonts and wl-mirror

1 files changed, 36 insertions, 1 deletions

diff --git a/modules/ryan-packages/freedesktop.scm b/modules/ryan-packages/freedesktop.scm
index 6e13d53..7fb0652 100644
--- a/modules/ryan-packages/freedesktop.scm
+++ b/modules/ryan-packages/freedesktop.scm
@@ -4,6 +4,9 @@
                 #: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)
@@ -15,6 +18,8 @@
                 #:use-module (gnu packages cmake)
                 #:use-module (gnu packages pkg-config)
                 #:use-module (gnu packages freedesktop)
+                #:use-module (gnu packages xorg)
+                #:use-module (gnu packages man)
                 #:use-module (rosenthal packages wm)
                 #:use-module (gnu packages wm))
 
@@ -97,4 +102,34 @@
     (description "test")
     (license license:bsd-3)))
 
-xdg-desktop-portal-hyprland
+(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)))
+
+wl-mirror