From 35f9685fad9293dafa267cf73e5d0f22344c2648 Mon Sep 17 00:00:00 2001
From: Martin Klepsch <martinklepsch@googlemail.com>
Date: Thu, 22 Feb 2018 11:46:42 +0100
Subject: [PATCH] #300: clean up bounty-states, add docstring

---
 src/clj/commiteth/bounties.clj | 39 ++++++++++++++--------------------
 1 file changed, 16 insertions(+), 23 deletions(-)

diff --git a/src/clj/commiteth/bounties.clj b/src/clj/commiteth/bounties.clj
index c77a7d2..d804131 100644
--- a/src/clj/commiteth/bounties.clj
+++ b/src/clj/commiteth/bounties.clj
@@ -106,43 +106,36 @@
           (log/info "Updating changed title for issue" (:id gh-issue))
           (issues/update-issue-title (:id gh-issue) (:title gh-issue)))))))
 
-(defn bounty-state [bounty]
+(defn bounty-state
+  "Given a map as returned by `owner-bounties` return the state the provided bounty is in.
+
+  The lifecycle of a bounty is a sequence of the following states:
+  :opened > :funded > :claimed > :merged > :paid
+
+  As well as various states that are only reached under specific conditins:
+  - :multiple-claims
+  - :pending-contributor-address
+  - :pending-maintainer-confirmation"
+  [bounty]
   (if-let [merged? (:winner_login bounty)]
     (cond
       (nil? (:payout_address bounty)) :pending-contributor-address
       (nil? (:confirm_hash bounty))   :pending-maintainer-confirmation
       (:payout_hash bounty)           :paid
-      :else :merged)
+      :else                           :merged)
     (cond ; not yet merged
-      (some-> (:claim_count bounty) (< 1)) :multiple_claims
+      (some-> (:claim_count bounty) (< 1)) :multiple-claims
       (= 1 (:claim_count bounty))          :claimed
       (seq (:tokens bounty))               :funded
       (:contract_address bounty)           :opened)))
 
 (comment
-  (clojure.pprint/pprint
-   (bounties/get-bounty "martinklepsch" "RepoSOB" 28))
-
-  ;; STATES
-  ;; - tx submitted
-  ;; - waiting for contract to be mined
-  ;; - waiting for confirmation
-  ;; - confirmation received, etc.
-  (clojure.pprint/pprint
-   (bounties/closed-bounties))
+  (def user 97496)
 
   (clojure.pprint/pprint
-   (count (bounties/owner-bounties 97496)))
+   (count (bounties/owner-bounties user)))
 
   (clojure.pprint/pprint
-   (frequencies (map bounty-state (bounties/owner-bounties 97496))))
-
-  (clojure.pprint/pprint
-   (remove #(let [s (bounty-state %)]
-              (#{:paid :funded} s))
-           (bounties/owner-bounties 97496)))
-
-
-  [:opened :funded :claimed (:claimed_multiple) ]
+   (frequencies (map bounty-state (bounties/owner-bounties user))))
 
   )