modules/ryan-packages/wm.scm
2d87a289ea492b2df68031a50480dde1c8a19e53
· 3.8 KB · 90 lines
raw
| 1 | (define-module (ryan-packages wm) |
| 2 | #:use-module ((guix licenses) #:prefix license:) |
| 3 | #:use-module (guix download) |
| 4 | #:use-module (guix packages) |
| 5 | #:use-module (guix gexp) |
| 6 | #:use-module (gnu packages) |
| 7 | #:use-module (guix build-system cmake) |
| 8 | #:use-module (gnu packages python) |
| 9 | #:use-module (gnu packages audio) |
| 10 | #:use-module (gnu packages glib) |
| 11 | #:use-module (gnu packages freedesktop) |
| 12 | #:use-module (gnu packages pkg-config) |
| 13 | #:use-module (gnu packages gtk) |
| 14 | #:use-module (gnu packages llvm) |
| 15 | #:use-module (gnu packages gcc) |
| 16 | #:use-module (gnu packages check) |
| 17 | #:use-module (guix git-download) |
| 18 | #:use-module (guix utils) |
| 19 | #:use-module (rosenthal packages wm) |
| 20 | #:use-module (ryan-packages gtk) |
| 21 | #:use-module (gnu packages wm)) |
| 22 | |
| 23 | (define-public swaylock-effects-new |
| 24 | (package |
| 25 | (inherit swaylock-effects) |
| 26 | (version "1.7.0.0") |
| 27 | (source (origin |
| 28 | (method git-fetch) |
| 29 | (uri (git-reference |
| 30 | (url "https://github.com/jirutka/swaylock-effects") |
| 31 | (commit (string-append "v" version)))) |
| 32 | (sha256 |
| 33 | (base32 |
| 34 | "0cgpbzdpxj6bbpa8jwql1snghj21mhryyvj6sk46g66lqvwlrqbj")))) |
| 35 | (inputs (modify-inputs (package-inputs swaylock-effects) (delete "linux-pam"))))) |
| 36 | |
| 37 | (define-public waybar-new |
| 38 | (package |
| 39 | (inherit waybar) |
| 40 | (name "waybar-new") |
| 41 | (version "0.9.22") |
| 42 | (source |
| 43 | (origin |
| 44 | (method git-fetch) |
| 45 | (uri (git-reference |
| 46 | (url "https://github.com/Alexays/Waybar") |
| 47 | (commit version))) |
| 48 | (file-name (git-file-name name version)) |
| 49 | (sha256 |
| 50 | (base32 "0flwxg9rd7a2ygjvyksxxhxyyhp760jzd5ngkx65y77bxh1l7cpl")))) |
| 51 | (arguments |
| 52 | (list |
| 53 | #:configure-flags #~(list "--wrap-mode=nodownload" "-Dexperimental=true"))) |
| 54 | (inputs (modify-inputs (package-inputs waybar) (delete "gtkmm") (prepend gtkmm-ryan))))) ;(prepend python cava catch2 gtkmm))))) |
| 55 | ;(native-inputs (modify-inputs (package-native-inputs waybar) (prepend gcc-13))))) |
| 56 | |
| 57 | (define hyprland-unbundle-wlroots-patch |
| 58 | (origin |
| 59 | (method url-fetch) |
| 60 | (uri (string-append "https://github.com/hyprwm/Hyprland" "/raw/" |
| 61 | "13f6f0b923ff3ec94a3bec886c28b90402ceef91" |
| 62 | "/nix/patches/meson-build.patch")) |
| 63 | (sha256 |
| 64 | (base32 "02sq5ymxxrxp93mccafc4ilpsvs4m8bxc3whp7bcc5v9dx41va8k")))) |
| 65 | |
| 66 | (define-public hyprland-temp |
| 67 | (package |
| 68 | (inherit hyprland) |
| 69 | (version "12985fa0d8e43b1e33326dfb49be681970dfaea5") |
| 70 | (source (origin |
| 71 | (method git-fetch) |
| 72 | (uri (git-reference |
| 73 | (url "https://github.com/hyprwm/Hyprland") |
| 74 | (commit version))) |
| 75 | (file-name (git-file-name "hyprland" version)) |
| 76 | (modules '((guix build utils))) |
| 77 | (snippet |
| 78 | '(begin |
| 79 | (substitute* "meson.build" |
| 80 | ((".*hyprpm/src.*") "")) |
| 81 | (for-each delete-file-recursively |
| 82 | '("hyprpm" |
| 83 | "subprojects")) |
| 84 | (copy-file "src/version.h.in" "src/version.h"))) |
| 85 | (sha256 |
| 86 | (base32 |
| 87 | "13l95h5krmv7syidw9c4gn62ac5qcqg9pmfh6x8ydjws97h05jvz")) |
| 88 | (patches (list hyprland-unbundle-wlroots-patch)))))) |
| 89 | |
| 90 | hyprland-temp |