Clojure Zookeeper

core.clj

(ns playbook.core
  (:use compojure.core
        playbook.views.index
        [hiccup.middleware :only (wrap-base-url)]
        [zookeeper :as zk])
  (:require [compojure.route :as route]
            [compojure.handler :as handler]))

(defroutes main-routes
  (GET "/" []  (index-page))
  (route/resources "/")
  (route/not-found "Page not found"))

(def app
  (-> (handler/site main-routes)
      (wrap-base-url)))

index.clj

(ns playbook.views.index
  (:use 
    [playbook.zk]
    [hiccup core page-helpers]
    [zookeeper :as zk]))

(defn index-page []
  (html5
    [:head
      [:title "Playbook!"]
      (include-css "/css/style.css")]
    [:body
      [:h1 "Playbook!"]
      [:ul
        (for [x (zk/children *client* "/pb")]
          [:li x])]]))

zk.clj

(ns playbook.zk
  (:use [zookeeper :as zk]))

(def *client* (zk/connect "127.0.0.1:2181" :watcher (fn [event] (println event))))

(when-not (zk/exists *client* "/pb")
  (zk/create *client* "/pb" :persistent? true))
(when-not (zk/exists *client* "/pb/apps")
  (zk/create *client* "/pb/apps" :persistent? true))
(when-not (zk/exists *client* "/pb/deps")
  (zk/create *client* "/pb/deps" :persistent? true))