-
Notifications
You must be signed in to change notification settings - Fork 0
/
paste_ee.clj
23 lines (21 loc) · 1.13 KB
/
paste_ee.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(ns nolipservice.paste-ee
(:require [clj-http.client :as client]
[cheshire.core :refer :all]
[environ.core :refer [env]]))
(defn new-paste
([s]
(new-paste s s s))
([d n c]
(client/post "https://api.paste.ee/v1/pastes" {:form-params {:key (env :paste-ee-api-key)
:description d
:sections [{:name n
:contents c}]}
:socket-timeout 1000
:conn-timeout 1000
:throw-entire-message? true
:content-type :json
:as :json})))
(defn list-pastes []
(client/get "https://api.paste.ee/v1/pastes" {:query-params {:key (env :paste-ee-api-key)
:perpage 25}
:as :json}))