modules/ryan-packages/freedesktop.scm

fa95cb0d17d8c745e12108e7a76c9d9923035722 · 4.7 KB · 110 lines raw

1 (define-module (ryan-packages freedesktop)
2 #:use-module (guix download)
3 #:use-module ((guix licenses) #:prefix license:)
4 #:use-module (guix gexp)
5 #:use-module (guix build-system meson)
6 #:use-module (guix build-system qt)
7 #:use-module (guix build-system cmake)
8 #:use-module (guix build utils)
9 #:use-module (guix build glib-or-gtk-build-system)
10 #:use-module (guix packages)
11 #:use-module (guix git-download)
12 #:use-module (guix utils)
13 #:use-module (gnu packages)
14 #:use-module (gnu packages gl)
15 #:use-module (gnu packages linux)
16 #:use-module (gnu packages image)
17 #:use-module (gnu packages qt)
18 #:use-module (gnu packages cmake)
19 #:use-module (gnu packages gcc)
20 #:use-module (gnu packages pkg-config)
21 #:use-module (gnu packages freedesktop)
22 #:use-module (gnu packages xorg)
23 #:use-module (gnu packages glib)
24 #:use-module (gnu packages man)
25 #:use-module (rosenthal packages wm)
26 #:use-module (gnu packages wm))
27
28 (define-public xdg-desktop-portal-wlr-new
29 (package
30 (inherit xdg-desktop-portal-wlr)
31 (version "0.7.0")
32 (source (origin
33 (method git-fetch)
34 (uri (git-reference
35 (url "https://github.com/emersion/xdg-desktop-portal-wlr")
36 (commit (string-append "v" version))))
37 (sha256
38 (base32
39 "1b3hpp3ybjgnnmnwsyb5bsnvz9q5nr3zz0j1alh02g24f68lf00k"))
40 (patches (search-patches "xdg-desktop-portal-wlr-harcoded-length.patch"))))
41 (native-inputs (modify-inputs (package-native-inputs xdg-desktop-portal-wlr)
42 (append wlroots)))))
43
44 (define-public xdg-desktop-portal-hyprland-ryan
45 (package
46 (name "xdg-desktop-portal-hyprland")
47 (version "1.2.6")
48 (source (origin
49 (method git-fetch)
50 (uri (git-reference
51 (url "https://github.com/hyprwm/xdg-desktop-portal-hyprland")
52 (commit (string-append "v" version))))
53 (file-name (git-file-name name version))
54 (sha256
55 (base32
56 "1m82rrir2fg7h2cpch6wm3h1rkpnbh9pawlw1wdknw75mi6139r0"))))
57 (build-system meson-build-system)
58 (arguments
59 (list
60 #:tests? #f
61 #:configure-flags #~(list "-Dsystemd=disabled")
62 #:phases
63 ;; After building the portal, we need to build the share selector using qt
64 #~(modify-phases %standard-phases
65 (add-after `unpack `fix-path
66 (lambda* (#:key inputs #:allow-other-keys)
67 (substitute* (find-files "." "\\.cp?*$")
68 (("/bin/sh") "sh")
69 (("\\<(sh|grim|hyprctl|slurp)\\>" _ cmd)
70 (search-input-files inputs (string-append "/bin/" cmd)))
71 (("\\<(hyprctl-share-picker)\\>" _ cmd)
72 (string-append #$output "/bin/" cmd))))))))
73 (native-inputs (list gcc-13 pkg-config wayland))
74 (inputs (list bash-minimal grim hyprland hyprland-protocols mesa pipewire qtbase-5 sdbus-c++ slurp wayland-protocols))
75 (home-page "")
76 (synopsis "test")
77 (description "test")
78 (license license:bsd-3)))
79
80 (define-public wl-mirror
81 (package
82 (name "wl-mirror")
83 (version "0.13.2")
84 (source (origin
85 (method git-fetch)
86 (uri (git-reference
87 (url "https://github.com/Ferdi265/wl-mirror")
88 (commit (string-append "v" version))
89 (recursive? #t)))
90 (file-name (git-file-name name version))
91 (sha256
92 (base32
93 "0vkd73x5r2585s3w1ckvslc2mq9qbzrm5xkwg8gpy9ydaxhn8hmp"))))
94 (inputs (list wayland egl-wayland mesa))
95 (native-inputs (list pkg-config scdoc wayland-protocols))
96 (build-system cmake-build-system)
97 (arguments (list
98 #:tests? #f
99 #:phases
100 #~(modify-phases %standard-phases
101 (add-before 'configure 'touch
102 (lambda _
103 (invoke "touch" "proto/wayland-protocols/.git")
104 (invoke "touch" "proto/wlr-protocols/.git"))))))
105 (home-page "bleh")
106 (synopsis "mirror displays")
107 (description "mirror displays")
108 (license license:expat)))
109
110 xdg-desktop-portal-hyprland-ryan