diff options
Diffstat (limited to '')
| -rw-r--r-- | licentia/source/program/licentia/output.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/licentia/source/program/licentia/output.lux b/licentia/source/program/licentia/output.lux index 3519a88ce..63a70e521 100644 --- a/licentia/source/program/licentia/output.lux +++ b/licentia/source/program/licentia/output.lux @@ -35,16 +35,16 @@ ["." addendum]] ["$" document]]) -(def: #export (definition value) +(def: .public (definition value) (-> Definition Text) (format ($.quote (get@ #definition.term value)) ": " (get@ #definition.meaning value))) -(def: #export (identification value) +(def: .public (identification value) (-> Identification Text) (format (get@ #license.name value) text.new_line (get@ #license.version value))) -(def: #export (grant termination) +(def: .public (grant termination) (-> Termination Text) (`` (format (~~ (template [<title> <content>] [($.block ($.section {#$.title <title> @@ -66,7 +66,7 @@ ["No Retroactive Effect of Termination" grant.no_retroactive_termination]))))) -(def: #export limitation +(def: .public limitation Text (`` (format (~~ (template [<title> <content>] [($.block ($.section {#$.title <title> @@ -81,7 +81,7 @@ [(format "Limitations on " ($.plural _.secondary_license)) limitation.secondary_licenses]))))) -(def: #export assurance +(def: .public assurance Text (`` (format (~~ (template [<title> <content>] [($.block ($.section {#$.title <title> @@ -93,7 +93,7 @@ ["Fair Use" assurance.fair_use]))))) -(def: #export (liability value) +(def: .public (liability value) (-> Liability Text) (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> @@ -121,7 +121,7 @@ (get@ #license.disclaim_high_risk? value) liability.disclaim_high_risk]))))) -(def: #export (distribution distribution) +(def: .public (distribution distribution) (-> Distribution Text) (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> @@ -142,7 +142,7 @@ (get@ #license.can_multi_license? distribution)) (distribution.extension distribution)]))))) -(def: #export (commercial value) +(def: .public (commercial value) (-> Commercial Text) (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> @@ -163,7 +163,7 @@ commercial.disallow_contributor_endorsement] ))))) -(def: #export (extension value) +(def: .public (extension value) (-> Extension Text) (let [[show? document] (case (get@ #license.notification_period value) (#.Some period) @@ -190,7 +190,7 @@ [(get@ #license.must_describe_modifications? value) (format "Description of " ($.plural _.modification)) extension.description_requirement])))))) -(def: #export (attribution value) +(def: .public (attribution value) (-> Attribution Text) (let [copyright_notice (format "Attribution Copyright Notice: " (get@ #license.copyright_notice value)) phrase (case (get@ #license.phrase value) @@ -211,7 +211,7 @@ url image))) -(def: #export (miscellaneous identified?) +(def: .public (miscellaneous identified?) (-> Bit Text) (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> @@ -250,7 +250,7 @@ (def: black_list_spacing (format text.new_line text.new_line)) -(def: #export (license value) +(def: .public (license value) (-> License Text) (let [identification (|> value (get@ #license.identification) |