success... i think

This commit is contained in:
Ryan Schanzenbacher 2023-08-08 00:03:07 -04:00
parent 87ee4aca66
commit ccc107481f
Signed by: ryan77627
GPG key ID: 81B0E222A3E2308E
2 changed files with 15 additions and 5 deletions

View file

@ -141,7 +141,7 @@
"wireplumber" "wireplumber"
"wireshark" "wireshark"
"zsh")) "zsh"))
(list my-ca-certs swaylock-effects-new waybar-new xdg-desktop-portal-hyprland hyprland-share-picker) (list my-ca-certs swaylock-effects-new waybar-new xdg-desktop-portal-hyprland)
%my-base-packages )) %my-base-packages ))
;; Below is the list of system services. To search for available ;; Below is the list of system services. To search for available

View file

@ -10,6 +10,7 @@
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages gl) #:use-module (gnu packages gl)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages image)
#:use-module (gnu packages qt) #:use-module (gnu packages qt)
#:use-module (gnu packages cmake) #:use-module (gnu packages cmake)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
@ -71,7 +72,7 @@
#:inputs inputs #:inputs inputs
#:outputs outputs #:outputs outputs
#:configure-flags '() #:configure-flags '()
#:qtbase #$(this-package-native-input "qtbase")))) #:qtbase #$(this-package-native-input "qtbase-5"))))
(add-after 'qt-build 'qt-install (add-after 'qt-build 'qt-install
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((share-picker (string-append (assoc-ref outputs "out") (let ((share-picker (string-append (assoc-ref outputs "out")
@ -79,9 +80,18 @@
(install-file "build/hyprland-share-picker" share-picker) (install-file "build/hyprland-share-picker" share-picker)
#t))) #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)) (add-after 'qt-wrap 'dep-wrap
(inputs (list elogind hyprland hyprland-protocols pipewire wayland-protocols wayland libinih mesa qtwayland `(,util-linux "lib"))) (lambda* (#:key inputs #:allow-other-keys)
(let ((hyprland-share-picker (string-append #$output "/bin/hyprland-share-picker")))
(wrap-program hyprland-share-picker
`("PATH" suffix
,(map (lambda (program)
(dirname (search-input-file
inputs (string-append "/bin/" program))))
'("slurp"))))))))))
(native-inputs (list cmake pkg-config qtbase-5))
(inputs (list elogind hyprland hyprland-protocols slurp pipewire wayland-protocols wayland libinih mesa qtwayland-5 `(,util-linux "lib")))
(home-page "") (home-page "")
(synopsis "test") (synopsis "test")
(description "test") (description "test")