               :styles [:condensed]
               :head ["Hostname" "Status"]
               :body (for [h (:hosts conf-map)]
-                      [(link-to (str "/node/" h) h) (nodes h (:port conf-map))]))
+                      [(link-to (str "/node/" h) h) (node-status h (:port conf-map))]))
+             ]
+            [:div
+             [:p "Configuration"]
+             [:pre
+              "{\n"
+              (for [[k v] conf-map]
+                (str k " " v "\n"))
+              "}"]
              ]))
 
 (defn node [conf-map id]

             (table
              :styles [:condensed]
              :head ["Domain" "Status"]
              :body (domains id (:port conf-map))
              )]))

(defn domain [conf-map id domain]

             [:li.active domain]]
            [:h2 (str domain "@" id)]
            [:div
             (domain-metadata id (:port conf-map) domain)]))

;; ## Routes

(defroutes app-routes
  (GET "/"  {conf-map :conf-map} (index conf-map))
