diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/format.lux | 39 |
1 files changed, 24 insertions, 15 deletions
diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux index 594b91014..771bcc9de 100644 --- a/stdlib/source/program/aedifex/format.lux +++ b/stdlib/source/program/aedifex/format.lux @@ -28,31 +28,31 @@ (def (license [name url type]) (Format /.License) - (`' [#name (, (code.text name)) - #url (, (code.text url)) - #type (, (when type - {/.#Repo} - (' "repo") + (`' ["name" (, (code.text name)) + "url" (, (code.text url)) + "type" (, (when type + {/.#Repo} + (' "repo") - {/.#Manual} - (' "manual")))])) + {/.#Manual} + (' "manual")))])) (def (organization [name url]) (Format /.Organization) - (`' [#name (, (code.text name)) - #url (, (code.text url))])) + (`' ["name" (, (code.text name)) + "url" (, (code.text url))])) (def (developer [name url organization]) (Format /.Developer) (when organization {.#None} - (`' [#name (, (code.text name)) - #url (, (code.text url))]) + (`' ["name" (, (code.text name)) + "url" (, (code.text url))]) {.#Some value} - (`' [#name (, (code.text name)) - #url (, (code.text url)) - #organization (, (..organization value))]))) + (`' ["name" (, (code.text name)) + "url" (, (code.text url)) + "organization" (, (..organization value))]))) (def contributor (Format /.Contributor) @@ -156,10 +156,18 @@ (` [(, (code.symbol definition)) (,* (list#each code.text parameters))])) +(def configuration + (Format /.Configuration) + (|>> (list#each (function (_ [setting value]) + (list (code.text setting) + (code.text value)))) + list#conjoint + code.tuple)) + (def .public lux_compiler_label "lux") -(def (profile value) +(def .public (profile value) (Format /.Profile) (`` (|> ..empty (..on_list "parents" (the /.#parents value) code.text) @@ -174,6 +182,7 @@ (..on_maybe "program" (the /.#program value) code.symbol) (..on_maybe "test" (the /.#test value) code.symbol) (..on_dictionary "deploy_repositories" (the /.#deploy_repositories value) code.text code.text) + (dictionary.has "configuration" (..configuration (the /.#configuration value))) (,, (with_template [<tag>] [(dictionary.has (template.text [<tag>]) (..runtime (the <tag> value)))] |