home/config/gtk/gtk-3.0/settings.ini

@@ -1,6 +1,6 @@
 [Settings]
-gtk-theme-name=Mint-Y-Dark-Teal
+gtk-theme-name=Mint-Y-Dark-Pink
-gtk-icon-theme-name=Mint-Y-Teal
+gtk-icon-theme-name=Mint-Y-Pink
 gtk-font-name=Noto Sans,  10
 gtk-cursor-theme-name=wii
 gtk-cursor-theme-size=24

home/config/hypr/config.d/theme.conf

@@ -43,6 +43,9 @@ plugin {
         bar_button_padding = 12
         bar_padding = 10
         bar_precedence_over_border = true
+        hyprbars-button = rgb(000000), 16, , hyprctl dispatch killactive
+        hyprbars-button = rgb(000000), 16, , hyprctl dispatch fullscreen 2
+        hyprbars-button = rgb(000000), 16, , hyprctl dispatch togglefloating
    }
 }
 

home/config/hypr/hyprlock.conf

@@ -1,7 +1,7 @@
 # BACKGROUND
 background {
     monitor =
-    path = ~/.config/desktop-common/wallpapers/gay.png
+    path = ~/.config/desktop-common/wallpapers/davekat.png
     blur_passes = 3
     contrast = 0.8916
     brightness = 0.8172
@@ -50,7 +50,7 @@ label {
 # PRFOLE IMAGE
 image {
     monitor =
-    path = ~/.config/desktop-common/pfps/freya.png
+    path = ~/.config/desktop-common/pfps/karkat.png
     size = 300
     rounding = -1
     border_size = 0

home/config/hypr/hyprpaper.conf

@@ -1,3 +1,3 @@
-preload = ~/.config/desktop-common/wallpapers/gay.png
+preload = ~/.config/desktop-common/wallpapers/davekat.png
-wallpaper = ,~/.config/desktop-common/wallpapers/gay.png
+wallpaper = ,~/.config/desktop-common/wallpapers/davekat.png
 splash = false

home/config/xdg/user-dirs.dirs

@@ -6,7 +6,7 @@
 # absolute path. No other format is supported.
 #
 XDG_DESKTOP_DIR="$HOME/"
-XDG_DOCUMENTS_DIR="$HOME/documents/"
+XDG_DOCUMENTS_DIR="$HOME/documents"
 XDG_DOWNLOAD_DIR="$HOME/downloads/"
 XDG_MUSIC_DIR="$HOME/"
 XDG_PICTURES_DIR="$HOME/"

home/config/zsh/zshrc

@@ -90,39 +90,7 @@ export GPG_TTY=$(tty)
 # ricing
 export PF_CUSTOM_LOGOS="/home/freya/.config/zsh/pfetch_logos"
 
-_wine() {
+export WINEARCH=win32
-    export WINEPREFIX="$HOME/.wine$1"
+export WINEPREFIX=/home/freya/.wine
-    export WINEARCH="win$1"
-    /usr/bin/wine "${@:2}"
-    unset WINEARCH
-    unset WINEPREFIX
-}
-
-alias wine32="_wine 32"
-alias wine64="_wine 64"
-
-proton() {
-    if [ $# -lt 1 ]; then
-        return
-    fi
-    export STEAM_TMP_DIR="$HOME/.local/share/Steam/steamapps/compatdata/$1"
-    mkdir -p "$STEAM_TMP_DIR"
-    export STEAM_COMPAT_DATA_PATH="$STEAM_TMP_DIR"
-    export STEAM_COMPAT_CLIENT_INSTALL_PATH="$STEAM_TMP_DIR"
-    protonenv "$1"
-    $HOME/.local/share/Steam/steamapps/common/Proton\ -\ Experimental/proton run ${@:2}
-}
-
-protontricks() {
-    if [ $# -lt 1 ]; then
-        return
-    fi
-    export STEAM_TMP_DIR="$HOME/.local/share/Steam/steamapps/compatdata/$1"
-    mkdir -p "$STEAM_TMP_DIR"
-    export WINEPREFIX="$STEAM_TMP_DIR"
-    winetricks ${@:2}
-}
 
 pfetch
-
-PWD="$HOME"

home/local/dbus/services/org.freedesktop.Notifications.service

@@ -1,3 +1,3 @@
 [D-BUS Service]
 Name=org.freedesktop.Notifications
-Exec=/home/freya/.guix-home/profile/bin/mako
+Exec=/usr/bin/mako

home/local/dbus/services/org.freedesktop.secrets.service

@@ -1,4 +1,4 @@
 [D-BUS Service]
 Name=org.freedesktop.secrets
-Exec=/home/freya/.guix-home/profile/bin/gnome-keyring-daemon --start --components=secrets
+Exec=/usr/bin/gnome-keyring-daemon --start --components=secrets
 

modules/freya/packages/admin.scm

@@ -1,19 +0,0 @@
-(define-module (freya packages admin)
-  #:use-module (guix git-download)
-  #:use-module (guix packages)
-  #:use-module (gnu packages admin))
-
-(define-public libseat-0.8.0
-  (package
-    (inherit libseat)
-    (name "libseat")
-    (version "0.8.0")
-    (source (origin
-              (method git-fetch)
-              (uri (git-reference
-                    (url "https://git.sr.ht/~kennylevinsen/seatd")
-                    (commit version)))
-              (file-name (git-file-name name version))
-              (sha256
-               (base32
-                "02wzrgp8di6hqmicnm2fim6jnvbn62wy248ikvdvrhiywrb7i931"))))))

modules/freya/packages/assembly.scm

@@ -1,32 +0,0 @@
-(define-module (freya packages assembly)
-  #:use-module ((guix licenses) #:prefix license:)
-  #:use-module (guix git-download)
-  #:use-module (guix build-system gnu)
-  #:use-module (guix packages)
-  #:use-module (gnu packages autotools)
-  #:use-module (gnu packages python))
-
-(define-public udis86
-  (let ((revision "186")
-        (commit "5336633af70f3917760a6d441ff02d93477b0c86"))
-    (package
-      (name "udis86")
-      (version (git-version "1.7.2" revision commit))
-      (source (origin
-                (method git-fetch)
-                (uri (git-reference
-                      (url "https://github.com/canihavesomecoffee/udis86")
-                      (commit commit)))
-                (file-name (git-file-name name version))
-                (sha256
-                 (base32
-                  "0y5z1169wff578jylpafsww4px4y6gickhcs885a9c660d8xs9qy"))))
-      (build-system gnu-build-system)
-      (native-inputs (list autoconf automake libtool python-minimal-wrapper))
-      (home-page "https://github.com/canihavesomecoffee/udis86")
-      (synopsis "Disassembler Library for x86 and x86-64")
-      (description
-       "Udis86 is a disassembler for the x86 and x86-64 class of instruction
-set architectures.  It consists of a C library called @code{libudis86} and a
-command line tool called @code{udcli} that incorporates the library.")
-      (license license:bsd-2))))

modules/freya/packages/cmake.scm

@@ -1,32 +0,0 @@
-(define-module (freya packages cmake)
-  #:use-module (guix download)
-  #:use-module (guix packages)
-  #:use-module (guix gexp)
-  #:use-module (guix utils)
-  #:use-module (gnu packages check)
-  #:use-module (gnu packages debug)
-  #:use-module (gnu packages cmake)
-  #:use-module (gnu packages python))
-
-(define-public cmake-minimal-3.27.0
-  (package
-    (inherit cmake-minimal)
-    (name "cmake-minimal")
-    (version "3.27.0")
-    (source (origin
-              (inherit (package-source cmake-minimal))
-              (method url-fetch)
-              (uri (string-append "https://cmake.org/files/v"
-                                  (version-major+minor version)
-                                  "/cmake-" version ".tar.gz"))
-              (sha256
-               (base32
-                "1f1w9mb868q38nzy145b6q9mc5waf8yi521cwfkd14xr51mxpvda"))))
-    (arguments
-     (substitute-keyword-arguments (package-arguments cmake-minimal)
-       ((#:configure-flags flags ''())
-        #~(append (list "-DCMake_ENABLE_DEBUGGER=false") #$flags))
-       ((#:phases phases)
-        #~(modify-phases #$phases
-            (delete 'delete-help-documentation)
-            (delete 'check)))))))

modules/freya/packages/freedesktop.scm

@@ -1,24 +0,0 @@
-(define-module (freya packages freedesktop)
-  #:use-module (guix git-download)
-  #:use-module (guix packages)
-  #:use-module (gnu packages check)
-  #:use-module (gnu packages freedesktop)
-  #:use-module (gnu packages python))
-
-(define-public libinput-minimal-1.26.1
-  (package
-    (inherit libinput-minimal)
-    (name "libinput-minimal")
-    (version "1.26.1")
-    (source (origin
-              (method git-fetch)
-              (uri (git-reference
-                    (url "https://gitlab.freedesktop.org/libinput/libinput.git")
-                    (commit version)))
-              (file-name (git-file-name name version))
-              (sha256
-               (base32
-                "094k23i10jjmgdzhv5lj7xpc3fgkwi9afcihf0l2fjj71ym8l9fy"))))
-    (native-inputs
-     (modify-inputs (package-native-inputs libinput)
-       (append python-minimal-wrapper python-pytest)))))

modules/freya/packages/gl.scm

@@ -1,222 +0,0 @@
-(define-module (freya packages gl)
-               #:use-module ((guix licenses) #:prefix license:)
-               #:use-module (guix packages)
-               #:use-module (guix gexp)
-               #:use-module (guix utils)
-               #:use-module (ice-9 match)
-               #:use-module (gnu packages)
-               #:use-module (gnu packages gl))
-
-(define-public mesa-libglvnd
-  (package
-    (inherit mesa)
-    (inputs (modify-inputs (package-inputs mesa) (prepend libglvnd)))
-    (arguments
-     (list
-      #:configure-flags
-      #~(list
-         #$@(cond
-             ((or (target-aarch64?) (target-arm32?))
-              '("-Dgallium-drivers=etnaviv,freedreno,kmsro,lima,nouveau,\
-panfrost,r300,r600,svga,swrast,tegra,v3d,vc4,virgl,zink"))
-             ((or (target-ppc64le?) (target-ppc32?) (target-riscv64?))
-              '("-Dgallium-drivers=nouveau,r300,r600,radeonsi,svga,swrast,virgl,zink"))
-             (else
-              '("-Dgallium-drivers=crocus,iris,nouveau,r300,r600,radeonsi,\
-svga,swrast,virgl,zink")))
-         ;; Enable various optional features.  TODO: opencl requires libclc,
-         ;; omx requires libomxil-bellagio
-         "-Dplatforms=x11,wayland"
-         "-Dglx=dri"               ;Thread Local Storage, improves performance
-         ;; "-Dopencl=true"
-         ;; "-Domx=true"
-         "-Dosmesa=true"
-         "-Dgallium-xa=enabled"
-
-         ;; features required by wayland
-         "-Dgles2=enabled"
-         "-Dgbm=enabled"
-         "-Dshared-glapi=enabled"
-         "-Dglvnd=true"
-
-         ;; Explicitly enable Vulkan on some architectures.
-         #$@(cond
-             ((or (target-x86-32?) (target-x86-64?))
-              '("-Dvulkan-drivers=intel,intel_hasvk,amd,swrast"))
-             ((or (target-ppc64le?) (target-ppc32?))
-              '("-Dvulkan-drivers=amd,swrast"))
-             ((target-aarch64?)
-              '("-Dvulkan-drivers=freedreno,amd,broadcom,swrast"))
-             ((target-riscv64?)
-              '("-Dvulkan-drivers=amd,swrast"))
-             (else
-              '("-Dvulkan-drivers=auto")))
-
-         ;; Enable the Vulkan overlay layer on all architectures.
-         "-Dvulkan-layers=device-select,overlay"
-
-         ;; Enable all the codecs that were built by default as part of the
-         ;; 21.3.x releases to avoid functionality regressions.
-         "-Dvideo-codecs=all"
-
-         ;; Enable ZSTD compression for shader cache.
-         "-Dzstd=enabled"
-
-         ;; Also enable the tests.
-         "-Dbuild-tests=true"
-
-         "-Dllvm=enabled")              ; default is x86/x86_64 only
-
-       ;; XXX: 'debugoptimized' causes LTO link failures on some drivers.  The
-       ;; documentation recommends using 'release' for performance anyway.
-       #:build-type "release"
-
-       #:modules '((ice-9 match)
-                   (srfi srfi-1)
-                   (guix build utils)
-                   (guix build meson-build-system))
-       #:phases
-       #~(modify-phases %standard-phases
-         #$@(if (%current-target-system)
-              #~((add-after 'unpack 'fix-cross-compiling
-                   (lambda* (#:key native-inputs #:allow-other-keys)
-                     ;; When cross compiling, we use cmake to find llvm, not
-                     ;; llvm-config, because llvm-config cannot be executed
-                     ;; see https://github.com/llvm/llvm-project/issues/58984
-                     (substitute* "meson.build"
-                       (("method : host_machine\\.system.*")
-                        "method : 'cmake',\n"))
-                     (setenv "CMAKE"
-                             (search-input-file
-                              native-inputs "/bin/cmake")))))
-              #~())
-         (add-after 'unpack 'disable-failing-test
-           (lambda _
-             ;; Disable the intel vulkan (anv_state_pool) tests, as they may
-             ;; fail in a nondeterministic fashion (see:
-             ;; https://gitlab.freedesktop.org/mesa/mesa/-/issues/5446).
-             (substitute* "src/intel/vulkan/meson.build"
-               (("if with_tests")
-                "if false"))
-             #$@(match (%current-system)
-                 ("riscv64-linux"
-                  ;; According to the test logs the llvm JIT is not designed
-                  ;; for this architecture and the llvmpipe tests all segfault.
-                  ;; The same is true for mesa:gallium / osmesa-render.
-                  `((substitute* '("src/gallium/drivers/llvmpipe/meson.build"
-                                   "src/gallium/targets/osmesa/meson.build")
-                      (("if with_tests") "if false"))))
-                 ("powerpc64le-linux"
-                  ;; Disable some of the llvmpipe tests.
-                  `((substitute* "src/gallium/drivers/llvmpipe/lp_test_arit.c"
-                      (("0\\.5, ") ""))))
-                 ("powerpc-linux"
-                  ;; There are some tests which fail specifically on powerpc.
-                  `((substitute* '(;; LLVM ERROR: Relocation type not implemented yet!
-                                   "src/gallium/drivers/llvmpipe/meson.build"
-                                   "src/gallium/targets/osmesa/meson.build")
-                      (("if with_tests") "if not with_tests"))
-                    ;; This is probably a big-endian test failure.
-                    (substitute* "src/amd/common/meson.build"
-                      (("and not with_platform_windows")
-                       "and with_platform_windows"))))
-                 ("i686-linux"
-                  ;; This test is known to fail on i686 (see:
-                  ;; https://gitlab.freedesktop.org/mesa/mesa/-/issues/4091).
-                  `((substitute* "src/util/meson.build"
-                      ((".*'tests/u_debug_stack_test.cpp',.*") ""))))
-                 ("armhf-linux"
-                  ;; Disable some of the llvmpipe tests.
-                  `((substitute* "src/gallium/drivers/llvmpipe/meson.build"
-                      (("'lp_test_arit', ") ""))))
-                 (_
-                  '((display "No tests to disable on this architecture.\n"))))))
-         (add-before 'configure 'fix-dlopen-libnames
-           (lambda* (#:key inputs #:allow-other-keys)
-             (let ((out #$output))
-               ;; Remain agnostic to .so.X.Y.Z versions while doing
-               ;; the substitutions so we're future-safe.
-               (substitute* "src/glx/meson.build"
-                 (("-DGL_LIB_NAME=\"lib@0@\\.so\\.@1@\"")
-                  (string-append "-DGL_LIB_NAME=\"" out
-                                 "/lib/lib@0@.so.@1@\"")))
-               (substitute* "src/gbm/backends/dri/gbm_dri.c"
-                 (("\"libglapi\\.so")
-                  (string-append "\"" out "/lib/libglapi.so")))
-               (substitute* "src/gbm/main/backend.c"
-                 ;; No need to patch the gbm_gallium_drm.so reference;
-                 ;; it's never installed since Mesa removed its
-                 ;; egl_gallium support.
-                 (("\"gbm_dri\\.so")
-                  (string-append "\"" out "/lib/dri/gbm_dri.so")))
-               (substitute* "src/gallium/drivers/zink/zink_screen.c"
-                 (("util_dl_open\\(VK_LIBNAME\\)")
-                  (format #f "util_dl_open(\"~a\")"
-                          (search-input-file inputs
-                                             "lib/libvulkan.so.1")))))))
-         (add-after 'install 'split-outputs
-           (lambda _
-             (let ((out #$output)
-                   (bin #$output:bin))
-               ;; Not all architectures have the Vulkan overlay control script.
-               (mkdir-p (string-append out "/bin"))
-               (call-with-output-file (string-append out "/bin/.empty")
-                 (const #t))
-               (copy-recursively (string-append out "/bin")
-                                 (string-append bin "/bin"))
-               (delete-file-recursively (string-append out "/bin")))))
-         (add-after 'install 'symlinks-instead-of-hard-links
-           (lambda _
-             ;; All the drivers and gallium targets create hard links upon
-             ;; installation (search for "hardlink each megadriver instance"
-             ;; in the makefiles).  This is no good for us since we'd produce
-             ;; nars that contain several copies of these files.  Thus, turn
-             ;; them into symlinks, which saves ~124 MiB.
-             (let* ((out    #$output)
-                    (lib    (string-append out "/lib"))
-                    (files  (find-files lib
-                                        (lambda (file stat)
-                                          (and (string-contains file ".so")
-                                               (eq? 'regular
-                                                    (stat:type stat))))))
-                    (inodes (map (compose stat:ino stat) files)))
-               (for-each (lambda (inode)
-                           (match (filter-map (match-lambda
-                                                ((file ino)
-                                                 (and (= ino inode) file)))
-                                              (zip files inodes))
-                             ((_)
-                              #f)
-                             ((reference others ..1)
-                              (format #t "creating ~a symlinks to '~a'~%"
-                                      (length others) reference)
-                              (for-each delete-file others)
-                              (for-each (lambda (file)
-                                          (if (string=? (dirname file)
-                                                        (dirname reference))
-                                              (symlink (basename reference)
-                                                       file)
-                                              (symlink reference file)))
-                                        others))))
-                         (delete-duplicates inodes)))))
-         (add-after 'install 'set-layer-path-in-manifests
-           (lambda _
-             (let* ((out #$output)
-                    (implicit-path (string-append
-                                    out
-                                    "/share/vulkan/implicit_layer.d/"))
-                    (explicit-path (string-append
-                                    out
-                                    "/share/vulkan/explicit_layer.d/"))
-                    (fix-layer-path
-                     (lambda (layer-name)
-                       (let* ((explicit (string-append explicit-path layer-name ".json"))
-                              (implicit (string-append implicit-path layer-name ".json"))
-                              (manifest (if (file-exists? explicit)
-                                            explicit
-                                            implicit)))
-                         (substitute* manifest
-                           (((string-append "\"lib" layer-name ".so\""))
-                             (string-append "\"" out "/lib/lib" layer-name ".so\"")))))))
-               (for-each fix-layer-path '("VkLayer_MESA_device_select"
-                                          "VkLayer_MESA_overlay"))))))))))

modules/freya/packages/patches/aquamarine-fix-cmake.patch

@@ -1,25 +0,0 @@
-From 7b6f11ed0708d8775f42107e19d9099835e2498e Mon Sep 17 00:00:00 2001
-From: Freya Murphy <freya@freyacat.org>
-Date: Mon, 5 Aug 2024 17:52:48 -0400
-Subject: [PATCH] fix cmake
-
----
- CMakeLists.txt | 2 +-
- 1 file changed, 1 insertion(+), 1 deletion(-)
-
-diff --git a/CMakeLists.txt b/CMakeLists.txt
-index bb7a4d6..7f7e7ff 100644
---- a/CMakeLists.txt
-+++ b/CMakeLists.txt
-@@ -19,7 +19,7 @@ set(INCLUDE ${CMAKE_INSTALL_FULL_INCLUDEDIR})
- set(LIBDIR ${CMAKE_INSTALL_FULL_LIBDIR})
-
- find_package(PkgConfig REQUIRED)
--find_package(OpenGL REQUIRED COMPONENTS "GLES2")
-+find_package(OpenGL REQUIRED)
- find_package(hyprwayland-scanner 0.4.0 REQUIRED)
- pkg_check_modules(
-   deps
---
-2.45.1
-

modules/freya/packages/patches/hyprland-fix-cmake.patch

@@ -1,41 +0,0 @@
-From 33fac66982422104cc1c2664f9a841fc96295c13 Mon Sep 17 00:00:00 2001
-From: Freya Murphy <freya@freyacat.org>
-Date: Mon, 5 Aug 2024 20:35:50 -0400
-Subject: [PATCH] fix cmake
-
----
- CMakeLists.txt | 4 +---
- 1 file changed, 1 insertion(+), 3 deletions(-)
-
-diff --git a/CMakeLists.txt b/CMakeLists.txt
-index fa58b63d..51ea6cfa 100644
---- a/CMakeLists.txt
-+++ b/CMakeLists.txt
-@@ -26,7 +26,6 @@ execute_process(COMMAND ./scripts/generateVersion.sh
-                 WORKING_DIRECTORY ${CMAKE_SOURCE_DIR})
- 
- # udis
--add_subdirectory("subprojects/udis86")
- 
- if(CMAKE_BUILD_TYPE)
-   string(TOLOWER ${CMAKE_BUILD_TYPE} BUILDTYPE_LOWER)
-@@ -85,7 +84,7 @@ if(LEGACY_RENDERER)
- else()
-   set(GLES_VERSION "GLES3")
- endif()
--find_package(OpenGL REQUIRED COMPONENTS ${GLES_VERSION})
-+find_package(OpenGL REQUIRED)
- 
- pkg_check_modules(
-   deps
-@@ -314,7 +313,6 @@ protocolwayland()
- 
- # tools
- add_subdirectory(hyprctl)
--add_subdirectory(hyprpm)
- 
- # binary and symlink
- install(TARGETS Hyprland)
--- 
-2.45.1
-

modules/freya/packages/wm.scm

@@ -11,21 +11,9 @@
                #: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 qt)
                #:use-module (guix download)
                #:use-module (guix packages)
                #:use-module (guix gexp)
@@ -33,14 +21,9 @@
                #: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 (rosenthal packages wm)
-               #:use-module (freya packages admin)
+               #:use-module (rosenthal packages freedesktop)
-               #:use-module (freya packages cmake)
-               #:use-module (freya packages freedesktop)
-               #:use-module (freya packages assembly)
                #:use-module (guix utils))
 
 
@@ -63,7 +46,7 @@
   (package
     (inherit waybar)
     (name "waybar-new")
-    (version "0.10.4")
+    (version "0.10.3")
     (source
      (origin
        (method git-fetch)
@@ -72,35 +55,68 @@
              (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "0liiyz6212pmyhpsrb6773qf5b9b4kb76nggizygr9abfidbg5gw"))))
+        (base32 "04xd61ycn1nisq1s5ch14zkbsjcfcy6n29nkjn68s2ribmws0iid"))))
     (arguments
       (list
         #:configure-flags #~(list "--wrap-mode=nodownload" "-Dexperimental=true")))))
 
 
-(define-public libliftoff
+(define cairo-for-hyprland
   (package
-    (name "libliftoff")
+    (inherit cairo)
-    (version "0.1.0")
+    (name "cairo")
+    (version "1.18.0")
     (source (origin
               (method url-fetch)
-              (uri (string-append "https://github.com/emersion/libliftoff"
+              (uri (string-append "https://cairographics.org/releases/cairo-"
-                                  "/archive/refs/tags/v" version ".tar.gz"))
+                                  version ".tar.xz"))
               (sha256
                (base32
-                "17ssbjbv8njgvfha8zsx4nixpi5xxl1rwvk0lcacgqk0nmjyb23s"))))
+                "0r0by563s75xyzz0d0j1nmjqmdrk2x9agk7r57p3v8vqp4v0ffi4"))))
     (build-system meson-build-system)
-    (native-inputs (list gcc-13
+    (arguments
-                         pkg-config
+     (list #:tests? #f
-                         cmake-minimal-3.27.0
+           #:glib-or-gtk? #t
-                         libdrm))
+           #:configure-flags
-    (home-page "https://github.com/emersion/libliftoff")
+           #~(list "-Dspectre=disabled")))
-    (synopsis "Lightweight KMS plane library")
+    (outputs '("out"))))
-    (description "")
-    (license license:expat)))
 
 
-(define-public wayland-protocols-1.36
+(define hwdata-for-hyprland
+  (package
+    (inherit hwdata)
+    (arguments
+     (substitute-keyword-arguments (package-arguments hwdata)
+       ((#:phases _) #~%standard-phases)))
+    (outputs '("out"))))
+
+
+(define libdrm-for-hyprland
+  (package
+    (inherit libdrm)
+    (name "libdrm")
+    (version "2.4.120")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://dri.freedesktop.org/libdrm/libdrm-"
+                    version ".tar.xz"))
+              (sha256
+               (base32
+                "0yijzgg6rdsa68bz03sw0lcfa2nclv9m3as1cja50wkcyxim7x9v"))))))
+
+
+(define hyprland-unbundle-wlroots-patch
+  (origin
+    (method url-fetch)
+    (uri (string-append "https://github.com/hyprwm/Hyprland" "/raw/"
+                        "cba1ade848feac44b2eda677503900639581c3f4"
+                        "/nix/patches/meson-build.patch"))
+    (sha256
+     (base32 "0fwvsshz3k6061p3hdl175pydmj80vnw5rm4xfcn64w1ssfq7liw"))))
+
+
+(define wayland-protocols-for-hyprland
   (package
     (inherit wayland-protocols)
     (name "wayland-protocols")
@@ -116,296 +132,184 @@
                 "14kyxywpfkgpjpkrybs28q1s2prnz30k1b4zap5a3ybrbvh4vzbi"))))))
 
 
-(define-public hyprlang
+(define wlroots-for-hyprland
-  (package
+  (let ((base wlroots)
-    (name "hyprlang")
+        (revision "1")
-    (version "0.5.2")
+        (commit "5c1d51c5a2793480f5b6c4341ad0797052aec2ea"))
-    (source (origin
+    (package
-              (method git-fetch)
+      (inherit base)
-              (uri (git-reference
+      (name "wlroots")
-                    (url "https://github.com/hyprwm/hyprlang")
+      (version (git-version "0.18.0-dev-hyprland" revision commit))
-                    (commit (string-append "v" version))))
+      (source (origin
-              (file-name (git-file-name name version))
+                (method git-fetch)
-              (sha256
+                (uri (git-reference
-               (base32
+                      (url "https://github.com/hyprwm/wlroots-hyprland")
-                "17i0372yv0fcwnyki36crz7afw8c5f3j985m083p7rjbh4fn3br6"))))
+                      (commit commit)))
-    (build-system cmake-build-system)
+                (file-name (git-file-name name version))
-    (native-inputs (list gcc-13))
+                (sha256
-    (home-page "https://hyprland.org/hyprlang/")
+                 (base32
-    (synopsis "Official implementation library for hypr config language")
+                  "0gy0g0kxb3q1wjqrypnvmrxcb4ld3advikchygpwpfp4s9v0mmvd"))))
-    (description
+      (arguments
-     "This package provides the official implementation for hypr configuration
+       (substitute-keyword-arguments (package-arguments wlroots)
-language used in @code{hyprland}.")
+         ((#:phases phases #~%standard-phases)
-    (license license:gpl3+)))
+          #~(modify-phases #$phases
-
+              (add-after 'unpack 'adjust-patching-script
-
-(define-public hyprcursor
-  (package
-    (name "hyprcursor")
-    (version "0.1.9")
-    (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
-                "0z3ar580n630145nq80qw0p8v0kai6knvhi6nr9z0y1jrb07b0ql"))))
-    (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.3.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
-                "01j5hc8qnjzqiiwryfawx1wzrhkn0m794knphyc0vsxwkcmjaj8x"))))
-    (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.0")
-    (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
-                "1xc2xcxpq61lg964ihk0wbfzqqvibw20iz09g0p33ym51gwlpxr4"))))
-    (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.1")
-    (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
-                "0nxx5yb5k9726x95n8gi27xyxyzwb0ma0nj3czpb51sda1k0hz0g"))))
-    (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.2.0")
-    (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
-                "061shgk8lvbk4f35cf057hl4jh36aahd6l3si6ga91rzl184b9sh"))))
-    (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
-            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")))
+                  (substitute* "patches/apply.sh"
-                        (mkdir-p fmw)
+                    (("apply \\|\\| check_applied \\|\\| fail")
-                        (copy-recursively "include" fmw))
+                     "patch -Np1 < $PATCH"))))))))
-                ))
+      (propagated-inputs
-        ))))))
+       (modify-inputs (package-propagated-inputs wlroots)
+         (prepend libdrm-for-hyprland)
+         (replace "libinput-minimal" libinput-minimal-1.24.0)
+         (replace "wayland-protocols" wayland-protocols-for-hyprland)))
+      (native-inputs
+       (modify-inputs (package-native-inputs base)
+         (replace "hwdata" `(,hwdata-for-hyprland "out")))))))
 
 
-(define-public hyprland
+(define-public hyprland-plugin-hy3
-  (let ((commit "0e86808e5912823f1c6bea1b6d5fcae297fc9f57")
+  (package
+    (name "hyprland-plugin-hy3")
+    (version "0.40.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://github.com/outfoxxed/hy3"
+                                  "/archive/refs/tags/hl" version ".tar.gz"))
+              (sha256
+               (base32
+                "13rnv24nc52fzvh7ryl7q91cr59z0qsv4vlnps5vr78g58lx11j0"))))
+    (build-system cmake-build-system)
+    (arguments
+      `(#:tests? #f
+        #:configure-flags '("DCMAKE_BUILD_TYPE=Release")))
+    (native-inputs
+      (list meson pkg-config))
+    (inputs
+      (list pixman
+            libdrm
+            pango
+            gcc-13
+            libinput
+            hyprland-protocols
+            hyprwayland-scanner
+            hyprlang
+            hyprland
+            wayland
+            wlroots-for-hyprland))
+    (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)
+      (let ((commit "fd133914bf1921db2a26627698f914478f6a9471")
+            (revision "1"))
+        (package
+          (name (string-append "hyprland-plugin-" plugin))
+          (version (git-version "0.40.0" revision commit))
+          (source
+            (origin
+            (method git-fetch)
+            (uri (git-reference
+                   (url "https://github.com/hyprwm/hyprland-plugins.git")
+                   (commit commit)))
+            (sha256
+              (base32
+                "0518ggbam7rllf9xfzhfn9fp364rbiycsrkag74jscy5br5cyl4g"))
+            (file-name (git-file-name name version))))
+          (build-system meson-build-system)
+          (arguments
+            `(#:tests? #f
+              #:phases
+              (modify-phases %standard-phases
+                (add-after 'unpack 'chdir
+                  (lambda _ (chdir (string-append "../source/" plugin "/")))))))
+          (native-inputs
+            (list pkg-config
+                  gcc-13))
+          (inputs
+            (list gcc-13
+                  pango
+                  libinput
+                  hyprland-protocols
+                  hyprwayland-scanner
+                  hyprland
+                  hyprlang
+                  wayland
+                  wlroots-for-hyprland))
+          (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-plugins
+  (package
+    (name "hyprland-plugins")
+    (version "0.40.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-impl "borders-plus-plus")
+            (hyprland-plugin-impl "csgo-vulkan-fix")
+            (hyprland-plugin-impl "hyprbars")
+            (hyprland-plugin-impl "hyprexpo")
+            (hyprland-plugin-impl "hyprtrails")
+            (hyprland-plugin-impl "hyprwinwrap")))))
+
+(define-public hyprlock
+  (let ((commit "d9a6229434fba475ea42b634ee2f03919236798d")
         (revision "1"))
     (package
-      (name "hyprland")
+      (name "hyprlock")
-      (version (git-version "0.42.0" revision commit))
+      (version (git-version "0.3.0" revision commit))
       (source
         (origin
           (method git-fetch)
           (uri (git-reference
-                 (url "https://github.com/hyprwm/Hyprland")
+                 (url "https://github.com/hyprwm/hyprlock")
                  (commit commit)))
-  				(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 "10fiipxxkdvwxqgll5q5sa8sl5hm323gshx9bmlmlry07r0mk3mx"))))
+            (base32 "19cg8vj4sgz5pxib9m08af1lilay9bckjhlr6h333s014l7y09sw"))))
       (build-system cmake-build-system)
       (arguments
-       (list #:tests? #f
+        `(#:tests? #f
-             #:build-type "release"
+          #:phases
-             #:cmake cmake-minimal-3.27.0
+          (modify-phases %standard-phases
-             #:phases
+            (add-after 'unpack 'fix-egl
-             #~(modify-phases %standard-phases
+              (lambda _
-                (add-after 'unpack 'fix-path
+                (substitute* (list "src/core/Egl.hpp"
-                  (lambda* (#:key inputs #:allow-other-keys)
+                                   "src/renderer/DMAFrame.cpp")
-                    (substitute* (find-files "src" "\\.cpp$")
+                  (("#include <EGL/eglext.h>" include)
-                      (("/usr/local(/bin/Hyprland)" _ path)
+                   (string-append include "\n#include <EGL/eglmesaext.h>\n")))
-                        (string-append #$output path))
+                #t)))))
-                      (("/usr") #$output)
-                      (("(execAndGet\\(\")\\<(cat|fc-list|lspci)\\>"
-                        _ pre cmd)
-                        (string-append
-                          pre (search-input-file
-                                inputs (string-append "bin/" cmd))))
-                      (("\\<cc\\>") (search-input-file inputs "bin/gcc"))
-                      ;; NOTE: Add binutils to inputs will override ld-wrapper.
-                      (("(execAndGet\\(\\(\")\\<nm\\>" _ 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-13
-              jq
               pkg-config
-              hyprwayland-scanner
+              mesa-headers))
-              hwdata-for-hyprland))
       (inputs
-       (list gcc-13
+        (list cairo-for-hyprland
-
+              pango
-             cairo
+              libxkbcommon
-             pango
+              hyprlang
-             pciutils
+              mesa
-             libliftoff
+              wayland-protocols-for-hyprland
-             udis86
+              wlroots-for-hyprland
-
+              linux-pam
-             aquamarine
+              libdrm-for-hyprland
-             hyprcursor
+              libglvnd))
-             hyprland-protocols
+      (home-page "https://github.com/hyprwm/hyprlock")
-             hyprlang
+      (license license:bsd-3)
-             hyprutils
+      (synopsis "Screen locker for Hyprland")
-
+      (description "Screen locker for hyprland."))))
-             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}
-that   doesn't sacrifice on its looks.  It supports multiple layouts, fancy
-effe  cts, has a very flexible IPC model allowing for a lot of customization, and
-more  .")
-      (license license:bsd-3))))
 
 
 (define-public hyprpaper
@@ -427,9 +331,9 @@ more  .")
               pkg-config))
       (inputs
         (list hyprlang
-              wayland-protocols-1.36
+              wayland-protocols-for-hyprland
               wayland
-              cairo
+              cairo-for-hyprland
               libjpeg-turbo
               libwebp
               mesa
@@ -460,7 +364,7 @@ more  .")
               pkg-config))
       (inputs
         (list hyprlang
-              wayland-protocols-1.36
+              wayland-protocols-for-hyprland
               wayland
               sdbus-c++))
       (home-page "https://github.com/hyprwm/hypridle")
@@ -469,207 +373,7 @@ more  .")
       (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.1")
-    (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
-                "0fdbzxanmmzrvb9wfzg1pdsnlg7dl6v5k8bl44w10n48s7bbbzn0"))))
-    (build-system qt-build-system)
-    (arguments
-     (list #:tests? #f                  ;No tests
-           #:qtbase qtbase
-           #: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))
-    (inputs
-     (list bash-minimal
-           grim
-           hyprland
-           hyprland-protocols
-           wayland-protocols-1.36
-           hyprlang
-           mesa
-           pipewire
-           qtwayland
-           sdbus-c++
-           slurp))
-    (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
-  (let ((commit "93759c8032995eb566008537389543b3e1b4a65c")
-        (revision "1"))
-    (package
-      (name "hyprland-plugin-hy3")
-        (version (git-version "0.42.0" revision commit))
-      (source (origin
-                (method git-fetch)
-                (uri (git-reference
-                   (url "https://github.com/outfoxxed/hy3.git")
-                   (commit commit)))
-                (sha256
-                 (base32
-                  "0g59zd5724ply38h14r6hafklb8mh0xwb81i0jzzh3xz0r9pmv3s"))))
-      (build-system cmake-build-system)
-      (arguments
-        (list #:tests? #f
-              #:cmake cmake-minimal-3.27.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)
-      (let ((commit "4fcb4038f23e5273af9a5684f3ee10b0652b3bab")
-            (revision "1"))
-        (package
-          (name (string-append "hyprland-plugin-" plugin))
-          (version (git-version "0.42.0" revision commit))
-          (source
-            (origin
-            (method git-fetch)
-            (uri (git-reference
-                   (url "https://github.com/hyprwm/hyprland-plugins.git")
-                   (commit commit)))
-            (sha256
-              (base32
-                "1i1924a2kmjbp6c6y443hdv53nganj4g6dci20v9imrja21vc6s3"))
-            (file-name (git-file-name name version))))
-          (build-system cmake-build-system)
-          (arguments
-            (list #:tests? #f
-                  #:cmake cmake-minimal-3.27.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-plugins
-  (package
-    (name "hyprland-plugins")
-    (version "0.42.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-impl "borders-plus-plus")
-            (hyprland-plugin-impl "csgo-vulkan-fix")
-            (hyprland-plugin-impl "hyprbars")
-            (hyprland-plugin-impl "hyprexpo")
-            (hyprland-plugin-impl "hyprtrails")
-            (hyprland-plugin-impl "hyprwinwrap")))))
 
 

modules/freya/system.scm

@@ -7,7 +7,6 @@
            #:use-module (gnu packages shells)
            #:use-module (gnu packages tls)
            #:use-module (gnu packages gtk)
-           #:use-module (gnu packages gl)
            #:use-module (gnu packages vpn)
            #:use-module (gnu packages security-token)
            #:use-module (gnu packages virtualization)
@@ -28,11 +27,11 @@
            #:use-module (gnu services virtualization)
            #:use-module (guix packages)
            #:use-module (nongnu packages linux)
+           #:use-module (rosenthal packages wm)
            #:use-module (srfi srfi-1)
            #:use-module (freya packages wm)
            #:use-module (freya packages certs)
            #:use-module (freya packages linux)
-           #:use-module (freya packages gl)
            #:use-module (freya packages networking)
            #:use-module (freya packages virtualization))
 
@@ -85,6 +84,7 @@
                                                            "swayfx"
                                                            "swaybg"
                                                            "swayidle"
+                                                           "hyprland"
                                                            "cage"
                                                            "libnotify"
 
@@ -103,6 +103,7 @@
                                                            "xf86-video-qxl"
 
                                                            ; video audio
+                                                           "mesa"
                                                            "mesa-utils"
                                                            "glu"
                                                            "libglvnd"
@@ -121,6 +122,7 @@
                                                            "xdg-desktop-portal"
                                                            ;"xdg-desktop-portal-wlr"
                                                            "xdg-desktop-portal-gtk"
+                                                           "xdg-desktop-portal-hyprland"
 
                                                            ; firmware
                                                            "sof-firmware"
@@ -170,20 +172,17 @@
                                                            "font-google-noto-sans-cjk"
                                                            "font-jetbrains-mono"
                                                            "font-dejavu"))
-                           (list xdg-desktop-portal-hyprland
+                           (list swaylock-effects-new
-                                 swaylock-effects-new
                                  waybar-new
                                  virt-manager-new
                                  freya-ca-certs
                                  hyprland-plugin-hy3
                                  hyprland-plugins
-                                 hyprland
                                  hyprlock
                                  hyprpaper
                                  hypridle
                                  bluez-new
-                                 blueman-new
+                                 blueman-new)
-                                 mesa)
                            %my-base-packages))
 
          ;; Below is the list of system services. TO search for available