Skip to content

Commit

Permalink
Moved and renamed modules.
Browse files Browse the repository at this point in the history
  • Loading branch information
oubiwann committed Dec 3, 2016
1 parent bfd034c commit 5be90e3
Show file tree
Hide file tree
Showing 4 changed files with 6 additions and 6 deletions.
@@ -1,4 +1,4 @@
(ns friend-oauth2-examples.appdotnet-handler
(ns friend-oauth2.examples.appdotnet
(:require [compojure.core :refer :all]
[compojure.handler :as handler]
[compojure.route :as route]
Expand Down
@@ -1,4 +1,4 @@
(ns friend-oauth2-examples.facebook-handler
(ns friend-oauth2.examples.facebook
(:require [compojure.core :refer :all]
[compojure.handler :as handler]
[compojure.route :as route]
Expand Down
@@ -1,4 +1,4 @@
(ns friend-oauth2-examples.github-handler
(ns friend-oauth2.examples.github
(:require [compojure.core :refer :all]
[compojure.handler :as handler]
[compojure.route :as route]
Expand Down Expand Up @@ -64,7 +64,7 @@
" times.</p><p>The current session: " session "</p>"))
(assoc :session session))))

(defn render-repos-page
(defn render-repos-page
"Shows a list of the current users github repositories by calling the github api
with the OAuth2 access token that the friend authentication has retrieved."
[request]
Expand All @@ -73,7 +73,7 @@
repos-response (get-github-repos access-token)]
(str (vec (map :name repos-response)))))

(defn get-github-repos
(defn get-github-repos
"Github API call for the current authenticated users repository list."
[access-token]
(let [url (str "https://api.github.com/user/repos?access_token=" access-token)
Expand Down
@@ -1,4 +1,4 @@
(ns friend-oauth2-examples.google-handler
(ns friend-oauth2.examples.google
(:require [compojure.core :refer :all]
[compojure.handler :as handler]
[compojure.route :as route]
Expand Down

0 comments on commit 5be90e3

Please sign in to comment.