Completed the issue API.

src/cake_github/issues.clj

@@ -24,4 +24,49 @@
   "Comment on an issue. Pass in the owner of the repo, name of the repo, issue number,
    and the comment you want to add."
   [{[one two three four] :github.issues.comment}]
-  (format-result (comment-issue auth one two three four) :map-type :comment))
+  (format-result (comment-issue auth one two three four) :map-type :comment))
+
+(deftask github.issues.tag
+  "Add a label to an issue or the system. Pass in the owner of the repo, name of the repo,
+   the label you want to add, and the number of the issue or no number if you're adding
+   the label to the system rather than to an issue."
+  [{[one two three four] :github.issues.tag}]
+  (format-result (add-label auth one two three four)))
+
+(deftask github.issues.untag
+  "Remove a label from an issue or the system. Pass in the owner of the repo, name of the repo,
+   the label you want to remove, and the number of the issue or no number if you're removing
+   the label from the system rather than from an issue."
+  [{[one two three four] :github.issues.untag}]
+  (format-result (remove-label auth one two three four)))
+
+(deftask github.issues.tags
+  "Show the tags on a repo. Pass in the owner and name of the repo."
+  [{[one two] :github.issues.tags}]
+  (format-result (show-labels auth one two)))
+
+(deftask github.issues.comments
+  "List the comments on an issue. Pass in the owner of the repo, name of the repo,
+   and the number of the issue. You can limit results with --results. The default limit
+   is three."
+  [{[one two three] :github.issues.comments results :results}]
+  (format-result (issue-comments auth one two three) :map-type :comment :max results))
+
+(deftask github.issues.show
+  "Show info about a repo's issues. Pass in the owner and name of the repo, and either
+   'open' or 'closed'. Limit results with --results. The default limit is three."
+  [{[one two three] :github.issues.show results :results}]
+  (format-result (show-issues auth one two three) :map-type :issue :max results))
+
+(deftask github.issues.reopen
+  "Reopen a previously closed issue. Pass in the owner and name of the repo, and the issue
+   number."
+  [{[one two three] :github.issues.reopen}]
+  (format-result (reopen-issue auth one two three) :map-type :issue))
+
+(deftask github.issues.search
+  "Search through issues. Pass in the owner and name of the repo, the state of the issues
+   you want to search (either 'open' or 'closed') and the search term. Limit results with
+   --results. Default limit is three."
+  [{[one two three four] :github.issues.search results :results}]
+  (format-result (search-issues auth one two three four) :map-type :issue :max results))