Automatically add the "bounty" label to a repository

fixes #2

resources/sql/queries.sql

@@ -255,7 +255,7 @@ SELECT balance
 FROM issues
 WHERE contract_address = :contract_address;
 
--- :name update-banlance :! :n
+-- :name update-balance :! :n
 -- :doc updates balance of a wallet attached to a given issue
 UPDATE issues
 SET balance = :balance

src/clj/commiteth/github/core.clj

@@ -24,7 +24,7 @@
 (defn authorize-url []
   (let [params (codec/form-encode {:client_id    (client-id)
                                    :redirect_uri (redirect-uri)
-                                   :scope        "admin:repo_hook"
+                                   :scope        "admin:repo_hook repo"
                                    :allow_signup allow-signup
                                    :state        (str (UUID/randomUUID))})]
     (str "https://github.com/login/oauth/authorize" "?" params)))
@@ -139,3 +139,7 @@
 (defn get-issue-events
   [user repo issue-id]
   (issues/issue-events user repo issue-id (self-auth-params)))
+
+(defn create-label
+  [user repo token]
+  (issues/create-label user repo "bounty" "00ff00" (auth-params token)))

src/clj/commiteth/routes/services.clj

@@ -71,12 +71,12 @@
                  user-id :id} user
                 result (or
                          (repositories/create (merge params {:user_id user-id}))
-                         (repositories/toggle repo-id))
-                ]
+                         (repositories/toggle repo-id))]
             (if (:enabled result)
               ;; @todo: do we really want to make this call at this moment?
               (let [created-hook (github/add-webhook token login repo)]
                 (println created-hook)
+                (github/create-label login repo token)
                 (repositories/update-hook-id repo-id (:id created-hook)))
               (github/remove-webhook token login repo (:hook_id result)))
             result)))))