From e6e301ac5614c922a8c4f9c355d053ee80faa6d7 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Sat, 27 Dec 2025 22:14:44 +0000
Subject: [PATCH] gnu: Remove beanbag.

* gnu/packages/zig-xyz.scm (beanbag): Delete variable.

Fixes: guix/guix#4390
Change-Id: I9d63ae691cd3ee4adf6d49a7210a1720af6f6fdd
---
 gnu/packages/zig-xyz.scm | 58 ----------------------------------------
 1 file changed, 58 deletions(-)

diff --git a/gnu/packages/zig-xyz.scm b/gnu/packages/zig-xyz.scm
index 1991dd4dbef3ab58ae7582ab007ab9967dc346b9..06951d36586c01b0968801f4cf74b92cc8607c63 100644
--- a/gnu/packages/zig-xyz.scm
+++ b/gnu/packages/zig-xyz.scm
@@ -43,64 +43,6 @@
   #:use-module (gnu packages xorg)
   #:use-module (gnu packages zig))
 
-(define-public beanbag
-  (package
-    (name "beanbag")
-    (version "0.1.1")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://codeberg.org/bwbuhse/beanbag")
-             (commit (string-append "v" version))))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "1d2h5bqicqnyawswdq7bg1w9frjk0ra2sva1as2qgc5s7pjclyql"))
-       (snippet (rename-zig-dependencies '(("clap" . "zig-clap")
-                                           ("zigimg" . "zig-zigimg"))))))
-    (build-system zig-build-system)
-    (arguments
-     (list
-      #:install-source? #f
-      #:zig-release-type "safe"
-      #:phases
-      #~(modify-phases %standard-phases
-          (add-after 'unpack 'remove-deps
-            (lambda* (#:key inputs #:allow-other-keys)
-              (delete-file-recursively "protocol")
-              (substitute* "build.zig"
-                (("protocol/(wlr-layer-shell-unstable-v1.xml)" _ file)
-                 (string-append
-                  (search-input-file
-                   inputs
-                   (in-vicinity "share/wlr-protocols/unstable/" file)))))))
-          ;; TODO: Support test-target when changing zig-build-system next time.
-          (replace 'check
-            (lambda* (#:key tests? zig-test-flags target parallel-tests?
-                      #:allow-other-keys)
-              (when (and tests? (not target))
-                (let ((old-destdir (getenv "DESTDIR")))
-                  (setenv "DESTDIR" "test-out") ;; Avoid colisions with the build output
-                  (let ((call `("zig" "build" "check" "--verbose"
-                                ,(string-append
-                                  "-j" (if parallel-tests?
-                                           (number->string (parallel-job-count))
-                                           "1"))
-                                ,@zig-test-flags)))
-                    (format #t "running: ~s~%" call)
-                    (apply invoke call))
-                  (if old-destdir
-                      (setenv "DESTDIR" old-destdir)
-                      (unsetenv "DESTDIR")))))))))
-    (inputs (list wlr-protocols zig-clap zig-pixman zig-wayland zig-zigimg))
-    (native-inputs (list pkg-config))
-    (home-page "https://codeberg.org/bwbuhse/beanbag")
-    (synopsis "Wallpaper application for Wayland compositors")
-    (description
-     "@command{beanbag} is a wallpaper application for Wayland compositors,
-heavily inspired by @code{wbg}.")
-    (license license:gpl3+)))
-
 (define-public poop
   (package
     (name "poop")