new hyprpaper package

1 files changed, 48 insertions, 20 deletions

diff --git a/sigils/packages/hyprland.scm b/sigils/packages/hyprland.scm
index 32a599f..5c494a2 100644
--- a/sigils/packages/hyprland.scm
+++ b/sigils/packages/hyprland.scm
@@ -9,26 +9,27 @@
   #:use-module (guix build-system meson)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
-  #:use-module (gnu packages freedesktop)
-  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages admin)
   #:use-module (gnu packages assembly)
-  #:use-module (gnu packages pkg-config)
-  #:use-module (gnu packages gl)
-  #:use-module (gnu packages glib)
-  #:use-module (gnu packages cmake)
+  #:use-module (gnu packages autotools)
   #:use-module (gnu packages build-tools)
-  #:use-module (gnu packages xml)
+  #:use-module (gnu packages cmake)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages cpp)
+  #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gcc)
-  #:use-module (gnu packages wm)
+  #:use-module (gnu packages gl)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages image)
   #:use-module (gnu packages pciutils)
-  #:use-module (gnu packages admin)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages wm)
   #:use-module (gnu packages xdisorg)
-  #:use-module (gnu packages xorg)
-  #:use-module (gnu packages gtk)
-  #:use-module (gnu packages compression)
-  #:use-module (gnu packages gnome)
-  #:use-module (gnu packages cpp)
-  #:use-module (gnu packages python))
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages xorg))
 
 ;;; To upstream before the heat death of the universe
 
@@ -271,11 +272,6 @@ replacement for XCursor.")
     (arguments (list #:meson meson-1.5
                      #:configure-flags '(list "-Dxwayland=enabled"
                                               "-Dsystemd=disabled")))
-                     ;; #:phases #~(modify-phases %standard-phases
-                     ;;              (add-after 'unpack 'patch-xwayland
-                     ;;                (lambda* (#:key inputs #:allow-other-keys)
-                     ;;                  (substitute* "src/xwayland/Server.cpp"
-                     ;;                    (("Xwayland \\{\\}") #$(file-append xorg-server-xwayland "/bin/Xwayland"))))))))
     (native-inputs (list gcc-14 ;; TODO: remove this when GCC 14 is the default
                          pkg-config
                          cmake-minimal
@@ -351,3 +347,35 @@ replacement for XCursor.")
       (synopsis "awesome / dwm like workspaces for hyprland")
       (description "hyprland plugin for separate sets of workspaces on each monitor")
       (license license:bsd-3))))
+
+(define-public hyprpaper
+  (package
+    (name "hyprpaper")
+    (version "0.7.1")
+    (home-page "https://hyprland.org/")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://code.hyprland.org/hyprwm/hyprpaper")
+             (commit (string-append "v" version))))
+       (sha256
+        (base32 "10yb2853fd0ljxijwkqm146bnirzpghfc5kw080ws24hjmfbp0hw"))))
+    (build-system cmake-build-system)
+    (native-inputs (list gcc-13 ;; TODO: remove this when GCC 13 is the default
+                         pkg-config
+                         hyprwayland-scanner))
+    (inputs (list wayland-next
+                  wayland-protocols-next
+                  pango
+                  cairo
+                  libglvnd
+                  libjpeg-turbo
+                  libwebp
+                  hyprlang
+                  hyprutils))
+    (arguments '(#:tests? #f))
+    (synopsis "Wallpaper utility with IPC controls")
+    (description "Hyprpaper is a wallpaper utility for Hyprland with the
+ability to dynamically change wallpapers through sockets")
+    (license license:bsd-3)))