38 lines
1004 B
Plaintext
38 lines
1004 B
Plaintext
let Sigil = env:DHALL_SIGIL
|
|
|
|
let Init = Sigil.Init
|
|
|
|
let Child = Init.Child
|
|
|
|
let Libc = Sigil.Libc
|
|
|
|
in λ(binary : Text) →
|
|
Child.flat
|
|
Child.Attributes::{
|
|
, binary
|
|
, resources = Sigil.Init.Resources::{
|
|
, caps = 256
|
|
, ram = Sigil.units.MiB 16
|
|
}
|
|
, config =
|
|
let cfg =
|
|
Libc.toConfig
|
|
Libc::{
|
|
, rtc = None Text
|
|
, vfs =
|
|
[ VFS.dir "dev" [ VFS.leaf "null", VFS.leaf "log" ]
|
|
, VFS.leafAttrs "rom" (toMap { name = "backdrop.png" })
|
|
]
|
|
}
|
|
|
|
in cfg
|
|
with content =
|
|
cfg.content
|
|
# [ XML.leaf
|
|
{ name = "image"
|
|
, attributes = toMap
|
|
{ png = "backdrop.png", anchor = "bottomright" }
|
|
}
|
|
]
|
|
}
|