@nfdi4plants/arctrl 1.0.0-alpha6 → 1.0.0-alpha7

package/ISA/ISA/ArcTypes/ArcTableAux.js

@@ -570,75 +570,39 @@ export function JsonTypes_composeProcessOutput(header, value) {
  */
 export function JsonTypes_cellOfValue(value, unit) {
     const value_2 = defaultArg(value, new Value(3, [""]));
-    let matchResult, oa, text, u, f, u_1, f_1, i, u_2, i_1;
     switch (value_2.tag) {
-        case 3: {
+        case 3:
             if (unit != null) {
-                if (value_2.fields[0] === "") {
-                    matchResult = 2;
-                    u = unit;
-                }
-                else {
-                    matchResult = 7;
-                }
+                const u = unit;
+                return new CompositeCell(2, [value_2.fields[0], u]);
             }
             else {
-                matchResult = 1;
-                text = value_2.fields[0];
+                return new CompositeCell(1, [value_2.fields[0]]);
             }
-            break;
-        }
-        case 2: {
+        case 2:
             if (unit == null) {
-                matchResult = 4;
-                f_1 = value_2.fields[0];
+                return new CompositeCell(1, [value_2.fields[0].toString()]);
             }
             else {
-                matchResult = 3;
-                f = value_2.fields[0];
-                u_1 = unit;
+                const u_1 = unit;
+                return new CompositeCell(2, [value_2.fields[0].toString(), u_1]);
             }
-            break;
-        }
-        case 1: {
+        case 1:
             if (unit == null) {
-                matchResult = 6;
-                i_1 = value_2.fields[0];
+                return new CompositeCell(1, [int32ToString(value_2.fields[0])]);
             }
             else {
-                matchResult = 5;
-                i = value_2.fields[0];
-                u_2 = unit;
+                const u_2 = unit;
+                return new CompositeCell(2, [int32ToString(value_2.fields[0]), u_2]);
             }
-            break;
-        }
         default:
             if (unit == null) {
-                matchResult = 0;
-                oa = value_2.fields[0];
+                return new CompositeCell(0, [value_2.fields[0]]);
             }
             else {
-                matchResult = 7;
+                return toFail(printf("Could not parse value %O with unit %O"))(value_2)(unit);
             }
     }
-    switch (matchResult) {
-        case 0:
-            return new CompositeCell(0, [oa]);
-        case 1:
-            return new CompositeCell(1, [text]);
-        case 2:
-            return new CompositeCell(2, ["", u]);
-        case 3:
-            return new CompositeCell(2, [f.toString(), u_1]);
-        case 4:
-            return new CompositeCell(1, [f_1.toString()]);
-        case 5:
-            return new CompositeCell(2, [int32ToString(i), u_2]);
-        case 6:
-            return new CompositeCell(1, [int32ToString(i_1)]);
-        default:
-            return toFail(printf("Could not parse value %O with unit %O"))(value_2)(unit);
-    }
 }
 
 /**

package/Templates/{Templates.Json.js → Template.Json.js}

@@ -1,15 +1,17 @@
 import { toString } from "../fable_modules/fable-library.4.1.4/Types.js";
-import { datetimeUtc, array, map as map_2, list as list_2, guid as guid_1, object as object_1, string, succeed, andThen } from "../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
+import { dict, fromString, datetimeUtc, array as array_1, map as map_2, list as list_2, guid as guid_1, object as object_1, string, succeed, andThen } from "../fable_modules/Thoth.Json.10.1.0/Decode.fs.js";
 import { uncurry2, uncurry3 } from "../fable_modules/fable-library.4.1.4/Util.js";
-import { Template, Organisation } from "./Templates.js";
+import { Template, Organisation } from "./Template.js";
 import { ConverterOptions_$ctor } from "../ISA/ISA.Json/ConverterOptions.js";
 import { decoder as decoder_2, encoder } from "../ISA/ISA.Json/Person.js";
 import { OntologyAnnotation_decoder, OntologyAnnotation_encoder } from "../ISA/ISA.Json/Ontology.js";
-import { datetime, list as list_1, guid, object } from "../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
-import { map } from "../fable_modules/fable-library.4.1.4/List.js";
+import { toString as toString_1, datetime, list as list_1, guid, object } from "../fable_modules/Thoth.Json.10.1.0/Encode.fs.js";
+import { ofArray, map } from "../fable_modules/fable-library.4.1.4/List.js";
 import { Process_decoder, Process_encoder } from "../ISA/ISA.Json/Process.js";
 import { map as map_1, delay, toList } from "../fable_modules/fable-library.4.1.4/Seq.js";
 import { ArcTables_fromProcesses_134EBDED, ArcTables__get_Item_Z524259A4 } from "../ISA/ISA/ArcTypes/ArcTables.js";
+import { printf, toFail } from "../fable_modules/fable-library.4.1.4/String.js";
+import { defaultArg } from "../fable_modules/fable-library.4.1.4/Option.js";
 
 export const Organisation_encode = toString;
 
@@ -34,7 +36,49 @@ export const Template_decode = (() => {
     const oaDecoder = OntologyAnnotation_decoder(ConverterOptions_$ctor());
     return (path_10) => ((v) => object_1((get$) => {
         let objectArg, arg_3, d, decoder, objectArg_1, objectArg_2, objectArg_3, objectArg_4, objectArg_5, objectArg_6, objectArg_7, objectArg_8, objectArg_9;
-        return Template.create((objectArg = get$.Required, objectArg.Field("id", guid_1)), (arg_3 = ((d = ((decoder = Process_decoder(ConverterOptions_$ctor()), (path_1) => ((value_1) => list_2(uncurry2(decoder), path_1, value_1)))), (path_2) => ((value_2) => map_2((ps) => ArcTables__get_Item_Z524259A4(ArcTables_fromProcesses_134EBDED(ps), 0), uncurry2(d), path_2, value_2)))), (objectArg_1 = get$.Required, objectArg_1.Field("table", uncurry2(arg_3)))), (objectArg_2 = get$.Required, objectArg_2.Field("name", string)), (objectArg_3 = get$.Required, objectArg_3.Field("description", string)), (objectArg_4 = get$.Required, objectArg_4.Field("organisation", uncurry2(Organisation_decode))), (objectArg_5 = get$.Required, objectArg_5.Field("version", string)), (objectArg_6 = get$.Required, objectArg_6.Field("authors", (path_6, value_6) => array(uncurry2(personDecoder), path_6, value_6))), (objectArg_7 = get$.Required, objectArg_7.Field("endpoint_repositories", (path_7, value_7) => array(uncurry2(oaDecoder), path_7, value_7))), (objectArg_8 = get$.Required, objectArg_8.Field("tags", (path_8, value_8) => array(uncurry2(oaDecoder), path_8, value_8))), (objectArg_9 = get$.Required, objectArg_9.Field("last_updated", datetimeUtc)));
+        return Template.create((objectArg = get$.Required, objectArg.Field("id", guid_1)), (arg_3 = ((d = ((decoder = Process_decoder(ConverterOptions_$ctor()), (path_1) => ((value_1) => list_2(uncurry2(decoder), path_1, value_1)))), (path_2) => ((value_2) => map_2((ps) => ArcTables__get_Item_Z524259A4(ArcTables_fromProcesses_134EBDED(ps), 0), uncurry2(d), path_2, value_2)))), (objectArg_1 = get$.Required, objectArg_1.Field("table", uncurry2(arg_3)))), (objectArg_2 = get$.Required, objectArg_2.Field("name", string)), (objectArg_3 = get$.Required, objectArg_3.Field("description", string)), (objectArg_4 = get$.Required, objectArg_4.Field("organisation", uncurry2(Organisation_decode))), (objectArg_5 = get$.Required, objectArg_5.Field("version", string)), (objectArg_6 = get$.Required, objectArg_6.Field("authors", (path_6, value_6) => array_1(uncurry2(personDecoder), path_6, value_6))), (objectArg_7 = get$.Required, objectArg_7.Field("endpoint_repositories", (path_7, value_7) => array_1(uncurry2(oaDecoder), path_7, value_7))), (objectArg_8 = get$.Required, objectArg_8.Field("tags", (path_8, value_8) => array_1(uncurry2(oaDecoder), path_8, value_8))), (objectArg_9 = get$.Required, objectArg_9.Field("last_updated", datetimeUtc)));
     }, path_10, v));
 })();
 
+export function Template_decodeFromString(jsonString) {
+    const matchValue = fromString(uncurry2(Template_decode), jsonString);
+    if (matchValue.tag === 1) {
+        return toFail(printf("Error. Given json string cannot be parsed to Template: %A"))(matchValue.fields[0]);
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function Template_encodeToString(spaces, template) {
+    return toString_1(spaces, Template_encode(template));
+}
+
+export function Templates_encode(templateList) {
+    return object(map((tupledArg) => [tupledArg[0], Template_encode(tupledArg[1])], ofArray(templateList)));
+}
+
+export const Templates_decode = (() => {
+    const d = dict(uncurry2(Template_decode));
+    return (value) => fromString(uncurry2(d), value);
+})();
+
+export function Templates_decodeFromString(jsonString) {
+    const matchValue = Templates_decode(jsonString);
+    if (matchValue.tag === 1) {
+        return toFail(printf("Error. Given json string cannot be parsed to Templates map: %A"))(matchValue.fields[0]);
+    }
+    else {
+        return matchValue.fields[0];
+    }
+}
+
+export function Templates_encodeToString(spaces, templateList) {
+    return toString_1(spaces, Templates_encode(templateList));
+}
+
+export function ARCtrl_Template_Template__Template_ToJson_71136F3F(this$, spaces) {
+    const spaces_1 = defaultArg(spaces, 0) | 0;
+    return (template) => Template_encodeToString(spaces_1, template);
+}
+

package/Templates/{Templates.Spreadsheet.js → Template.Spreadsheet.js}

@@ -14,7 +14,7 @@ import { Person } from "../ISA/ISA/JsonTypes/Person.js";
 import { toArray } from "../fable_modules/fable-library.4.1.4/Option.js";
 import { toRows as toRows_1, fromRows as fromRows_1 } from "../ISA/ISA.Spreadsheet/Metadata/Contacts.js";
 import { parse } from "../fable_modules/fable-library.4.1.4/Guid.js";
-import { Template, Organisation } from "./Templates.js";
+import { Template, Organisation } from "./Template.js";
 import { FsWorksheet } from "../fable_modules/FsSpreadsheet.4.1.0/FsWorksheet.fs.js";
 import { printf, toFail } from "../fable_modules/fable-library.4.1.4/String.js";
 import { toFsWorksheet, tryFromFsWorksheet } from "../ISA/ISA.Spreadsheet/AnnotationTable/ArcTable.js";
@@ -73,7 +73,7 @@ export class Metadata_Template_TemplateInfo extends Record {
 }
 
 export function Metadata_Template_TemplateInfo_$reflection() {
-    return record_type("ARCtrl.Templates.Spreadsheet.Metadata.Template.TemplateInfo", [], Metadata_Template_TemplateInfo, () => [["Id", string_type], ["Name", string_type], ["Version", string_type], ["Description", string_type], ["Organisation", string_type], ["Table", string_type], ["Comments", list_type(Comment$_$reflection())]]);
+    return record_type("ARCtrl.Template.Spreadsheet.Metadata.Template.TemplateInfo", [], Metadata_Template_TemplateInfo, () => [["Id", string_type], ["Name", string_type], ["Version", string_type], ["Description", string_type], ["Organisation", string_type], ["Table", string_type], ["Comments", list_type(Comment$_$reflection())]]);
 }
 
 export function Metadata_Template_TemplateInfo_create(id, name, version, description, organisation, table, comments) {
@@ -93,7 +93,7 @@ export function Metadata_Template_TemplateInfo_FromSparseTable_651559CC(matrix)
     return Metadata_Template_TemplateInfo_create(SparseTable__TryGetValueDefault_5BAE6133(matrix, createMissingIdentifier(), ["Id", 0]), SparseTable__TryGetValueDefault_5BAE6133(matrix, "", ["Name", 0]), SparseTable__TryGetValueDefault_5BAE6133(matrix, "", ["Version", 0]), SparseTable__TryGetValueDefault_5BAE6133(matrix, "", ["Description", 0]), SparseTable__TryGetValueDefault_5BAE6133(matrix, "", ["Organisation", 0]), SparseTable__TryGetValueDefault_5BAE6133(matrix, "", ["Table", 0]), comments);
 }
 
-export function Metadata_Template_TemplateInfo_ToSparseTable_Z71FCD534(template) {
+export function Metadata_Template_TemplateInfo_ToSparseTable_2285DF3F(template) {
     let copyOfStruct, copyOfStruct_1;
     const matrix = SparseTable_Create_Z2192E64B(void 0, Metadata_Template_TemplateInfo_get_Labels(), void 0, 2);
     let commentKeys = empty();
@@ -114,8 +114,8 @@ export function Metadata_Template_TemplateInfo_fromRows_9F97F2A(rows) {
     return [tupledArg[0], Metadata_Template_TemplateInfo_FromSparseTable_651559CC(tupledArg[3])];
 }
 
-export function Metadata_Template_TemplateInfo_toRows_Z71FCD534(template) {
-    return SparseTable_ToRows_6A3D4534(Metadata_Template_TemplateInfo_ToSparseTable_Z71FCD534(template));
+export function Metadata_Template_TemplateInfo_toRows_2285DF3F(template) {
+    return SparseTable_ToRows_6A3D4534(Metadata_Template_TemplateInfo_ToSparseTable_2285DF3F(template));
 }
 
 export function Metadata_Template_mapDeprecatedKeys(rows) {
@@ -247,7 +247,7 @@ export function Metadata_Template_fromRows(rows) {
 }
 
 export function Metadata_Template_toRows(template) {
-    return delay(() => append(singleton(SparseRowModule_fromValues(["TEMPLATE"])), delay(() => append(Metadata_Template_TemplateInfo_toRows_Z71FCD534(template), delay(() => append(singleton(SparseRowModule_fromValues(["ERS"])), delay(() => append(Metadata_ER_toRows(void 0, ofArray(template.EndpointRepositories)), delay(() => append(singleton(SparseRowModule_fromValues(["TAGS"])), delay(() => append(Metadata_Tags_toRows(void 0, ofArray(template.Tags)), delay(() => append(singleton(SparseRowModule_fromValues(["AUTHORS"])), delay(() => toRows_1("Author", ofArray(template.Authors)))))))))))))))));
+    return delay(() => append(singleton(SparseRowModule_fromValues(["TEMPLATE"])), delay(() => append(Metadata_Template_TemplateInfo_toRows_2285DF3F(template), delay(() => append(singleton(SparseRowModule_fromValues(["ERS"])), delay(() => append(Metadata_ER_toRows(void 0, ofArray(template.EndpointRepositories)), delay(() => append(singleton(SparseRowModule_fromValues(["TAGS"])), delay(() => append(Metadata_Tags_toRows(void 0, ofArray(template.Tags)), delay(() => append(singleton(SparseRowModule_fromValues(["AUTHORS"])), delay(() => toRows_1("Author", ofArray(template.Authors)))))))))))))))));
 }
 
 export function Template_fromParts(templateInfo, ers, tags, authors, table, lastUpdated) {

package/Templates/Template.Web.js

@@ -0,0 +1,13 @@
+import { defaultArg } from "../fable_modules/fable-library.4.1.4/Option.js";
+import { singleton } from "../fable_modules/fable-library.4.1.4/AsyncBuilder.js";
+import { downloadFile } from "../WebRequest/WebRequest.js";
+import { Templates_decodeFromString } from "./Template.Json.js";
+
+export function getTemplates(url) {
+    const url_1 = defaultArg(url, "https://github.com/nfdi4plants/Swate-templates/releases/download/latest/templates.json");
+    return singleton.Delay(() => singleton.Bind(downloadFile(url_1), (_arg) => {
+        const mapResult = Templates_decodeFromString(_arg);
+        return singleton.Return(mapResult);
+    }));
+}
+

package/Templates/{Templates.js → Template.js}

@@ -31,7 +31,7 @@ export class Organisation extends Union {
 }
 
 export function Organisation_$reflection() {
-    return union_type("ARCtrl.Templates.Organisation", [], Organisation, () => [[], [["Item", string_type]]]);
+    return union_type("ARCtrl.Template.Organisation", [], Organisation, () => [[], [["Item", string_type]]]);
 }
 
 export class Template {
@@ -170,10 +170,10 @@ export class Template {
 }
 
 export function Template_$reflection() {
-    return class_type("ARCtrl.Templates.Template", void 0, Template);
+    return class_type("ARCtrl.Template.Template", void 0, Template);
 }
 
-export function Template_$ctor_67157A5B(id, table, name, description, organisation, version, authors, repos, tags, lastUpdated) {
+export function Template_$ctor_4AC720A8(id, table, name, description, organisation, version, authors, repos, tags, lastUpdated) {
     return new Template(id, table, name, description, organisation, version, authors, repos, tags, lastUpdated);
 }
 

package/WebRequest/WebRequest.js

@@ -0,0 +1,38 @@
+import { awaitPromise } from "../fable_modules/fable-library.4.1.4/Async.js";
+import { fetch$ } from "../fable_modules/Fable.Fetch.2.6.0/Fetch.fs.js";
+import { empty } from "../fable_modules/fable-library.4.1.4/List.js";
+import { singleton } from "../fable_modules/fable-library.4.1.4/AsyncBuilder.js";
+import { Http_get } from "../fable_modules/Fable.SimpleHttp.3.5.0/Http.fs.js";
+import { printf, toFail } from "../fable_modules/fable-library.4.1.4/String.js";
+import "isomorphic-fetch";
+
+export function NodeJs_isNode() {
+    return typeof process !== "undefined" &&
+process.versions != null &&
+process.versions.node != null;;
+}
+
+export function NodeJs_downloadFile(url) {
+    let pr_1, pr;
+    return awaitPromise((pr_1 = ((pr = fetch$(url, empty()), pr.then((res) => res.text()))), pr_1.then((txt) => txt)));
+}
+
+export function downloadFile(url) {
+    let isFable = false;
+    isFable = true;
+    const browserAndDotnet = () => singleton.Delay(() => singleton.Bind(Http_get(url), (_arg) => {
+        const statusCode = _arg[0] | 0;
+        const responseText = _arg[1];
+        return singleton.Return((statusCode === 200) ? responseText : toFail(printf("Status %d => %s"))(statusCode)(responseText));
+    }));
+    if (!isFable) {
+        return browserAndDotnet();
+    }
+    else if (NodeJs_isNode()) {
+        return NodeJs_downloadFile(url);
+    }
+    else {
+        return browserAndDotnet();
+    }
+}
+

package/fable_modules/Fable.Fetch.2.6.0/Fable.Fetch.fableproj

@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <Version>2.6.0</Version>
+    <PackageVersion>2.6.0</PackageVersion>
+    <TargetFramework>netstandard2.0</TargetFramework>
+  </PropertyGroup>
+  <ItemGroup>
+    <Compile Include="Fetch.fs" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="*.fsproj; *.fs" PackagePath="fable\" />
+  </ItemGroup>
+  <ItemGroup>
+    <PackageReference Include="Fable.Browser.Blob" Version="1.2.0" />
+    <PackageReference Include="Fable.Browser.Event" Version="1.5.0" />
+    <PackageReference Include="Fable.Core" Version="3.7.1" />
+    <PackageReference Include="Fable.Promise" Version="2.2.2" />
+    <PackageReference Update="FSharp.Core" Version="4.7.2" />
+  </ItemGroup>
+</Project>