Add clj-tparse module and clj-turtle dep

This commit is contained in:
erik 2023-06-20 11:53:20 +02:00
parent 3dd8b96f00
commit 213657ce6c
4 changed files with 16 additions and 8 deletions

6
.gitmodules vendored Normal file
View file

@ -0,0 +1,6 @@
[submodule "src/main/clj/clj-tparse"]
path = src/main/clj/clj-tparse
url = git@github.com:ubindr/clj-tparse.git
[submodule "src/main/clj/ubindr/clj_tparse"]
path = src/main/clj/ubindr/clj_tparse
url = git@github.com:ubindr/clj-tparse.git

View file

@ -18,7 +18,8 @@
[hato "0.9.0"] [hato "0.9.0"]
[cheshire/cheshire "5.11.0"] [cheshire/cheshire "5.11.0"]
[com.cognitect/transit-clj "1.0.333"] [com.cognitect/transit-clj "1.0.333"]
[lambdaisland/uri "1.13.95"]] [lambdaisland/uri "1.13.95"]
[clj-turtle "0.1.3"]]
:main ^:skip-aot org.domaindrivenarchitecture.activity-pub-poc.core :main ^:skip-aot org.domaindrivenarchitecture.activity-pub-poc.core
:profiles {:test {:test-paths ["src/test/cljc"] :profiles {:test {:test-paths ["src/test/cljc"]
:resource-paths ["src/test/resources"] :resource-paths ["src/test/resources"]

View file

@ -1,11 +1,12 @@
(ns org.domaindrivenarchitecture.activity-pub-poc.core (ns org.domaindrivenarchitecture.activity-pub-poc.core
(:require [lambdaisland.souk.activitypub :as ap] (:require [lambdaisland.souk.activitypub :as ap]
[lambdaisland.souk.json-ld :as ld] [lambdaisland.souk.json-ld :as ld]
[ubindr.clj-tparse :as tparse]
[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]
[clojure.string :as str] [clojure.string :as str]
[clojure.walk :as walk]) ) [clojure.walk :as walk]))
(def team-url "https://social.meissa-gmbh.de/users/team") (def team-url "https://social.meissa-gmbh.de/users/team")
(def like-url "https://www.w3.org/ns/activitystreams#Like") (def like-url "https://www.w3.org/ns/activitystreams#Like")
@ -21,10 +22,9 @@
;;(ins/inspect-tree team-ld) ;;(ins/inspect-tree team-ld)
;;(ins/inspect-tree team) ;;(ins/inspect-tree team)
;(def xsd/string? string?)
;(defn rdf/langString? [value] (or (string? value)
; (regex mit @ )))
(def xsd/String? string?) ;(s/def ::activitystreams/name (s/or xsd/string?
(defn rdf/langString? [value] (or (string? value) ; rdf/langString?))
(regex mit @ )))
(s/def ::activitystreams/name (s/or xsd/string?
rdf/langString?))

@ -0,0 +1 @@
Subproject commit d99fc8ade8f4390a357f2403c0bcb93b5e8e05d3