Permalink
Browse files

Root level page so people can find my wonderful calendars.

  • Loading branch information...
1 parent ca07b06 commit ec0d80b3c1fd61f3751902ef12417cd1e0845c13 Huw Giddens committed Mar 23, 2011
Showing with 9 additions and 0 deletions.
  1. +9 −0 src/support_calendar/server.clj
@@ -24,6 +24,15 @@
(distinct (map first events)))
(defroutes calendar-routes
+ (GET "/" request
+ (html
+ [:html
+ [:head [:title "Calendars"]]
+ [:body
+ [:ul
+ [:li [:a {:href (str "webcal://" (request :server-name) ":" (request :server-port) "/all")} "All systems and people"]]
+ [:li [:a {:href "systems/"} "Calendars by system"]]
+ [:li [:a {:href "people/"} "Calendars by support person"]]]]]))
(GET "/all" []
{:status 200
:headers {"Content-Type" "text/calendar"}

0 comments on commit ec0d80b

Please sign in to comment.