From 04f904d7f945bc227b8ec4b906f6add31d657d3a Mon Sep 17 00:00:00 2001 From: gered Date: Tue, 21 May 2013 22:42:34 -0400 Subject: [PATCH] add stub route for listing files --- src/blarg/routes/files.clj | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/blarg/routes/files.clj b/src/blarg/routes/files.clj index 382bc17..9af2d89 100644 --- a/src/blarg/routes/files.clj +++ b/src/blarg/routes/files.clj @@ -1,15 +1,22 @@ (ns blarg.routes.files (:use [compojure.core] + [noir.util.route] [blarg.routes.helpers] [blarg.util]) (:require [blarg.views.layout :as layout] [blarg.models.files :as files] [noir.response :as resp])) +(defn list-files [path] + (layout/render + "files/list.html" {:files (files/list-files path)})) + (defn get-file [path] (if-let [file (files/get-file path)] (resp/content-type (:content_type file) (:data file)) (resp/status 404 nil))) (defroutes files-routes + (restricted GET "/listfiles" [] (list-files "/")) + (restricted GET "/listfiles/*" [*] (list-files (ensure-prefix * "/"))) (GET "/files/*" [*] (get-file (ensure-prefix * "/"))))