Google Sign-In using Clojure

Table of contents

Reading Time: 2 minutes

Last time I wrote an article for providing Facebook Sign-In using Clojure. This article will guide you to add Google Sign-In functionality in your web application using clojure. We’ll use compojure.core for routing, clj-http.client for http requests, cheshire.core for parsing json and noir.response for redirections.

First, make a new google project to get your project’s Client ID and Client Secret Key from this URL: https://console.developers.google.com/project.

Now define a new namespace as:


(ns exampleapp.routes.google
(:use compojure.core)
(:require [clj-http.client :as client]
[cheshire.core :as parse]
[noir.response :as resp]))

In “google” namespace, define following variables:


(def CLIENT_ID "your project's client id")
(def REDIRECT_URI "http://localhost:3000/auth_google")
(def login-uri "https://accounts.google.com")
(def CLIENT_SECRET "your project's client secret key")
(def google-user (atom {:google-id "" :google-name "" :google-email ""}))

(def red (str "https://accounts.google.com/o/oauth2/auth?"
"scope=email%20profile&"

"response_type=code&"
"client_id=" (ring.util.codec/url-encode CLIENT_ID) "&"
"approval_prompt=force"))

“red” defines the request url on which the user is redirected to ask for user permission for user details. We use ring.util.codec/url-encode to encode the url details. ring.util.codec/url-encode uses UTF-8 encoding by default.

Define routes in “google” namespace in order to redirect a user to the url defined by “red” as follows:


(defroutes google-routes
(GET "/google" [] (resp/redirect red)))

After user provides permission to your google project, you will get an authorization code on the the redirect uri that you mentioned in your google project, the same that you defined in your namespace, i.e http://localhost:3000/auth_google.

Now define a new route in google-routes as:


(GET "/auth_google" {params :query-params}
(google params))

and a new function in order to get the access code and user details as:


(defn google [params]
(let [access-token-response (client/post "https://accounts.google.com/o/oauth2/token"
{:form-params {:code (get params "code")
:client_id CLIENT_ID
:client_secret CLIENT_SECRET
:redirect_uri REDIRECT_URI
:grant_type "authorization_code"}})
user-details (parse/parse-string (:body (client/get (str "https://www.googleapis.com/oauth2/v1/userinfo?access_token="
(get (parse/parse-string (:body access-token-response)) "access_token")))))]
(swap! google-user #(assoc % :google-id %2 :google-name %3 :google-email %4) (get user-details "id") (get user-details "name") (get user-details "email"))))

In the above function we use clj-http’s “post” to make a post request to get access token followed by “get” to get user information. Then we use cheshire.core’s “parse-string” to parse json response and convert it into clojure object and save the information in the atom defined as “google-user”.

Entire “google” namespace is as follows:


(ns exampleapp.routes.google
(:use compojure.core)
(:require [clj-http.client :as client]
[cheshire.core :as parse]
[noir.response :as resp]))

(def CLIENT_ID "your project's client id")
(def REDIRECT_URI "http://localhost:3000/auth_google")
(def login-uri "https://accounts.google.com")
(def CLIENT_SECRET "your project's client secret key")
(def google-user (atom {:google-id "" :google-name "" :google-email ""}))

(def red (str "https://accounts.google.com/o/oauth2/auth?"
"scope=email%20profile&"
"redirect_uri=" (ring.util.codec/url-encode REDIRECT_URI) "&"
"response_type=code&"
"client_id=" (ring.util.codec/url-encode CLIENT_ID) "&"
"approval_prompt=force"))

(defn google [params]
(let [access-token-response (client/post "https://accounts.google.com/o/oauth2/token"
{:form-params {:code (get params "code")
:client_id CLIENT_ID
:client_secret CLIENT_SECRET
:redirect_uri REDIRECT_URI
:grant_type "authorization_code"}})
user-details (parse/parse-string (:body (client/get (str "https://www.googleapis.com/oauth2/v1/userinfo?access_token="
(get (parse/parse-string (:body access-token-response)) "access_token")))))]
(swap! google-user #(assoc % :google-id %2 :google-name %3 :google-email %4) (get user-details "id") (get user-details "name") (get user-details "email"))))

(defroutes google-routes
(GET "/auth_google" {params :query-params}
(google params))

(GET "/google" [] (resp/redirect red)))