status-im
/
open-bounty
mirror of https://github.com/status-im/open-bounty.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Add fn for fetching all issues labeles as bounty

This commit is contained in:
Vitaliy Vlasov 2018-02-26 17:06:53 +02:00 committed by Tetiana Churikova
parent 3eede3ac93
commit cd44e15969
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/clj/commiteth/github/core.clj
View File

@ -3,6 +3,7 @@
[core :as tentacles] [core :as tentacles]
[repos :as repos] [repos :as repos]
[oauth :as oauth] [oauth :as oauth]
[search :as search]
[users :as users] [users :as users]
[repos :as repos] [repos :as repos]
[issues :as issues] [issues :as issues]
@ -27,6 +28,8 @@
(defn on-testnet? [] (env :on-testnet)) (defn on-testnet? [] (env :on-testnet))
(defn webhook-secret [] (env :webhook-secret)) (defn webhook-secret [] (env :webhook-secret))
(defn authorize-url [scope] (defn authorize-url [scope]
(let [params (codec/form-encode {:client_id (client-id) (let [params (codec/form-encode {:client_id (client-id)
:redirect_uri (redirect-uri) :redirect_uri (redirect-uri)
@ -360,3 +363,30 @@
(let [[owner repo] (str/split full-repo #"/")] (let [[owner repo] (str/split full-repo #"/")]
(log/debug "creating bounty label" (str owner "/" repo) token) (log/debug "creating bounty label" (str owner "/" repo) token)
(issues/create-label owner repo "bounty" "fafad2" (auth-params token)))) (issues/create-label owner repo "bounty" "fafad2" (auth-params token))))
(defn get-labeled-issues-for-repos [repos auth-params]
"Find all issues with a bounty label in provided repos"
(let [get-last-part (fn get-last-part [s]
(subs s (inc (str/last-index-of s "/"))))
get-issue-info (fn get-issue-info [issue]
(hash-map :owner r
:repo (get-last-part (:repository_url issue))
:id (:id issue)
:number (:number issue)
:title (:title issue)
:url (:html_url issue)
:created_at (:created_at issue)
:closed_at (:closed_at issue)))
issues (for [r repos]
(loop [repo-issues [] i 1]
(let [params (into auth-params
{:sort "created" :order "desc" :page i})
issues-page (-> (search/search-issues
nil
{:label "bounty" :user r :type "issue"}
params)
:items)]
(if (first issues-page)
(recur (into repo-issues (map get-issue-info issues-page)) (inc i))
repo-issues))))]
(apply concat issues)))