From dd38da3e6f4db7b896fd0ed884d4c5af83192bba Mon Sep 17 00:00:00 2001 From: Sisiutl Date: Thu, 23 Jan 2025 15:54:56 +0100 Subject: remove idiotic symbol->string, color codes should be STRINGS --- sigils/home/services/hyprland.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'sigils') diff --git a/sigils/home/services/hyprland.scm b/sigils/home/services/hyprland.scm index 3db3e97..eb6d270 100644 --- a/sigils/home/services/hyprland.scm +++ b/sigils/home/services/hyprland.scm @@ -35,8 +35,8 @@ (define (serialize-term term) (match term - (('rgba color) (list (format #f "rgba(~a)" (symbol->string color)))) - (('rgb color) (list (format #f "rgb(~a)" (symbol->string color)))) + (('rgba color) (list (format #f "rgba(~a)" color))) + (('rgb color) (list (format #f "rgb(~a)" color))) ;; I'd say it's not the most elegant way. (('rgba r g b a) (list (format #f "rgba(~a, ~a, ~a, ~a)" r g b a))) (('rgb r g b) (list (format #f "rgb(~a, ~a, ~a)" r g b))) -- cgit v1.2.3