     (>!! in {:url url :id uuid :op "insert"})
     (ring-resp/response uuid)))
 
-(defn- get-all-talks [request]
+(defn- list-talks [request]
   (let [in (chan)
         entry-chan (entry-dal/consumer in)]
     (>!! in {:op "all"})

;; apply to / and its children (/about).
(def common-interceptors [(body-params/body-params) http/html-body])

(defn- convert-url-to-podcast
  [{:keys [headers params json-params path-params] :as request}]
  (let [{url :url} json-params
        in (chan)

    (ring-resp/response file-id)))

(defroutes routes
  [[["/talk" {:post convert-url-to-talk}
             {:get  list-talks}
             ^:interceptors [(body-params/body-params)]
     ["/:id" {:get get-talk}]]
    ["/file/:id" {:get get-audio-file}]]])
