modules/ryan-packages/freedesktop.scm

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