ryan77627/guix-dotfiles
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix-config.git synced 2025-02-28 15:39:47 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

working build! Just need to wrap deps

Browse source
This commit is contained in:
Ryan 2023-08-07 23:38:44 -04:00
parent 193d559a19
commit b5d987e6dc
Signed by: ryan77627
GPG key ID: 81B0E222A3E2308E
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
modules/ryan-packages/freedesktop.scm
View file

@ -36,7 +36,7 @@
(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 "0.4.0") (version "0.5.0")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -45,7 +45,7 @@
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1dcglmx02j73qbmw9qsacamn8byakyzwknpqjnhsyphixb4crrdg")))) "1dmgc0w4wjj9hwqg17wg529v8sbxr6czp9s319d5407jm780x40b"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
(list (list
@ -65,17 +65,19 @@
(lambda _ (chdir "../source/hyprland-share-picker/"))) (lambda _ (chdir "../source/hyprland-share-picker/")))
(add-after 'chdir 'check-setup (add-after 'chdir 'check-setup
(assoc-ref qt:%standard-phases 'check-setup)) (assoc-ref qt:%standard-phases 'check-setup))
(add-after 'check-setup 'qt-build-new (add-after 'check-setup 'qt-build
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
((assoc-ref qt:%standard-phases 'build) ((assoc-ref qt:%standard-phases 'build)
#:inputs inputs #:inputs inputs
#:outputs outputs #:outputs outputs
#:configure-flags '() #:configure-flags '()
;#:qtbase (let ((module (resolve-interface '(gnu packages qt))))(module-ref module 'qtbase))))) <--- This results in no code for module (gnu packages qt)
#:qtbase #$(this-package-native-input "qtbase")))) #:qtbase #$(this-package-native-input "qtbase"))))
;)))
(add-after 'qt-build 'qt-install (add-after 'qt-build 'qt-install
(assoc-ref qt:%standard-phases 'install)) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((share-picker (string-append (assoc-ref outputs "out")
"/bin")))
(install-file "build/hyprland-share-picker" share-picker)
#t)))
(add-after 'qt-install 'qt-wrap (add-after 'qt-install 'qt-wrap
(assoc-ref qt:%standard-phases 'qt-wrap))))) (assoc-ref qt:%standard-phases 'qt-wrap)))))
(native-inputs (list cmake pkg-config qtbase)) (native-inputs (list cmake pkg-config qtbase))