   data:haschild ex:person-name ;
   dc:title \"thing\" ;
   dc:description \"stuff\" ;
-  rdf:type data:h1 .
-
-ex:person-name rdf:type data:text-field ;
+  rdf:type w:h1 .
+
+ex:person-name rdf:type w:text-field ;
                data:rank 5 ;
                data:bindo ont:name ;
                dc:title \"Name\" ;
                dc:description \"The name of a person\" .
 
-ex:person-age rdf:type data:text-field ;
+ex:person-age rdf:type w:text-field ;
               data:rank 4 ;
               data:bindo ont:age ;
               dc:title \"Age\" ;
               dc:description \"The age of a person\".
 
-ex:pets-list rdf:type data:list ;
+ex:pets-list rdf:type w:list ;
              data:bindo ont:haspet ;
              dc:title \"Pets\" ;
              dc:description \"A list of the pets a person has\" .
 
 ")
 
-(def mini-view
+(def widgets
   "@prefix rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .
 @prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
 @prefix data: <http://logangilmour.com/data-binder#> .
-@prefix ex: <http://logangilmour.com/example-view#> .
-@prefix ont: <http://logangilmour.com/example-ontology#> .
-
-data:root data:haschild ex:person-name .
-
-ex:person-name rdf:type data:paragraph .
-
-ex:person-name data:bindo ont:name .
-
+@prefix w: <http://logangilmour.com/bootstrap-widgets#> .
+
+w:projector rdfs:subClassOf data:relator .
+
+w:column8 rdfs:subClassOf data:container .
+
+w:column4 rdfs:subClassOf data:container .
+
+w:row rdfs:subClassOf data:container .
+
+w:list rdfs:subClassOf data:relator .
+
+w:deleter rdfs:subClassOf data:relator .
+
+w:paragraph rdfs:subClassOf data:relator .
+
+w:text-field rdfs:subClassOf data:relator .
+
+w:h1 rdfs:subClassOf data:container .
 ")
 
 (def data-binder "

          (iterator-seq (.listStatements inf nil (prop (:bindo db)) predicate))))


(defn serializer
  ([view-data]

      (let [inf (. ModelFactory createRDFSModel view-data)
            root (.asResource (.getObject (.getProperty inf
                                                        (res (:root db))
                                                        (prop (:haschild db)))))]


(defn parse-uri [uri]
  (let [parts (filter (comp not (partial re-matches #"^\s*$")) (clojure.string/split uri #"/"))]

    (if (empty? parts)
     {}
     (apply assoc {} parts))))
