Move paths to common.clj

This commit is contained in:
erik 2023-06-21 14:05:49 +02:00
parent 5c6033b5c8
commit 9af4cd0921

View file

@ -2,6 +2,7 @@
(:require [lambdaisland.souk.activitypub :as ap] (:require [lambdaisland.souk.activitypub :as ap]
[lambdaisland.souk.json-ld :as ld] [lambdaisland.souk.json-ld :as ld]
[quoll.raphael.core :refer [parse]] [quoll.raphael.core :refer [parse]]
[org.domaindrivenarchitecture.activity-pub-poc.common :as cm]
[clojure.spec.alpha :as s] [clojure.spec.alpha :as s]
[clojure.inspector :as ins] [clojure.inspector :as ins]
[hato.client :as hato] [hato.client :as hato]
@ -19,15 +20,13 @@
(def team (ap/GET team-url)) (def team (ap/GET team-url))
(def resource-path "src/main/resources/")
(def activitystreams-ttl (str resource-path "activitystreams_2.0_owl.ttl")) (def parsed-rdf-syntax (parse (slurp cm/activitystreams-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 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