From 6ce35403a5fd5f614827e4867e6793861ea58247 Mon Sep 17 00:00:00 2001
From: Hilton Chain <hako@ultrarare.space>
Date: Tue, 25 Apr 2023 19:55:19 +0800
Subject: [PATCH] rosenthal: Remove waylock.

* rosenthal/packages/wm.scm (waylock): Delete variable.
---
 rosenthal/packages/wm.scm | 53 ---------------------------------------
 1 file changed, 53 deletions(-)

diff --git a/rosenthal/packages/wm.scm b/rosenthal/packages/wm.scm
index f7f053b..5ccad89 100644
--- a/rosenthal/packages/wm.scm
+++ b/rosenthal/packages/wm.scm
@@ -12,19 +12,12 @@
   #:use-module (guix packages)
   #:use-module (guix utils)
   #:use-module (gnu packages gcc)
-  #:use-module (gnu packages gnome)
   #:use-module (gnu packages gtk)
-  #:use-module (gnu packages image)
-  #:use-module (gnu packages linux)
-  #:use-module (gnu packages man)
   #:use-module (gnu packages pciutils)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages web)
   #:use-module (gnu packages wm)
-  #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages xorg)
-  #:use-module (gnu packages zig)
-  #:use-module (rosenthal packages admin)
   #:use-module (rosenthal packages freedesktop)
   #:use-module (rosenthal packages xdisorg))
 
@@ -193,49 +186,3 @@ customization, and more.")
       (synopsis "Hyprland version of Grimshot")
       (description "A Hyprland version of Grimshot.")
       (license license:expat))))
-
-(define-public waylock
-  (package
-    (name "waylock")
-    (version "0.4.2")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append "https://github.com/ifreund/waylock"
-                                  "/releases/download/v" version
-                                  "/waylock-" version".tar.gz"))
-              (sha256
-               (base32
-                "0nvzsi2mbmjvnw475srr2iwqpy3p32sgfkdkm0hsr7c0i2v82f3i"))))
-    (build-system gnu-build-system)
-    (arguments
-     (list #:tests? #f                  ;no tests
-           #:make-flags
-           #~(list "-Dcpu=baseline" "-Dpie" "-Drelease-safe")
-           #:phases
-           #~(modify-phases %standard-phases
-               (delete 'configure)
-               (add-after 'unpack 'set-zig-env
-                 (lambda _
-                   (setenv "CC" #$(cc-for-target))
-                   (setenv "XDG_CACHE_HOME" "no-thanks")))
-               (replace 'build
-                 (lambda* (#:key (make-flags '()) #:allow-other-keys)
-                   (apply invoke "zig" "build" `(,@make-flags))))
-               (replace 'install
-                 (lambda _
-                   (copy-recursively "zig-out" #$output))))))
-    (native-inputs (list pkg-config scdoc zig))
-    (inputs
-     (list libxkbcommon-minimal
-           linux-pam
-           wayland-1.21.0
-           wayland-protocols-1.31))
-    (home-page "https://github.com/ifreund/waylock")
-    (synopsis "Small screenlocker for Wayland compositors")
-    (description
-     "Waylock is a small screenlocker for Wayland compositors implementing
-@code{ext-session-lock-v1}.  The @code{ext-session-lock-v1} protocol is
-significantly more robust than previous client-side Wayland screen locking
-approaches.  Importantly, the screenlocker crashing does not cause the session
-to be unlocked.")
-    (license license:isc)))