diff --git a/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj b/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj index 4bbd6d2..3ea82a0 100644 --- a/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj +++ b/src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj @@ -2,6 +2,7 @@ (:require [lambdaisland.souk.activitypub :as ap] [lambdaisland.souk.json-ld :as ld] [quoll.raphael.core :refer [parse]] + [org.domaindrivenarchitecture.activity-pub-poc.common :as cm] [clojure.spec.alpha :as s] [clojure.inspector :as ins] [hato.client :as hato] @@ -19,15 +20,13 @@ (def team (ap/GET team-url)) -(def resource-path "src/main/resources/") -(def activitystreams-ttl (str resource-path "activitystreams_2.0_owl.ttl")) -(def rdf-schema-ttl (str resource-path "rdf_schema_1.1.ttl")) -(def rdf-syntax-ttl (str resource-path "rdf_syntax_ns_22.ttl")) +(def parsed-rdf-syntax (parse (slurp cm/activitystreams-ttl))) -(def parsed-rdf-syntax (parse (slurp rdf-syntax-ttl))) - +; ToDo +; Prädikat das langString parsen/validieren kann, evtl auch für xsd:string +; Prädikat für Name und Person ausformulieren