                                        board-name)]
                 {::board board}
                 false))
-   :post! (fn [ctx]
-            (d/transact datomic
-                        [{:db/id #db/id[:db.part/message]
-                          :board/name board-name
-                          :board/description board-name}]))
    :handle-ok (fn [ctx]
                 (let [board (::board ctx)]
                   (->> (d/query datomic

         (log/error e "fail to parse edn.")
         {:message (format "IOException: %s" (.getMessage e))})))))

(defn boards-resource [{:keys [datomic]}]
  (liberator/resource
   :available-media-types ["application/edn" "application/json"]
   :allowed-methods [:get]
   :handle-ok (fn [_]
                (d/query datomic
                         '{:find [[(pull ?board [:*]) ...]]

(defn board-resource [{:keys [datomic]} board-name]
  (liberator/resource
   :available-media-types ["application/edn" "application/json"]
   :allowed-methods [:get]
   :exists? (fn [ctx]
              (if-let [board (d/query datomic
                                       '{:find [(pull ?board [:*]) .]
