(define-module (ryan-packages wm) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix download) #:use-module (guix packages) #:use-module (guix gexp) #:use-module (gnu packages) #:use-module (guix build-system cmake) #:use-module (guix build-system meson) #:use-module (gnu packages python) #:use-module (gnu packages audio) #:use-module (gnu packages glib) #:use-module (gnu packages freedesktop) #:use-module (gnu packages pkg-config) #:use-module (gnu packages gtk) #:use-module (gnu packages xdisorg) #:use-module (gnu packages xorg) #:use-module (gnu packages linux) #:use-module (gnu packages gl) #:use-module (gnu packages llvm) #:use-module (gnu packages gcc) #:use-module (gnu packages check) #:use-module (guix git-download) #:use-module (guix utils) #:use-module (rosenthal packages wm) #:use-module (ryan-packages gtk) #:use-module (gnu packages wm)) (define-public swaylock-effects-new (package (inherit swaylock-effects) (version "1.7.0.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/jirutka/swaylock-effects") (commit (string-append "v" version)))) (sha256 (base32 "0cgpbzdpxj6bbpa8jwql1snghj21mhryyvj6sk46g66lqvwlrqbj")))) (inputs (modify-inputs (package-inputs swaylock-effects) (delete "linux-pam"))))) (define-public swayidle-new (package (inherit swayidle) (version "1.8.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/swaywm/swayidle") (commit version))) (file-name (git-file-name "swayidle" version)) (sha256 (base32 "0y0qdqzx90kvk6l80darldvizr7p5g65bnblhxlq5a2rgvs9hkpx")))))) (define-public waybar-new (package (inherit waybar) (name "waybar-new") (version "0.10.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/Alexays/Waybar") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0h8anmzhbimgdjnbg79al32d5acbfyrh3sf8wcsbx1296qpd6af6")))) (arguments (list #:configure-flags #~(list "--wrap-mode=nodownload" "-Dexperimental=true"))))) ;(inputs (modify-inputs (package-inputs waybar) (delete "gtkmm") (prepend gtkmm-ryan))))) ;(prepend python cava catch2 gtkmm))))) ;(native-inputs (modify-inputs (package-native-inputs waybar) (prepend gcc-13))))) (define cairo-hypr ;;; stolen from rosenthal since it is not exported (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-public hyprlock (package (name "hyprlock") (version "0.2.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/hyprlock") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0vj8jfflc8zw769dqdqq7ms3dfafsirb2c0g37xsqkc4rzzri7nn")))) (build-system cmake-build-system) (native-inputs (list gcc-13 pkg-config mesa-headers wayland)) (inputs (list cairo pango libxkbcommon hyprlang mesa wayland-protocols linux-pam)) (home-page "https://github.com/hyprwm/hyprlock") (license license:bsd-3) (synopsis "Screen locker for Hyprland") (description "Screen locker for hyprland."))) waybar-new