From 6813086ae7450d91339244ebd606eb124f90e847 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 10 Apr 2025 02:15:47 +0100
Subject: Reformat code to fit within fill-column.

* sent/make.scm (main): Reformat code to (almost) fit within
fill-column.
---
 sent/make.scm | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'sent')

diff --git a/sent/make.scm b/sent/make.scm
index 2ec3034..9525580 100644
--- a/sent/make.scm
+++ b/sent/make.scm
@@ -44,22 +44,22 @@
                               (file-append libxrender "/include")
                               (file-append xorgproto "/include")))))
   (link "sent"
-        (list (compile "sent/sent.c"
-                       #:flags (list "-DVERSION=\"1\""
-                                     "-I" include-dependencies
-                                     "-I" (file-union "include"
-                                                      `(("arg.h" ,(local-file "sent/arg.h"))
-                                                        ("config.h" ,(local-file "sent/config.def.h"))
-                                                        ("drw.h" ,(local-file "sent/drw.h"))
-                                                        ("util.h" ,(local-file "sent/util.h"))))))
-              (compile "sent/drw.c"
-                       #:flags (list "-I" include-dependencies
-                                     "-I" (file-union "include"
-                                                      `(("drw.h" ,(local-file "sent/drw.h"))
-                                                        ("util.h" ,(local-file "sent/util.h"))))))
-              (compile "sent/util.c"
-                       #:flags (list "-I" (file-union "include"
-                                                      `(("util.h" ,(local-file "sent/util.h")))))))
+        (list (let ((headers `(("arg.h" ,(local-file "sent/arg.h"))
+                               ("config.h" ,(local-file "sent/config.def.h"))
+                               ("drw.h" ,(local-file "sent/drw.h"))
+                               ("util.h" ,(local-file "sent/util.h")))))
+                (compile "sent/sent.c"
+                         #:flags (list "-DVERSION=\"1\""
+                                       "-I" include-dependencies
+                                       "-I" (file-union "include" headers))))
+              (let ((headers `(("drw.h" ,(local-file "sent/drw.h"))
+                               ("util.h" ,(local-file "sent/util.h")))))
+                (compile "sent/drw.c"
+                         #:flags (list "-I" include-dependencies
+                                       "-I" (file-union "include" headers))))
+              (let ((headers `(("util.h" ,(local-file "sent/util.h")))))
+                (compile "sent/util.c"
+                         #:flags (list "-I" (file-union "include" headers)))))
         #:flags (list "-L" (file-append fontconfig "/lib")
                       "-L" (file-append libx11 "/lib")
                       "-L" (file-append libxft "/lib")
-- 
cgit v1.2.3