tasks/info.mn
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
null "cfg_author" let
null "cfg_version" let
null "cfg_name" let
null "cfg_description" let
"mn.yml" read "\n" split
(
; Process each line
":" split (parts) let
(parts size 1 >)
(
parts 0 get strip (name) let
parts 1 get strip (value) let
value "cfg_$#" (name) interpolate bind
) when
) foreach
(
"$# v$# - $#" (cfg_name cfg_version cfg_description) interpolate puts pop
) (info__default) lambda
|