Commit95c7a883Recorded23 Dec 2025Repositorysigil-studio

Migrate package definitions and structs to keyword syntax

Message

Convert all package.sgl files and struct usage from the older S-expression field syntax:

  (package
    (name "sigil-cli")
    (version "0.0.0"))

To the new keyword argument syntax:

  (package
    name: "sigil-cli"
    version: "0.0.0")

This makes the code more readable and aligns with the keyword argument support added to define-struct in recent commits.

Changed
 package.sgl | 80 ++++++++++++++++++++++++++++++++++++++++----------------------------------------
 1 file changed, 40 insertions(+), 40 deletions(-)
Diff
package.sglmodified
@@ -9,57 +9,57 @@
9
;;; ../../run-sigil run build:test # Build and run test binary
10
11
(package
−12
(name "sigil-studio")
−13
(version "0.0.0")
−14
(description "Multimedia libraries for Sigil")
−15
(license "MIT")
+12
name: "sigil-studio"
+13
version: "0.0.0"
+14
description: "Multimedia libraries for Sigil"
+15
license: "MIT"
16
−17
(source-dirs '("src/sigil"))
+17
source-dirs: '("src/sigil")
18
−19
(configs
+19
configs: (list
20
(config
−21
(name 'dev)
−22
(output-dir "build/dev")
−23
(debug? #t)
−24
(optimize 0)
−25
(c-flags '("-Wall" "-Wextra" "-g" "-O0"))
−26
(features '(debug dev)))
+21
name: 'dev
+22
output-dir: "build/dev"
+23
debug?: #t
+24
optimize: 0
+25
c-flags: '("-Wall" "-Wextra" "-g" "-O0")
+26
features: '(debug dev))
27
28
(config
−29
(name 'release)
−30
(output-dir "build/release")
−31
(debug? #f)
−32
(optimize 2)
−33
(c-flags '("-Wall" "-O2"))
−34
(features '(release))))
+29
name: 'release
+30
output-dir: "build/release"
+31
debug?: #f
+32
optimize: 2
+33
c-flags: '("-Wall" "-O2")
+34
features: '(release)))
35
−36
(default-config 'dev)
+36
default-config: 'dev
37
−38
(libraries
+38
libraries: (list
39
(library
−40
(name 'sigil-studio)
−41
(c-sources '("src/c/sokol.c"
+40
name: 'sigil-studio
+41
c-sources: '("src/c/sokol.c"
42
"src/c/stb_impl.c"
43
"src/c/app.c"
44
"src/c/image.c"
45
"src/c/graphics.c"
46
"src/c/font.c"
−47
"src/c/audio.c"))
−48
(sigil-sources '("src/sigil/studio/app.sgl"
+47
"src/c/audio.c")
+48
sigil-sources: '("src/sigil/studio/app.sgl"
49
"src/sigil/studio/image.sgl"
50
"src/sigil/studio/graphics.sgl"
51
"src/sigil/studio/font.sgl"
−52
"src/sigil/studio/audio.sgl"))))
+52
"src/sigil/studio/audio.sgl")))
53
−54
(tasks
+54
tasks: (list
55
;;; --------------------------------------------------------
56
;;; Native Library Build
57
;;; --------------------------------------------------------
58
59
(task
−60
(name 'build:native)
−61
(description "Build sigil-studio native library")
−62
(steps
+60
name: 'build:native
+61
description: "Build sigil-studio native library"
+62
steps: (list
63
(ensure-dirs dirs: '("obj" "lib"))
64
65
;; Compile Sokol, STB, and wrapper sources
@@ -90,9 +90,9 @@
90
;;; --------------------------------------------------------
91
92
(task
−93
(name 'build:scheme)
−94
(description "Compile Scheme modules")
−95
(steps
+93
name: 'build:scheme
+94
description: "Compile Scheme modules"
+95
steps: (list
96
(ensure-dirs dirs: '("lib/sigil/studio"))
97
98
(compile-sigil-module
@@ -120,20 +120,20 @@
120
;;; --------------------------------------------------------
121
122
(task
−123
(name 'build)
−124
(description "Build everything")
−125
(depends '(build:native build:scheme))
−126
(steps))
+123
name: 'build
+124
description: "Build everything"
+125
depends: '(build:native build:scheme)
+126
steps: '())
127
128
;;; --------------------------------------------------------
129
;;; Test Binary
130
;;; --------------------------------------------------------
131
132
(task
−133
(name 'build:test)
−134
(description "Build test binary")
−135
(depends '(build))
−136
(steps
+133
name: 'build:test
+134
description: "Build test binary"
+135
depends: '(build)
+136
steps: (list
137
(ensure-dirs dirs: '("bin"))
138
139
;; Compile test harness