Initial commit

Author: ostronom

.gitignore

@@ -0,0 +1,4 @@
+pom.xml
+*jar
+lib
+classes

README

@@ -0,0 +1,18 @@
+# clj-googl
+
+Very basic goo.gl url shortener service API implementation.
+
+No error handling implemented.
+
+## Usage
+
+    user=> (shorten "http://google.com")
+    "http://goo.gl/mR2d"
+    user=> (expand "http://goo.gl/mR2d")
+    "http://google.com/"
+
+## License
+
+Copyright (C) 2010 zw0rk
+
+Distributed under the Eclipse Public License, the same as Clojure.

project.clj

@@ -0,0 +1,5 @@
+(defproject clj-googl "0.0.1-SNAPSHOT"
+  :description "Goo.gl API implementation for clojure"
+  :dependencies [[org.clojure/clojure "1.2.0"]
+                 [org.clojure/clojure-contrib "1.2.0"]
+		 [com.twinql.clojure/clj-apache-http "2.2.0"]])

src/clj_googl/core.clj

@@ -0,0 +1,20 @@
+(ns clj-googl.core
+	(:refer-clojure)
+	(:require [clojure.contrib.json :as json]
+		  [com.twinql.clojure.http :as http])
+	(:import (java.net URI)
+		 (org.apache.http.entity StringEntity)))
+
+(def *apiuri* (java.net.URI. "https://www.googleapis.com/urlshortener/v1/url"))
+
+(defn shorten [url]
+	"Shorten long URL"
+	(:id (:content (http/post 
+		*apiuri*
+		:headers {"Content-Type" "application/json"}
+		:body (StringEntity. (json/json-str {:longUrl url}))
+		:as :json))))
+
+(defn expand [url]
+	"Expand short URL"
+	(:longUrl (:content (http/get *apiuri* :query {:shortUrl url} :as :json))))

test/clj_googl/test/core.clj

@@ -0,0 +1,6 @@
+(ns clj-googl.test.core
+  (:use [clj-googl.core] :reload)
+  (:use [clojure.test]))
+
+(deftest replace-me ;; FIXME: write
+  (is false "No tests have been written."))