app.clj

app.clj

(ns startingclojure.app
  (:use [clojure.pprint] [compojure.core] )
  (:require 
    [ring.adapter.jetty :as jetty]
    [ring.util.response :as response]
    ))

(defonce counter (atom 999))
(defonce urls (atom {}))
(defn shorten
  [url]
  (let [id (swap! counter inc)
        id (Long/toString id 36)]
    (swap! urls assoc id url)
    id))


(defn homepage 
  [request] 
  (str @urls))

(defn redirect
  [id]
  (response/redirect (@urls id)))

(defroutes app
  (GET "/" request (homepage request))
  (GET "/:id" [id] (redirect id)))