seasharp
/
Rosenthal
mirror of https://codeberg.org/hako/Rosenthal.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

rosenthal: hyprland: Update to 0.44.1.

Browse Source 
* rosenthal/packages/wm.scm (libinput-minimal-for-hyprland,wayland-for-hyprland)
(aquamarine,hyprpicker,hyprutils): New variables.
(grimblast): Update to grimblast-0.1-1.9d67858.
(hyprcursor): Update to 0.1.9.
(hyprland): Update to 0.44.1.
(hyprland-protocols): Update to 0.4.0.
(hyprlang): Update to 0.5.3.
(hyprwayland-scanner): Update to 0.4.2.
(xdg-desktop-portal-hyprland): Update to 1.3.6.
(cairo-for-hyprland,hwdata-for-hyprland,libdrm-for-hyprland)
(hyprland-unbundle-wlroots-patch,wayland-protocols-for-hyprland)
(wlroots-for-hyprland): Delete variables.
trunk
Hilton Chain 3 weeks ago
parent 38e2be2728
commit 7d9214d18e
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 252 additions and 189 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 439
      rosenthal/packages/wm.scm

439
rosenthal/packages/wm.scm
Unescape View File

@ -3,19 +3,22 @@
;; SPDX-License-Identifier: GPL-3.0-or-later ;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal packages wm) (define-module (rosenthal packages wm)
#:use-module (srfi srfi-26)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system meson)
#:use-module (guix build-system qt)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system meson)
#:use-module (guix build-system qt)
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
#:use-module (gnu packages cmake)
#:use-module (gnu packages commencement)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages cpp) #:use-module (gnu packages cpp)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
@ -36,49 +39,22 @@
#:use-module (gnu packages wm) #:use-module (gnu packages wm)
#:use-module (gnu packages xdisorg) #:use-module (gnu packages xdisorg)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (rosenthal packages freedesktop)) #:use-module (gnu packages xorg))
(define cairo-for-hyprland
(package
(inherit cairo)
(name "cairo")
(version "1.18.0")
(source (origin
(method url-fetch)
(uri (string-append "https://cairographics.org/releases/cairo-"
version ".tar.xz"))
(sha256
(base32
"0r0by563s75xyzz0d0j1nmjqmdrk2x9agk7r57p3v8vqp4v0ffi4"))))
(build-system meson-build-system)
(arguments
(list #:tests? #f
#:glib-or-gtk? #t
#:configure-flags
#~(list "-Dspectre=disabled")))
(outputs '("out"))))
(define hwdata-for-hyprland (define libinput-minimal-for-hyprland
(package (package
(inherit hwdata) (inherit libinput-minimal)
(arguments (name "libinput-minimal")
(substitute-keyword-arguments (package-arguments hwdata) (version "1.26.0")
((#:phases _) #~%standard-phases)))
(outputs '("out"))))
(define libdrm-for-hyprland
(package
(inherit libdrm)
(name "libdrm")
(version "2.4.120")
(source (origin (source (origin
(method url-fetch) (method git-fetch)
(uri (string-append (uri (git-reference
"https://dri.freedesktop.org/libdrm/libdrm-" (url "https://gitlab.freedesktop.org/libinput/libinput.git")
version ".tar.xz")) (commit version)))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0yijzgg6rdsa68bz03sw0lcfa2nclv9m3as1cja50wkcyxim7x9v")))))) "010bqvic471prhja1j5xqni9dhqc36ikqpxi8ih0fs13wph70p4s"))))))
(define udis86-for-hyprland (define udis86-for-hyprland
(let ((revision "186") (let ((revision "186")
@ -105,59 +81,124 @@ set architectures. It consists of a C library called @code{libudis86} and a
command line tool called @code{udcli} that incorporates the library.") command line tool called @code{udcli} that incorporates the library.")
(license license:bsd-2)))) (license license:bsd-2))))
(define wayland-protocols-for-hyprland (define wayland-for-hyprland
(package (package
(inherit wayland-protocols) (inherit wayland)
(name "wayland-protocols") (name "wayland")
(version "1.36") (version "1.23.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append "https://gitlab.freedesktop.org/" name
"https://gitlab.freedesktop.org/wayland/wayland-protocols" "/" name "/-/releases/" version "/downloads/"
"/-/releases/" version "/downloads/" name "-" version ".tar.xz"))
"wayland-protocols-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"14kyxywpfkgpjpkrybs28q1s2prnz30k1b4zap5a3ybrbvh4vzbi")))))) "1vg5h6d94hglh7724q6wx9dpg4y0afvxksankp1hwbcy76lb4kw6"))))))
(define-public aquamarine
(package
(name "aquamarine")
(version "0.4.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hyprwm/aquamarine")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0x1zz1ywchs0awkjkvdgskgqnp6pz5lqwmgr8g0zc0i7inhyg1p3"))))
(build-system cmake-build-system)
(arguments
(list #:cmake cmake-3.30
;; TODO
#:tests? #f))
(native-inputs
(list gcc-13 hyprwayland-scanner pkg-config))
(inputs
(list eudev
hwdata
hyprutils
libdisplay-info
libglvnd
libinput-minimal-for-hyprland
libseat
mesa
pixman
wayland
wayland-protocols-next))
(home-page "https://hyprland.org/")
(synopsis "Linux rendering backend library")
(description
"Aquamarine is a C++-only Linux rendering backend library. It provides
basic abstractions for an application to render on a Wayland session (in a
window) or a native DRM session. It is agnostic of the rendering
API (Vulkan / OpenGL).")
(license license:bsd-3)))
(define wlroots-for-hyprland (define-public grimblast
(let ((base wlroots) (let ((version "0.1")
(revision "1") (revision "1")
(commit "5c1d51c5a2793480f5b6c4341ad0797052aec2ea")) (commit "9d67858b437d4a1299be496d371b66fc0d3e01f6"))
(package (package
(inherit base) (name "grimblast")
(name "wlroots") (version (git-version version revision commit))
(version (git-version "0.18.0-dev-hyprland" revision commit))
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/hyprwm/wlroots-hyprland") (url "https://github.com/hyprwm/contrib")
(commit commit))) (commit commit)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0gy0g0kxb3q1wjqrypnvmrxcb4ld3advikchygpwpfp4s9v0mmvd")))) "1v0v5j7ingx80b5zpyz8ilfhz0kh9dcssnx6iwwl45zzgp915cpv"))))
(build-system gnu-build-system)
(arguments (arguments
(substitute-keyword-arguments (package-arguments wlroots) (list #:tests? #f ;No tests.
((#:phases phases #~%standard-phases) #:make-flags
#~(modify-phases #$phases #~(list (string-append "PREFIX=" #$output))
(add-after 'unpack 'adjust-patching-script #:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'chdir
(lambda _ (lambda _
(substitute* "patches/apply.sh" (chdir "grimblast")))
(("apply \\|\\| check_applied \\|\\| fail") (add-after 'chdir 'fix-paths
"patch -Np1 < $PATCH")))))))) (lambda* (#:key inputs #:allow-other-keys)
(propagated-inputs (substitute* "grimblast"
(modify-inputs (package-propagated-inputs wlroots) (((string-append "\\<(" (string-join
(prepend libdrm-for-hyprland) '("date"
(replace "wayland-protocols" wayland-protocols-for-hyprland))) "grim"
(native-inputs "slurp"
(modify-inputs (package-native-inputs base) "hyprctl"
(replace "hwdata" `(,hwdata-for-hyprland "out"))))))) "hyprpicker"
"wl-copy"
"jq"
"notify-send")
"|")
")\\>")
cmd)
(search-input-file
inputs (string-append "bin/" cmd)))))))))
(native-inputs (list scdoc))
(inputs
(list coreutils-minimal
grim
jq
libnotify
slurp
hyprland
hyprpicker
wl-clipboard))
(home-page "https://github.com/hyprwm/contrib")
(synopsis "Hyprland version of Grimshot")
(description "A Hyprland version of Grimshot.")
(license license:expat))))
(define-public hyprcursor (define-public hyprcursor
(package (package
(name "hyprcursor") (name "hyprcursor")
(version "0.1.7") (version "0.1.9")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -166,54 +207,21 @@ command line tool called @code{udcli} that incorporates the library.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0s5x3nk2f48xl2z797f8s5jddmhpkg0ndw0jl7mirv9l23xmajag")))) "0z3ar580n630145nq80qw0p8v0kai6knvhi6nr9z0y1jrb07b0ql"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (list #:tests? #f)) ;TODO: No themes packaged. (arguments (list #:tests? #f)) ;TODO: No themes currently packaged.
(inputs (list cairo-for-hyprland hyprlang librsvg libzip tomlplusplus))
(native-inputs (list gcc-13 pkg-config)) (native-inputs (list gcc-13 pkg-config))
(inputs (list cairo hyprlang (librsvg-for-system) libzip tomlplusplus))
(home-page "https://hyprland.org/") (home-page "https://hyprland.org/")
(synopsis "Hyprland cursor format, library and utilities") (synopsis "Hyprland cursor format, library and utilities")
(description (description
"This package provides Hyprland cursor format, library and utilities.") "This package provides Hyprland cursor format, library and utilities.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public hyprland-protocols
(package
(name "hyprland-protocols")
(version "0.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hyprwm/hyprland-protocols")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1drjznj7fn6m5m6skhzh0p031cb5x0bb4i56jxnxwpwaa71g1z20"))))
(build-system meson-build-system)
(home-page "https://hyprland.org")
(synopsis "Wayland protocol extensions for Hyprland")
(description
"This package provides Wayland protocol extensions for Hyprland and it
exists in an effort to bridge the gap between Hyprland and KDE/Gnome's
functionality. Since @code{wlr-protocols} is closed for new submissions, and
@code{wayland-protocols} is very slow with changes, this package will hold
protocols used by Hyprland to bridge the aforementioned gap.")
(license license:bsd-3)))
(define hyprland-unbundle-wlroots-patch
(origin
(method url-fetch)
(uri (string-append "https://github.com/hyprwm/Hyprland" "/raw/"
"cba1ade848feac44b2eda677503900639581c3f4"
"/nix/patches/meson-build.patch"))
(sha256
(base32 "0fwvsshz3k6061p3hdl175pydmj80vnw5rm4xfcn64w1ssfq7liw"))))
(define-public hyprland (define-public hyprland
(package (package
(name "hyprland") (name "hyprland")
(version "0.40.0") (version "0.44.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/hyprwm/Hyprland" (uri (string-append "https://github.com/hyprwm/Hyprland"
@ -223,61 +231,90 @@ protocols used by Hyprland to bridge the aforementioned gap.")
(snippet (snippet
'(begin '(begin
;; Remove bundled sources and hyprpm utility. ;; Remove bundled sources and hyprpm utility.
(substitute* "meson.build" (substitute* "CMakeLists.txt"
((".*hyprpm/src.*") "")) (("^add_subdirectory\\(hyprpm\\).*") ""))
(for-each delete-file-recursively (for-each delete-file-recursively
'("hyprpm" '("hyprpm"
"subprojects")))) "subprojects"))))
(patches (list hyprland-unbundle-wlroots-patch))
(sha256 (sha256
(base32 (base32
"0f4hs8qzmfmg4lr491b2inanb02xn4xa0gwb8a0ks3m64iwzx589")))) "0qzwdlj0bwj267285l3gjklhafn3bln90z985yws4j5cbp7bj0d9"))))
(build-system meson-build-system) (build-system cmake-build-system)
(arguments (arguments
(list #:build-type "release" (list #:cmake cmake-3.30
#:tests? #f ;No tests.
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-path (add-after 'unpack 'fix-path
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/xwayland/Server.cpp"
(("Xwayland( \\{\\})" _ suffix)
(string-append
(search-input-file inputs "bin/Xwayland")
suffix)))
(substitute* (find-files "src" "\\.cpp$") (substitute* (find-files "src" "\\.cpp$")
(("/usr/local(/bin/Hyprland)" _ path) (("/usr/local(/bin/Hyprland)" _ path)
(string-append #$output path)) (string-append #$output path))
(("/usr") #$output) (("/usr") #$output)
(("(execAndGet\\(\")\\<(cat|fc-list|lspci)\\>" (("\\<(addr2line|cat|lspci|nm)\\>" cmd)
_ pre cmd) (search-input-file
(string-append inputs (string-append "bin/" cmd)))))))))
pre (search-input-file (native-inputs (list gcc-14 hyprwayland-scanner ld-wrapper pkg-config))
inputs (string-append "bin/" cmd))))
(("\\<cc\\>") (search-input-file inputs "bin/gcc"))
;; NOTE: Add binutils to inputs will override ld-wrapper.
(("(execAndGet\\(\\(\")\\<nm\\>" _ pre)
(string-append pre #$binutils "/bin/nm"))
(("\\<(addr2line|objcopy)\\>" _ cmd)
(string-append #$binutils "/bin/" cmd))))))))
(native-inputs (list gcc-13 hyprwayland-scanner jq pkg-config))
(inputs (inputs
(list cairo-for-hyprland (list aquamarine
gcc-13 binutils
cairo
hyprcursor hyprcursor
hyprland-protocols hyprland-protocols
hyprlang hyprlang
hyprutils
libinput-minimal-for-hyprland
libxcursor
libxkbcommon
mesa
pango pango
pciutils pciutils
udis86-for-hyprland udis86-for-hyprland
wlroots-for-hyprland)) wayland-for-hyprland
wayland-protocols-next
xcb-util-errors
xcb-util-wm
xorg-server-xwayland))
(home-page "https://hyprland.org/")
(synopsis "Dynamic tiling Wayland compositor")
(description
"Hyprland is a dynamic tiling Wayland compositor that doesn't sacrifice on
its looks.")
(license license:bsd-3)))
(define-public hyprland-protocols
(package
(name "hyprland-protocols")
(version "0.4.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hyprwm/hyprland-protocols")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0x86w7z3415qvixfhk9a8v5fnbnxdydzx366qz0mpmfg5h86qyha"))))
(build-system meson-build-system)
(home-page "https://hyprland.org") (home-page "https://hyprland.org")
(synopsis "Dynamic tiling Wayland compositor based on wlroots") (synopsis "Wayland protocol extensions for Hyprland")
(description (description
"Hyprland is a dynamic tiling Wayland compositor based on @code{wlroots} "This package provides Wayland protocol extensions for Hyprland and it
that doesn't sacrifice on its looks. It supports multiple layouts, fancy exists in an effort to bridge the gap between Hyprland and KDE/Gnome's
effects, has a very flexible IPC model allowing for a lot of customization, and functionality. Since @code{wlr-protocols} is closed for new submissions, and
more.") @code{wayland-protocols} is very slow with changes, this package will hold
protocols used by Hyprland to bridge the aforementioned gap.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public hyprlang (define-public hyprlang
(package (package
(name "hyprlang") (name "hyprlang")
(version "0.5.0") (version "0.5.3")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -286,9 +323,10 @@ more.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0f8mahg6d6wylybvh6hgayls57miwwv4w69fbaskd8d7dkg2h7kd")))) "0yvfrz3hdyxzhngzhr0bgc5279ra5fv01hbfi6pdj84pz0lpaw02"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(native-inputs (list gcc-13)) (native-inputs (list gcc-13 pkg-config))
(inputs (list hyprutils))
(home-page "https://hyprland.org/hyprlang/") (home-page "https://hyprland.org/hyprlang/")
(synopsis "Official implementation library for hypr config language") (synopsis "Official implementation library for hypr config language")
(description (description
@ -296,75 +334,97 @@ more.")
language used in @code{hyprland}.") language used in @code{hyprland}.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public hyprwayland-scanner (define-public hyprpicker
(package (package
(name "hyprwayland-scanner") (name "hyprpicker")
(version "0.3.4") (version "0.4.1")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/hyprwm/hyprwayland-scanner") (url "https://github.com/hyprwm/hyprpicker")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0mi0kawfw311ybiy4xipy1n20nvjphkfqzgnd8jxxbkhjkwn0jhg")))) "11r06c62dqj81r27qhf36f3smnjyk3vz8naa655m8khv4qqvmvc2"))))
(build-system cmake-build-system)
(arguments
(list #:tests? #f ;No tests.
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/clipboard/Clipboard.cpp"
(("wl-copy" cmd)
(search-input-file
inputs (string-append "bin/" cmd)))))))))
(native-inputs (list gcc-13 hyprwayland-scanner pkg-config))
(inputs
(list cairo
hyprutils
libjpeg-turbo
libxkbcommon
pango
wayland
wayland-protocols-next
wl-clipboard))
(home-page "https://hyprland.org/")
(synopsis "@code{wlroots}-compatible Wayland color picker")
(description
"This package provides a @code{wlroots}-compatible Wayland color picker.")
(license license:bsd-3)))
(define-public hyprutils
(package
(name "hyprutils")
(version "0.2.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hyprwm/hyprutils")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"01dh24rf62gb6xm32f7mfv6wx0dxprr1q9y73hvv7xanrjyia2zn"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (list #:tests? #f)) ;No tests.
(inputs (list pugixml))
(native-inputs (list gcc-13 pkg-config)) (native-inputs (list gcc-13 pkg-config))
(home-page "https://github.com/hyprwm/hyprwayland-scanner") (inputs (list pixman))
(synopsis "Hyprland implementation of wayland-scanner, in and for C++") (home-page "https://hyprland.org/")
(synopsis "C++ library for utilities used across Hyprland ecosystem")
(description (description
"This package provides a Hyprland implementation of wayland-scanner, in and "This package provides a C++ library for utilities used across Hyprland
for C++.") ecosystem.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public grimblast (define-public hyprwayland-scanner
(package (package
(name "grimblast") (name "hyprwayland-scanner")
(version "0.1") (version "0.4.2")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/hyprwm/contrib") (url "https://github.com/hyprwm/hyprwayland-scanner")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0ld0sj7ahf9jf8cqzbqkhj3m2w60027ixic24ih26nwy90b5qjwx")))) "0r7ay4zjkfyr0xd73wz99qhnqjq7nma98gm51wm9lmai4igw90qw"))))
(build-system gnu-build-system) (build-system cmake-build-system)
(arguments (arguments (list #:tests? #f)) ;No tests.
(list #:tests? #f ;no tests (inputs (list pugixml))
#:make-flags (native-inputs (list gcc-13 pkg-config))
#~(list (string-append "PREFIX=" #$output)) (home-page "https://github.com/hyprwm/hyprwayland-scanner")
#:phases (synopsis "Hyprland implementation of wayland-scanner, in and for C++")
#~(modify-phases %standard-phases (description
(delete 'configure) "This package provides a Hyprland implementation of wayland-scanner, in and
(add-after 'unpack 'chdir for C++.")
(lambda _ (license license:bsd-3)))
(chdir "grimblast")))
(add-after 'install 'wrap
(lambda* (#:key inputs #:allow-other-keys)
(let ((grimblast (string-append #$output "/bin/grimblast")))
(wrap-script grimblast
`("PATH" suffix
,(map (lambda (program)
(dirname (search-input-file
inputs (string-append "/bin/" program))))
'("grim" "slurp" "hyprctl" "wl-copy" "jq"
"notify-send" "date"))))))))))
(native-inputs (list scdoc))
(inputs (list grim guile-3.0 jq libnotify slurp hyprland wl-clipboard))
(home-page "https://github.com/hyprwm/contrib")
(synopsis "Hyprland version of Grimshot")
(description "A Hyprland version of Grimshot.")
(license license:expat)))
(define-public xdg-desktop-portal-hyprland (define-public xdg-desktop-portal-hyprland
(package (package
(name "xdg-desktop-portal-hyprland") (name "xdg-desktop-portal-hyprland")
(version "1.3.1") (version "1.3.6")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -373,7 +433,7 @@ for C++.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0fdbzxanmmzrvb9wfzg1pdsnlg7dl6v5k8bl44w10n48s7bbbzn0")))) "17ba9jkccyp8gv79ds70khgm5wm6x8zs5m9nkilq4n2j7fsa8cfl"))))
(build-system qt-build-system) (build-system qt-build-system)
(arguments (arguments
(list #:tests? #f ;No tests (list #:tests? #f ;No tests
@ -385,22 +445,25 @@ for C++.")
(substitute* (find-files "." "\\.cp?*$") (substitute* (find-files "." "\\.cp?*$")
(("/bin/sh") "sh") (("/bin/sh") "sh")
(("\\<(sh|grim|hyprctl|slurp)\\>" _ cmd) (("\\<(sh|grim|hyprctl|slurp)\\>" _ cmd)
(search-input-file inputs (string-append "/bin/" cmd))) (search-input-file inputs (string-append "bin/" cmd))))
(substitute* "src/shared/ScreencopyShared.cpp"
(("\\<(hyprland-share-picker)\\>" _ cmd) (("\\<(hyprland-share-picker)\\>" _ cmd)
(string-append #$output "/bin/" cmd)))))))) (string-append #$output "/bin/" cmd))))))))
(native-inputs (native-inputs
(list gcc-13 pkg-config wayland)) (list gcc-13 hyprwayland-scanner pkg-config))
(inputs (inputs
(list bash-minimal (list bash-minimal
grim grim
hyprland hyprland
hyprland-protocols hyprland-protocols
hyprlang hyprlang
hyprutils
mesa mesa
pipewire pipewire
qtwayland qtwayland
sdbus-c++ sdbus-c++
slurp slurp
wayland
wayland-protocols)) wayland-protocols))
(home-page "https://github.com/hyprwm/xdg-desktop-portal-hyprland") (home-page "https://github.com/hyprwm/xdg-desktop-portal-hyprland")
(synopsis "XDG Desktop Portal backend for Hyprland") (synopsis "XDG Desktop Portal backend for Hyprland")

Write Preview
Loading…
Cancel
Save