packages: xdisorg: Add fuzzel-lowercase

radix/packages/xdisorg.scm

@@ -1,4 +1,5 @@
 (define-module (radix packages xdisorg)
+  #:use-module (gnu packages)
   #:use-module (gnu packages cmake)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages man)
@@ -8,7 +9,8 @@
   #:use-module (guix packages)
   #:use-module (guix git-download)
   #:use-module (guix build-system meson)
-  #:use-module ((guix licenses) #:prefix license:))
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module ((radix packages) #:prefix radix:))
 
 (define-public wlrctl
   (package
@@ -61,3 +63,18 @@ Wayland extensions.")
 desktop notifications to the user via a notification daemon implementing XDG
 desktop notifications.")
     (license license:expat)))
+
+(define-public fuzzel-lowercase
+  (package
+    (inherit fuzzel)
+    (source
+      (let ((fuzzel-origin (package-source fuzzel)))
+        (origin
+          (inherit fuzzel-origin)
+          (patches (append (origin-patches fuzzel-origin)
+                           (parameterize ((%patch-path radix:%patch-path))
+                             (search-patches "fuzzel-lowercase.patch")))))))
+    (description
+     (format #f "~a~%~%This version provides a consistent display of
+                 application names by rendering them all in lowercase."
+               (package-description fuzzel)))))