145 lines
5.2 KiB
Scheme
145 lines
5.2 KiB
Scheme
(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 image)
|
|
#: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 (ryan-packages gl)
|
|
#: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.3")
|
|
(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 "04xd61ycn1nisq1s5ch14zkbsjcfcy6n29nkjn68s2ribmws0iid"))))
|
|
(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
|
|
(let ((commit "dba9d8b5175a6f23463035aafc6b0c741f9b73a5")
|
|
(revision "1"))
|
|
(package
|
|
(name "hyprlock")
|
|
(version (git-version "0.4.1" revision commit))
|
|
(source
|
|
(origin
|
|
(method git-fetch)
|
|
(uri (git-reference
|
|
(url "https://github.com/hyprwm/hyprlock")
|
|
(commit commit)))
|
|
(file-name (git-file-name name version))
|
|
(sha256
|
|
(base32 "1zzv7w7hn8k71w75a9mz548cbl4f8zcsd8i92abgnrx5x9i35q63"))))
|
|
(build-system cmake-build-system)
|
|
(arguments
|
|
(list
|
|
#:tests? #f
|
|
#:phases
|
|
#~(modify-phases %standard-phases
|
|
(add-after 'install 'wrap-program
|
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
(let ((out (assoc-ref outputs "out"))
|
|
(mesa (assoc-ref inputs "mesa")))
|
|
(wrap-program (string-append out "/bin/hyprlock")
|
|
`("__EGL_VENDOR_LIBRARY_DIRS" prefix ,(list (string-append mesa "/share/glvnd/egl_vendor.d"))))))))))
|
|
(native-inputs
|
|
(list gcc-13
|
|
pkg-config
|
|
mesa-headers
|
|
wayland))
|
|
(inputs
|
|
(list cairo
|
|
pango
|
|
libxkbcommon
|
|
hyprlang
|
|
mesa-libglvnd
|
|
libdrm
|
|
libglvnd
|
|
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."))))
|
|
|