Hodur Visualize Datomic Schema with graphviz

hodur-visualize-datomic-schema.clj

(ns hodure-test.getting-started
	(:require [hodur-engine.core :as hodur]
						[hodur-datomic-schema.core :as hodur-datomic]
						[hodur-graphviz-schema.core :as hodur-graphviz]
						[clojure.java.io :as io]
						))

(def person-schema (hodur/init-schema
										 '[^{:datomic/tag-recursive true}
											 Person
											 [^String first-name
												^String last-name]]
										 ))

(def employee-schema (-> "schemata/employee.edn"
												 io/resource
												 hodur/init-path))

(comment
	;; Generate Datomic schema:
	(hodur-datomic/schema person-schema)

	(hodur-datomic/schema employee-schema)
	(spit "employee-schema.dot"
				(hodur-graphviz/schema employee-schema {:groups ["person-group" "enum-group"]}))
	)