(ns cljneo.domain)

(defn create-interest
  [name keywords]
  {:name name
   :keywords keywords})
   
(ns cljneo.data
  (:require [cljneo.domain :as ndom]
            [clj-time.core :as t]))
			
(defn create-interests []
  (let [music (ndom/create-interest "Music" (vector "Singing" "Guitar"))
        reading (ndom/create-interest "Reading" (vector "Richard Bach" "Paulo Coelho" "Dr. Brian Weiss"))]
    (vector music reading)))

(ns cljneo.graph
  (:require [clojurewerkz.neocons.rest :as nr]
            [clojurewerkz.neocons.rest.nodes :as nn]
            [cljneo.data :as ndata]))

(def conn (nr/connect "http://127.0.0.1:7474/db/data/" "neo4j" "neo4j"))

(defn create-interest-nodes []
  (let [interests (ndata/create-interests)]
    (map #(nn/create conn %) interests)))