diff options
| author | Arun Isaac | 2025-04-10 02:15:47 +0100 |
|---|---|---|
| committer | Arun Isaac | 2025-04-10 02:17:04 +0100 |
| commit | 6813086ae7450d91339244ebd606eb124f90e847 (patch) | |
| tree | d9c0d4c29d867f6634318e9b45e14a29cdffee93 /sent | |
| parent | a760bff3efa44c282ed119032a6831bdaac79e7b (diff) | |
| download | gexp-make-6813086ae7450d91339244ebd606eb124f90e847.tar.gz gexp-make-6813086ae7450d91339244ebd606eb124f90e847.tar.lz gexp-make-6813086ae7450d91339244ebd606eb124f90e847.zip | |
Reformat code to fit within fill-column.
* sent/make.scm (main): Reformat code to (almost) fit within
fill-column.
Diffstat (limited to 'sent')
| -rw-r--r-- | sent/make.scm | 32 |
1 files changed, 16 insertions, 16 deletions
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") |