gered/blarg
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

add stub route for listing files

Browse source
This commit is contained in:
Gered 2013-05-21 22:42:34 -04:00
parent f6868031b5
commit 04f904d7f9
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/blarg/routes/files.clj
View file

@ -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 * "/"))))