ryan77627/guix-dotfiles
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix-config.git synced 2024-11-07 07:36:09 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

success... i think

Browse source
This commit is contained in:
Ryan 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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
modules/ryan-config/base-system.scm
View file

@ -141,7 +141,7 @@
"wireplumber"
"wireshark"
"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 ))
;; Below is the list of system services. To search for available

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

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