core.clj

(ns pdms.core
  (:use korma.core
        [korma.db :only (defdb)]))

(def db-spec {:subprotocol "postgresql"
              :subname "//localhost/pdms"
              :user "huleehom"
              :password ""})

(defdb db db-spec)

(defentity pdms_groups)

(defn create-pdms-group [group]
  (insert pdms_groups
          (values group)))

(defn add-all-groups [groups prefix]
  (let [indexed-groups (map-indexed (fn [idx item] [(inc idx) item]) groups)
        groups-with-path (map (fn [[idx m]] (assoc m :path (str prefix "." idx))) indexed-groups)]
    (map create-pdms-group groups-with-path)))