diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/licentia/document.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/licentia/license/definition.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/licentia/license/term.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/licentia/output.lux | 16 |
4 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/program/licentia/document.lux b/stdlib/source/program/licentia/document.lux index c04cd9d72..1fd0189eb 100644 --- a/stdlib/source/program/licentia/document.lux +++ b/stdlib/source/program/licentia/document.lux @@ -27,7 +27,7 @@ (|>> (list;map ..sentence) (text.join-with text.new-line))) -(do-template [<name> <word>] +(template [<name> <word>] [(def: #export <name> (-> (List Text) Text) (text.join-with (format ", " <word> " ")))] diff --git a/stdlib/source/program/licentia/license/definition.lux b/stdlib/source/program/licentia/license/definition.lux index 681f521e7..fea7b91f4 100644 --- a/stdlib/source/program/licentia/license/definition.lux +++ b/stdlib/source/program/licentia/license/definition.lux @@ -43,7 +43,7 @@ (def: covered-work-description "work of authorship") -(do-template [<name> <term> <meaning>] +(template [<name> <term> <meaning>] [(def: #export <name> Definition {#term <term> diff --git a/stdlib/source/program/licentia/license/term.lux b/stdlib/source/program/licentia/license/term.lux index 9e81cf666..31b3e4b5d 100644 --- a/stdlib/source/program/licentia/license/term.lux +++ b/stdlib/source/program/licentia/license/term.lux @@ -6,7 +6,7 @@ [// ["." definition]]) -(do-template [<term> <definition>] +(template [<term> <definition>] [(def: #export <term> Text (get@ #definition.term <definition>))] diff --git a/stdlib/source/program/licentia/output.lux b/stdlib/source/program/licentia/output.lux index 29d61dd42..43080697e 100644 --- a/stdlib/source/program/licentia/output.lux +++ b/stdlib/source/program/licentia/output.lux @@ -43,7 +43,7 @@ (def: #export (grant termination) (-> Termination Text) - (`` (format (~~ (do-template [<title> <content>] + (`` (format (~~ (template [<title> <content>] [($.block ($.section {#$.title <title> #$.content <content>}))] @@ -65,7 +65,7 @@ (def: #export limitation Text - (`` (format (~~ (do-template [<title> <content>] + (`` (format (~~ (template [<title> <content>] [($.block ($.section {#$.title <title> #$.content <content>}))] @@ -80,7 +80,7 @@ (def: #export assurance Text - (`` (format (~~ (do-template [<title> <content>] + (`` (format (~~ (template [<title> <content>] [($.block ($.section {#$.title <title> #$.content <content>}))] @@ -92,7 +92,7 @@ (def: #export (liability value) (-> Liability Text) - (`` (format (~~ (do-template [<title> <condition> <content>] + (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> ($.block ($.section {#$.title <title> #$.content <content>})) @@ -120,7 +120,7 @@ (def: #export (distribution distribution) (-> Distribution Text) - (`` (format (~~ (do-template [<title> <condition> <content>] + (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> ($.block ($.section {#$.title <title> #$.content <content>})) @@ -141,7 +141,7 @@ (def: #export (commercial value) (-> Commercial Text) - (`` (format (~~ (do-template [<title> <condition> <content>] + (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> ($.block ($.section {#$.title <title> #$.content <content>})) @@ -168,7 +168,7 @@ #.None [false ""])] - (`` (format (~~ (do-template [<condition> <title> <content>] + (`` (format (~~ (template [<condition> <title> <content>] [(if <condition> ($.block ($.section {#$.title <title> #$.content <content>})) @@ -210,7 +210,7 @@ (def: #export (miscellaneous identified?) (-> Bit Text) - (`` (format (~~ (do-template [<title> <condition> <content>] + (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> ($.block ($.section {#$.title <title> #$.content <content>})) |