From 5cf4efa861075f8276f43a2516f5beacaf610b44 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 2 Jul 2021 03:11:36 -0400
Subject: No longer employing the capabilities model on the lux/world/*
 modules.

Capabilities should be opt-in, but using them in the standard library makes them mandatory.---
 stdlib/source/program/aedifex/metadata.lux | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

(limited to 'stdlib/source/program/aedifex/metadata.lux')

diff --git a/stdlib/source/program/aedifex/metadata.lux b/stdlib/source/program/aedifex/metadata.lux
index 08dab9ed3..86981eb62 100644
--- a/stdlib/source/program/aedifex/metadata.lux
+++ b/stdlib/source/program/aedifex/metadata.lux
@@ -1,12 +1,34 @@
 (.module:
   [lux #*
+   [data
+    [text
+     ["%" format (#+ format)]]]
    [world
-    [file (#+ Path)]]])
+    [file (#+ Path)]
+    [net
+     ["." uri (#+ URI)]]]]
+  ["." // #_
+   ["#." artifact (#+ Artifact)]])
 
 (def: #export remote_file
   Path
   "maven-metadata.xml")
 
+(def: #export (remote_artifact_uri artifact)
+  (-> Artifact URI)
+  (let [/ uri.separator]
+    (format (get@ #//artifact.group artifact)
+            / (get@ #//artifact.name artifact)
+            / (get@ #//artifact.version artifact)
+            / ..remote_file)))
+
+(def: #export (remote_project_uri artifact)
+  (-> Artifact URI)
+  (let [/ uri.separator]
+    (format (get@ #//artifact.group artifact)
+            / (get@ #//artifact.name artifact)
+            / ..remote_file)))
+
 (def: #export local_file
   Path
   "maven-metadata-local.xml")
-- 
cgit v1.2.3