OAuth1 in Clojure

Question

Sto cercando di integrare con un'API (Context.IO) utilizzando Clojure. Context.IO utilizza OAuth 1, che richiede di informare le credenziali dei consumatori e le credenziali segrete dei consumatori con cui integrare.

Sono riuscito a lavorare con Context.IO con Node.JS in passato, utilizzando la libreria di richieste (https://github.com/request/request). Risulta essere abbastanza semplice, ha appena riempito consumer_key e consumer_secret in un oggetto e lo ha passato in parametro oauth nella richiesta.

var oauth = 
{ 
    consumer_key: 'dsfdfssdf', 
    consumer_secret: 'dasfsafdsf' 
}; 

request.post({ url:url, oauth:oauth }) 

Ora sto cercando di realizzare lo stesso utilizzando CLJ-oauth https://github.com/mattrepl/clj-oauth, ma io sono un po 'perso, perché richiede parametri troppo diversi (per casi di utilizzo più complessi credo), e sto avendo un momento difficile cercando di capire come fare il semplice.

Per aggiungere ulteriori informazioni, IO contesto utilizza OAuth solo per l'autenticazione API, non per l'autorizzazione dell'utente. Quindi non richiede che i token siano informati, né ne fornisce uno. Richiede solo la chiave e la firma del consumatore (la stessa descritta qui: dev.twitter.com/oauth/overview/creating-signatures).

Qualcuno può dare un esempio simile a quello che ho realizzato in Nodo usando Clojure o clj-oauth (o qualsiasi altra libreria)? Non ho trovato un modo per farlo.

Grazie!

Answer 1

Mi sono iscritto al contesto io per fare questo tentativo. Innanzitutto, in leiningen ho impostato

:dependencies [[org.clojure/clojure "1.6.0"] 
       [clj-oauth "1.5.2"] 
       [clj-http "1.1.2"]] 

come le mie dipendenze. Ci sono due esempi qui sotto. Si chiama un url senza parametri, l'altro chiama lo stesso url, ma con parametri.

(ns scratch.core 
    (:require [oauth.client :as oauth] 
      [clj-http.client :as http])) 

(def okey "key") 

(def osecret "secret") 

(def consumer (oauth/make-consumer okey 
            osecret 
            nil 
            nil 
            nil 
            :hmac-sha1)) 

(defn test-get [] 
    (let [credentials (oauth/credentials consumer 
             nil 
             nil 
             :GET 
             "https://api.context.io/lite/users")] 
    (http/get "https://api.context.io/lite/users" {:query-params credentials}))) 

(defn test-get-params [] 
    (let [params {:email "blah@blah.com"} 
     credentials (oauth/credentials consumer 
             nil 
             nil 
             :GET 
             "https://api.context.io/lite/users" 
             params)] 
    (http/get "https://api.context.io/lite/users" {:query-params (merge credentials params)})))