From feaa87b822ab1e97ebc4c8258b055e260974e32d Mon Sep 17 00:00:00 2001
From: Carmine Margiotta <email@cmargiotta.net>
Date: Wed, 1 Oct 2025 15:12:02 +0200
Subject: [PATCH] home: services: hyprland: fix nested block serialization
 format

---
 gnu/home/services/hyprland.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/home/services/hyprland.scm b/gnu/home/services/hyprland.scm
index ee228cb3a20..3b716efb0ce 100644
--- a/gnu/home/services/hyprland.scm
+++ b/gnu/home/services/hyprland.scm
@@ -66,8 +66,6 @@
     (((? symbol? name) (? type? value))
      (format #f
              "~v/~a = ~a\n"
-             ;; (if block "~a {\n~a\n}\n"
-             ;;     "~v/~a = ~a\n")
              tabs
              (symbol->string name)
              (value->string value)))))
@@ -125,9 +123,11 @@
     (((? symbol?) (? boolean?))
      (serialize-boolean entry tabs))
     (((? symbol? key) (? block-entries? value))
-     (string-append
-      (symbol->string key) " {\n"
-      (serialize-block-entries value (+ tabs 1)) "}"))
+     (format #f "~v/~a {\n~a~v/}\n"
+             tabs
+             (symbol->string key)
+             (serialize-block-entries value (+ tabs 1))
+             tabs))
     ((_) "\n")))
 
 (define block-entries?