Commits

Miki Tebeka committed 7ef5eb8

Shorten on home page

  • Participants
  • Parent commits 505e3b6

Comments (0)

Files changed (1)

src/biggieurl.clj

 (defn long-url [url])
 (defn shorten-url [url])
 
-(defn shorten-page []
+(defn home-page []
   (page
     (form-to [:post]
       "URL: "
       (submit-button "Shorten"))
     (:div {:id "shortened" :class "shortened"})))
 
-(defn home-page []
-  (page "Welcome"))
-
 (defroutes biggieurl-routes
   (GET "/" [] (home-page))
-  (GET "/shorten" [] (shorten-page))
   (POST "/shorten" {params :params} (shorten-url params))
   (GET "/:url" [url] (or (long-url url) :next))