guix package definition example

 1(define-public xdg-desktop-portal-hyprland
 2  (package
 3    (name "xdg-desktop-portal-hyprland")
 4    (version "0.4.0")
 5    (source (origin
 6              (method git-fetch)
 7              (uri (git-reference
 8                     (url "https://github.com/hyprwm/xdg-desktop-portal-hyprland")
 9                     (commit (string-append "v" version))))
10              (file-name (git-file-name name version))
11              (sha256
12                (base32
13                  "1dcglmx02j73qbmw9qsacamn8byakyzwknpqjnhsyphixb4crrdg"))))
14    (build-system meson-build-system)
15    (arguments
16      (list
17        #:modules
18        '((guix build utils)
19          (guix build meson-build-system)
20          ((guix build qt-build-system) #:prefix qt:))
21        #:imported-modules
22        (append %meson-build-system-modules
23                %qt-build-system-modules)
24        #:tests? #f
25        #:configure-flags #~(list "-Dsystemd=disabled")
26        #:phases
27        ;; After building the portal, we need to build the share selector using qt
28        #~(modify-phases %standard-phases
29            (add-after 'install 'chdir
30              (lambda _ (chdir "../source/hyprland-share-picker/")))
31            (add-after 'chdir 'check-setup
32              (assoc-ref qt:%standard-phases 'check-setup))
33            (add-after 'check-setup 'qt-build-new
34              (lambda* (#:key inputs outputs #:allow-other-keys)
35                ((assoc-ref qt:%standard-phases 'build)
36                 #:inputs inputs
37                 #:outputs outputs
38                 #:configure-flags '()
39                 ;#:qtbase (let ((module (resolve-interface '(gnu packages qt))))(module-ref module 'qtbase))))) <--- This results in no code for module (gnu packages qt)
40                 ;#:qtbase qtbase <--- This is undefined
41                 )))
42            (add-after 'qt-build 'qt-install
43             (assoc-ref qt:%standard-phases 'install))
44            (add-after 'qt-install 'qt-wrap
45              (assoc-ref qt:%standard-phases 'qt-wrap)))))
46    (native-inputs (list cmake pkg-config))
47    (inputs (list elogind hyprland hyprland-protocols pipewire wayland-protocols wayland libinih mesa qtwayland `(,util-linux "lib")))
48    (home-page "")
49    (synopsis "test")
50    (description "test")
51    (license license:bsd-3)))