(define-module (freya packages wm) #:use-module ((guix licenses) #:prefix license:) #:use-module (gnu packages) #:use-module (gnu packages wm) #:use-module (gnu packages freedesktop) #:use-module (gnu packages cpp) #:use-module (gnu packages gcc) #:use-module (gnu packages build-tools) #:use-module (gnu packages pkg-config) #:use-module (gnu packages xdisorg) #:use-module (gnu packages gtk) #:use-module (gnu packages gl) #:use-module (gnu packages linux) #:use-module (gnu packages gnome) #:use-module (gnu packages compression) #:use-module (gnu packages pciutils) #:use-module (gnu packages image) #:use-module (gnu packages glib) #:use-module (gnu packages xml) #:use-module (gnu packages web) #:use-module (gnu packages version-control) #:use-module (gnu packages python) #:use-module (gnu packages autotools) #:use-module (gnu packages xorg) #:use-module (gnu packages freedesktop) #:use-module (gnu packages base) #:use-module (gnu packages bash) #:use-module (gnu packages man) #:use-module (gnu packages qt) #:use-module (guix download) #:use-module (guix packages) #:use-module (guix gexp) #:use-module (guix git-download) #:use-module (guix build-system cmake) #:use-module (guix build-system meson) #:use-module (guix build-system trivial) #:use-module (guix build-system qt) #:use-module (guix build-system gnu) #:use-module (guix build utils) #:use-module (freya packages gl) #:use-module (freya packages admin) #:use-module (freya packages cmake) #:use-module (freya packages linux) #:use-module (freya packages freedesktop) #:use-module (freya packages assembly) #:use-module (guix utils)) (define-public swaylock-effects-new (package (inherit swaylock-effects) (name "swaylock-effects-new") (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")))))) (define-public waybar-new (package (inherit waybar) (name "waybar-new") (version "0.11.0") (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 "1bw6d3bf8rm4mgrbcprxxljfxbyabbj2lwabk2z19r8lhfz38myy")))) (arguments (list #:configure-flags #~(list "--wrap-mode=nodownload" "-Dexperimental=true"))))) (define-public libliftoff (package (name "libliftoff") (version "0.1.0") (source (origin (method url-fetch) (uri (string-append "https://github.com/emersion/libliftoff" "/archive/refs/tags/v" version ".tar.gz")) (sha256 (base32 "17ssbjbv8njgvfha8zsx4nixpi5xxl1rwvk0lcacgqk0nmjyb23s")))) (build-system meson-build-system) (native-inputs (list gcc-13 pkg-config cmake-minimal-3.30.0 libdrm)) (home-page "https://github.com/emersion/libliftoff") (synopsis "Lightweight KMS plane library") (description "") (license license:expat))) (define-public wayland-protocols-1.36 (package (inherit wayland-protocols) (name "wayland-protocols") (version "1.36") (source (origin (method url-fetch) (uri (string-append "https://gitlab.freedesktop.org/wayland/wayland-protocols" "/-/releases/" version "/downloads/" "wayland-protocols-" version ".tar.xz")) (sha256 (base32 "14kyxywpfkgpjpkrybs28q1s2prnz30k1b4zap5a3ybrbvh4vzbi")))))) (define-public hyprlang (package (name "hyprlang") (version "0.5.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/hyprlang") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0yvfrz3hdyxzhngzhr0bgc5279ra5fv01hbfi6pdj84pz0lpaw02")))) (build-system cmake-build-system) (native-inputs (list gcc-13 pkg-config)) (inputs (list hyprutils)) (home-page "https://hyprland.org/hyprlang/") (synopsis "Official implementation library for hypr config language") (description "This package provides the official implementation for hypr configuration language used in @code{hyprland}.") (license license:gpl3+))) (define-public hyprcursor (package (name "hyprcursor") (version "0.1.10") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/hyprcursor") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1rdn03ln7pqcwp8h4nmi7nc489q8y25dd3v4paq8ykvwzhvs3a1n")))) (build-system cmake-build-system) (arguments (list #:tests? #f)) (inputs (list cairo hyprlang librsvg libzip tomlplusplus)) (native-inputs (list gcc-13 pkg-config)) (home-page "https://hyprland.org/") (synopsis "Hyprland cursor format, library and utilities") (description "This package provides Hyprland cursor format, library and utilities.") (license license:bsd-3))) (define-public hyprland-protocols (package (name "hyprland-protocols") (version "0.4.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/hyprland-protocols") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0x86w7z3415qvixfhk9a8v5fnbnxdydzx366qz0mpmfg5h86qyha")))) (build-system meson-build-system) (home-page "https://hyprland.org") (synopsis "Wayland protocol extensions for Hyprland") (description "This package provides Wayland protocol extensions for Hyprland and it exists in an effort to bridge the gap between Hyprland and KDE/Gnome's functionality. Since @code{wlr-protocols} is closed for new submissions, and @code{wayland-protocols} is very slow with changes, this package will hold protocols used by Hyprland to bridge the aforementioned gap.") (license license:bsd-3))) (define-public hyprwayland-scanner (package (name "hyprwayland-scanner") (version "0.4.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/hyprwayland-scanner") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0r7ay4zjkfyr0xd73wz99qhnqjq7nma98gm51wm9lmai4igw90qw")))) (build-system cmake-build-system) (arguments (list #:tests? #f)) (inputs (list pugixml)) (native-inputs (list gcc-13 pkg-config)) (home-page "https://github.com/hyprwm/hyprwayland-scanner") (synopsis "hyprland implementation of wayland-scanner, in and for c++") (description "this package provides a hyprland implementation of wayland-scanner, in and for c++.") (license license:bsd-3))) (define-public hyprutils (package (name "hyprutils") (version "0.2.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/hyprutils") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "01dh24rf62gb6xm32f7mfv6wx0dxprr1q9y73hvv7xanrjyia2zn")))) (build-system cmake-build-system) (arguments (list #:tests? #f)) (native-inputs (list gcc-13 pkg-config)) (propagated-inputs (list pixman)) (home-page "https://github.com/hyprwm/hyprutils") (synopsis "Hyprland utilities library used across the ecosystem ") (description "this package provides hyprutils") (license license:bsd-3))) (define hwdata-for-hyprland (package (inherit hwdata) (arguments (substitute-keyword-arguments (package-arguments hwdata) ((#:phases _) #~%standard-phases))) (outputs '("out")))) (define-public aquamarine (package (name "aquamarine") (version "0.4.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/aquamarine") (commit (string-append "v" version)))) (patches (list (local-file "patches/aquamarine-fix-cmake.patch"))) (file-name (git-file-name name version)) (sha256 (base32 "0x1zz1ywchs0awkjkvdgskgqnp6pz5lqwmgr8g0zc0i7inhyg1p3")))) (build-system cmake-build-system) (arguments (list #:tests? #f)) (native-inputs (list gcc-13 pkg-config mesa-headers hyprwayland-scanner hwdata-for-hyprland)) (propagated-inputs (list mesa-libglvnd libglvnd libseat-0.8.0 libinput-minimal-1.26.1 libxkbcommon libdisplay-info libxcb libxinerama libxcursor xcb-util xcb-util-errors xcb-util-keysyms xcb-util-wm wayland-1.23.1 wayland-protocols-1.36)) (inputs (list hyprutils)) (home-page "https://hyprland.org") (synopsis "Aquamarine is a very light linux rendering backend library ") (description "") ;; TODO: this (license license:bsd-3))) (define xorg-server-xwayland-for-hyprland (package (inherit xorg-server-xwayland) (arguments (substitute-keyword-arguments (package-arguments xorg-server-xwayland) ((#:phases phases) #~(modify-phases #$phases (add-after 'install 'install-headers (lambda _ (let ((fmw (string-append #$output "/include"))) (mkdir-p fmw) (copy-recursively "include" fmw)) )) )))))) (define-public hyprland (package (name "hyprland") (version "0.44.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/Hyprland") (commit (string-append "v" version)))) (patches (list (local-file "patches/hyprland-fix-cmake.patch"))) (modules '((guix build utils))) (snippet '(begin (for-each delete-file-recursively '("hyprpm" "subprojects")))) (file-name (git-file-name name version)) (sha256 (base32 "11vw1h9al4jvqprwbrmxvcpxwhvsjj398wbz4flqbnmxa8idvdq1")))) (build-system cmake-build-system) (arguments (list #:tests? #f #:build-type "release" #:cmake cmake-minimal-3.30.0 #:phases #~(modify-phases %standard-phases (add-after 'unpack 'fix-path (lambda* (#:key inputs #:allow-other-keys) (substitute* (find-files "src" "\\.cpp$") (("/usr/local(/bin/Hyprland)" _ path) (string-append #$output path)) (("/usr") #$output) (("(execAndGet\\(\")\\<(cat|fc-list|lspci)\\>" _ pre cmd) (string-append pre (search-input-file inputs (string-append "bin/" cmd)))) (("\\") (search-input-file inputs "bin/gcc")) ;; NOTE: Add binutils to inputs will override ld-wrapper. (("(execAndGet\\(\\(\")\\" _ pre) (string-append pre #$binutils "/bin/nm")) (("\\<(addr2line|objcopy)\\>" _ cmd) (string-append #$binutils "/bin/" cmd))) (substitute* "CMakeLists.txt" (("libudis86") "udis86")) )) (add-after 'fix-path 'fix-protocols (lambda* (#:key inputs outputs #:allow-other-keys) (let ((protocols (string-append (getcwd) "/subprojects/hyprland-protocols/protocols"))) (mkdir-p protocols) (copy-recursively (search-input-directory inputs "share/hyprland-protocols/protocols") protocols)))) (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/Hyprland") `("__EGL_VENDOR_LIBRARY_DIRS" prefix ,(list (string-append mesa "/share/glvnd/egl_vendor.d"))))))) ))) (native-inputs (list gcc-14 jq pkg-config hyprwayland-scanner hwdata-for-hyprland)) (inputs (list gcc-14 cairo pango pciutils libliftoff udis86 aquamarine hyprcursor hyprland-protocols hyprlang hyprutils xorg-server-xwayland-for-hyprland)) (home-page "https://hyprland.org") (synopsis "Dynamic tiling Wayland compositor based on wlroots") (description "Hyprland is a dynamic tiling Wayland compositor based on @code{wlroots} th doesn't sacrifice on its looks. It supports multiple layouts, fancy ef cts, has a very flexible IPC model allowing for a lot of customization, and mo .") (license license:bsd-3))) (define-public hyprpaper (package (name "hyprpaper") (version "0.7.0") (source (origin (method url-fetch) (uri (string-append "https://github.com/hyprwm/hyprpaper" "/archive/refs/tags/v" version ".tar.gz")) (sha256 (base32 "1d23nsj5hzyxwvhkg9a7x1b8jgyqwzad91zb1894jnxr2d844h28")))) (build-system cmake-build-system) (arguments `(#:tests? #f)) (native-inputs (list gcc-13 pkg-config)) (inputs (list hyprlang wayland-protocols-1.36 wayland cairo libjpeg-turbo libwebp mesa pango libglvnd)) (home-page "https://github.com/hyprwm/hyprpaper") (license license:bsd-3) (synopsis "Hyprpaper is a blazing fast wayland wallpaper utility with IPC controls.") (description "Hyprpaper is a blazing fast wayland wallpaper utility with IPC controls."))) (define-public hypridle (package (name "hypridle") (version "0.1.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/hyprwm/hypridle" "/archive/refs/tags/v" version ".tar.gz")) (sha256 (base32 "0ybwip7yq9q569naz5bnrvcdz99648c4pln2zi30z21y333hpas0")))) (build-system cmake-build-system) (arguments `(#:tests? #f)) (native-inputs (list gcc-13 pkg-config)) (inputs (list hyprlang wayland-protocols-1.36 wayland sdbus-c++)) (home-page "https://github.com/hyprwm/hypridle") (license license:bsd-3) (synopsis "Hyprland's idle daemon ") (description "Hyprland's idle daemon "))) (define-public hyprlock (package (name "hyprlock") (version "0.4.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/hyprwm/hyprlock" "/archive/refs/tags/v" version ".tar.gz")) (sha256 (base32 "0q5smah3zmg8vwipfd74n664mavkgzrqjn0i57gwmbwc111illw7")))) (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 hyprutils mesa-libglvnd libdrm libglvnd wayland-protocols-1.36 libjpeg-turbo libwebp linux-pam)) (home-page "https://github.com/hyprwm/hyprlock") (license license:bsd-3) (synopsis "Screen locker for Hyprland") (description "Screen locker for hyprland."))) (define-public xdg-desktop-portal-hyprland (package (name "xdg-desktop-portal-hyprland") (version "1.3.6") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/xdg-desktop-portal-hyprland") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "17ba9jkccyp8gv79ds70khgm5wm6x8zs5m9nkilq4n2j7fsa8cfl")))) (build-system cmake-build-system) (arguments (list #:tests? #f ;No tests #:phases #~(modify-phases %standard-phases (add-after 'unpack 'fix-path (lambda* (#:key inputs #:allow-other-keys) (substitute* (find-files "." "\\.cp?*$") (("/bin/sh") "sh") (("\\<(sh|grim|hyprctl|slurp)\\>" _ cmd) (search-input-file inputs (string-append "/bin/" cmd))) (("\\<(hyprland-share-picker)\\>" _ cmd) (string-append #$output "/bin/" cmd)))))))) (native-inputs (list gcc-13 pkg-config wayland hyprwayland-scanner)) (inputs (list bash-minimal grim hyprland hyprutils hyprland-protocols wayland-protocols-1.36 hyprlang mesa-libglvnd pipewire-new qtwayland sdbus-c++ slurp qtbase)) (home-page "https://github.com/hyprwm/xdg-desktop-portal-hyprland") (synopsis "XDG Desktop Portal backend for Hyprland") (description "This package provides @code{xdg-desktop-portal-hyprland}, which extends @code{xdg-desktop-portal-wlr} for Hyprland with support for @code{xdg-desktop-portal} screenshot and casting interfaces, while adding a few extra portals specific to Hyprland, mostly for window sharing.") (license license:bsd-3))) (define-public hyprland-plugin-hy3 (package (name "hyprland-plugin-hy3") (version "0.44.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/outfoxxed/hy3.git") (commit (string-append "hl" version)))) (sha256 (base32 "03gxjkn43j85ff8d0hx9nhv5bfwv7vw7m8kacpmajmfnx43mldg9")))) (build-system cmake-build-system) (arguments (list #:tests? #f #:cmake cmake-minimal-3.30.0 #:configure-flags #~(list "DCMAKE_BUILD_TYPE=Release"))) (native-inputs (list gcc-13 pkg-config hyprwayland-scanner)) (inputs (list gcc-13 aquamarine pango gcc-13 hyprland-protocols hyprland hyprlang hyprutils libdrm)) (license license:gpl3) (home-page "https://github.com/outfoxxed/hy3") (synopsis "i3 / sway like layout for hyprland.") (description "Hyprland plugin for an i3 / sway like manual tiling layout"))) (define-syntax hyprland-plugin-impl (syntax-rules () ((_ plugin) (package (name (string-append "hyprland-plugin-" plugin)) (version "0.44.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/hyprland-plugins.git") (commit (string-append "v" version)))) (sha256 (base32 "0v2zwvrjgc7zg4l8c50934kyq3y5x9f0d34gh3kyh44grfn8w9zx")) (file-name (git-file-name name version)))) (build-system cmake-build-system) (arguments (list #:tests? #f #:cmake cmake-minimal-3.30.0 #:phases #~(modify-phases %standard-phases (add-after 'unpack 'chdir (lambda _ (chdir (string-append "../source/" plugin "/"))))))) (native-inputs (list pkg-config gcc-13 hyprwayland-scanner)) (inputs (list gcc-13 aquamarine pango hyprland-protocols hyprland hyprlang hyprutils libdrm)) (license license:bsd-3) (home-page "https://github.com/hyprwm/hyprland-plugins") (synopsis (string-append "official " plugin " plugin for hyprland")) (description (string-append "official " plugin " plugin for hyprland")))))) (define-public hyprland-plugin-borders-plus-plus (hyprland-plugin-impl "borders-plus-plus")) (define-public hyprland-plugin-csgo-vulkan-fix (hyprland-plugin-impl "csgo-vulkan-fix")) (define-public hyprland-plugin-hyprbars (hyprland-plugin-impl "hyprbars")) (define-public hyprland-plugin-hyprexpo (hyprland-plugin-impl "hyprexpo")) (define-public hyprland-plugin-hyprtrails (hyprland-plugin-impl "hyprtrails")) (define-public hyprland-plugin-hyprwinwrap (hyprland-plugin-impl "hyprwinwrap")) (define-public hyprland-plugins (package (name "hyprland-plugins") (version "0.44.0") (source #f) (build-system trivial-build-system) (arguments '(#:builder (begin (mkdir %output) #t))) (license license:bsd-3) (home-page "https://github.com/hyprwm/hyprland-plugins") (synopsis "A collection of all the official hyprland plugins") (description "A metapackage containing inputs for each official plugin") (propagated-inputs (list hyprland-plugin-borders-plus-plus hyprland-plugin-csgo-vulkan-fix hyprland-plugin-hyprbars hyprland-plugin-hyprexpo hyprland-plugin-hyprtrails hyprland-plugin-hyprwinwrap)))) (define-syntax hyprland-contrib-impl (syntax-rules () ((_ contrib) (package (name (string-append "hyprland-conrib-" contrib)) (version "0.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/hyprwm/contrib.git") (commit (string-append "v" version)))) (sha256 (base32 "0ld0sj7ahf9jf8cqzbqkhj3m2w60027ixic24ih26nwy90b5qjwx")) (file-name (git-file-name name version)))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (delete 'configure) (delete 'build) (delete 'check) (add-after 'unpack 'chdir (lambda _ (chdir (string-append "../source/" contrib "/")))) (add-after 'chdir 'patch-make (lambda* (#:key inputs #:allow-other-keys) (substitute* "Makefile" (("scdoc") (string-append (assoc-ref inputs "scdoc") "/bin/scdoc"))))) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (invoke "make" "install" (string-append "PREFIX=" (assoc-ref outputs "out"))))) ))) (native-inputs (list scdoc)) (license license:expat) (home-page "https://github.com/hyprwm/contrib") (synopsis (string-append "official " contrib " script for hyprland")) (description (string-append "official " contrib " script for hyprland")))))) (define-public hyprland-contrib-grimblast (hyprland-contrib-impl "grimblast")) (define-public hyprland-contrib-hyprprop (hyprland-contrib-impl "hyprprop")) (define-public hyprland-contrib-scratchpad (hyprland-contrib-impl "scratchpad")) (define-public hyprland-contrib-shellevents (hyprland-contrib-impl "shellevents")) (define-public hyprland-contrib (package (name "hyprland-contrib") (version "0.1") (source #f) (build-system trivial-build-system) (arguments '(#:builder (begin (mkdir %output) #t))) (license license:bsd-3) (home-page "https://github.com/hyprwm/contrib") (synopsis "A collection of all the official hyprland contrib scripts") (description "A metapackage containing inputs for each official contrib script") (propagated-inputs (list hyprland-contrib-grimblast hyprland-contrib-hyprprop hyprland-contrib-scratchpad hyprland-contrib-shellevents))))