From f9933fb9e471eaeba14b0af9aaef1d5eee462171 Mon Sep 17 00:00:00 2001 From: Luis Guilherme Coelho Date: Thu, 10 Oct 2024 12:43:52 -0300 Subject: [PATCH] packages: xdisorg: Add fuzzel-lowercase --- radix/packages/xdisorg.scm | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/radix/packages/xdisorg.scm b/radix/packages/xdisorg.scm index 19d0f8b..08caa04 100644 --- a/radix/packages/xdisorg.scm +++ b/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)))))