Browse files

Updated for the new option destructuring syntax (no vector).

  • Loading branch information...
1 parent a0084a0 commit f953664a0a430b04c60913527d09dd31b1b29ab0 @Raynes committed Sep 30, 2010
Showing with 28 additions and 28 deletions.
  1. +1 −1 src/cake_github/gists.clj
  2. +11 −11 src/cake_github/issues.clj
  3. +15 −15 src/cake_github/repos.clj
  4. +1 −1 src/cake_github/users.clj
View
2 src/cake_github/gists.clj
@@ -16,7 +16,7 @@
(deftask github.gists.contents
"Show the contents of a gist. Pass in the id of the gist and the file name."
- [{[one two] :github.gists.contents}]
+ {[one two] :github.gists.contents}
(format-result (show-gist auth one two)))
(deftask github.gists.show
View
22 src/cake_github/issues.clj
@@ -6,67 +6,67 @@
(deftask github.issues.open
"Open an issue. Pass in the owner of the repo, name of the repo,
title of the issue, and body of the issue."
- [{[one two three four] :github.issues.open}]
+ {[one two three four] :github.issues.open}
(format-result (open-issue auth one two three four) :map-type :issue))
(deftask github.issues.info
"Show data about an issue. Pass in the owner of the repo, name of the repo,
and number of the issue."
- [{[one two three] :github.issues.info}]
+ {[one two three] :github.issues.info}
(format-result (show-issue auth one two three) :map-type :issue))
(deftask github.issues.close
"Close an issue. Pass in the owner of the repo, name of the repo, and issue number."
- [{[one two three] :github.issues.close}]
+ {[one two three] :github.issues.close}
(format-result (close-issue auth one two three) :map-type :issue))
(deftask github.issues.comment
"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}]
+ {[one two three four] :github.issues.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}]
+ {[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}]
+ {[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}]
+ {[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}]
+ {[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}]
+ {[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}]
+ {[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}]
+ {[one two three four] :github.issues.search results :results}
(format-result (search-issues auth one two three four) :map-type :issue :max results))
View
30 src/cake_github/repos.clj
@@ -33,35 +33,35 @@
(deftask github.repos.fork
"Fork a repo. Pass in the owner of the repo you want to fork and the name of the repo."
- [{[one two] :github.repos.fork}]
+ {[one two] :github.repos.fork}
(format-result (fork-repo auth one two) :generate-clone-urls true))
(deftask github.repos.set
"Set information about a repo. Pass in the owner of the repo, the name of the repo,
the key corresponding to the information you want to change, and the value you want
to set it to. Possible keys are description, homepage, has_wiki, has_downloads,
and has_issues."
- [{[one two three four] :github.repos.set}]
+ {[one two three four] :github.repos.set}
(format-result (set-repo-info auth one two three four)))
(deftask github.repos.info
"Get infomation about a repository. Pass in the owner of the repo and the name of the repo."
- [{[one two] :github.repos.info}]
+ {[one two] :github.repos.info}
(format-result (show-repo-info auth one two)))
(deftask github.repos.watch
"Watch a repo. Pass in the owner of the repo and the name of the repo."
- [{[one two] :github.repos.watch}]
+ {[one two] :github.repos.watch}
(format-result (watch-repo auth one two)))
(deftask github.repos.unwatch
"Unwatch a repo. Pass in the owner of the repo and the name of the repo."
- [{[one two] :github.repos.unwatch}]
+ {[one two] :github.repos.unwatch}
(format-result (unwatch-repo auth one two)))
(deftask github.repos.tags
"List the tags on a repo. Pass in the owner of the repo and it's name."
- [{[one two] :github.repos.tag}]
+ {[one two] :github.repos.tag}
(format-result (show-tags auth one two) :map-type :generic))
(deftask github.repos.pushable
@@ -72,36 +72,36 @@
(deftask github.repos.network
"Show a repository's full network. Pass in the owner and name of the repository.
Limit results with --results. The default limit is three."
- [{[one two] :github.repos.network results :results}]
+ {[one two] :github.repos.network results :results}
(format-result (show-network auth one two) :max results))
(deftask github.repos.languages
"List the languages used in a project. Values are in bytes. Limit results with --results.
The default limit is three."
- [{[one two] :github.repos.languages results :results}]
+ {[one two] :github.repos.languages results :results}
(format-result (show-languages auth one two) :max results :map-type :generic))
(deftask github.repos.contributors
"List everybody who has contributed to a repo, including non-github-users.
Pass the owner and name of the repository. Limit results with --results. Default limit is three."
- [{[one two] :github.repos.contributors results :results}]
+ {[one two] :github.repos.contributors results :results}
(format-result (show-contributors auth one two) :map-type :user :max results))
(deftask github.repos.collaborators
"List collaborators on a repo. Pass the owner and name of the repo."
- [{[one two] :github.repos.collaborators}]
+ {[one two] :github.repos.collaborators}
(format-result (show-collaborators auth one two)))
(deftask github.repos.add-collaborator
"Add a collaborator to your Github repository. Pass in the username you want to add and the
name of the repo."
- [{[one two] :github.repos.add-collaborator}]
+ {[one two] :github.repos.add-collaborator}
(format-result (add-collaborator auth one two)))
(deftask github.repos.rm-collaborator
"Remove a collaborator from your Github repository. Pass in the username you want to remove
and the name of the repo."
- [{[one two] :github.repos.rm-collaborator}]
+ {[one two] :github.repos.rm-collaborator}
(format-result (remove-collaborator auth one two)))
(deftask github.repos.deploy
@@ -111,15 +111,15 @@
(deftask github.repos.add-deploy
"Add a deploy key to a repository. Pass in the name of the repository, title of the key
and the key itself."
- [{[one two three] :github.repos.add-deploy}]
+ {[one two three] :github.repos.add-deploy}
(format-result (add-deploy-key auth one two three)))
(deftask github.repos.rm-deploy
"Remove a deploy key from a repository. Pass in the name of the repo and the title of the key."
- [{[one two] :github.repos.rm-deploy}]
+ {[one two] :github.repos.rm-deploy}
(format-result (remove-deploy-key auth one two)))
(deftask github.repos.visibility
"Set a repository's visibility. Pass in the name of the repo and either 'public' or 'private'."
- [{[one two] :github.repos.visibility}]
+ {[one two] :github.repos.visibility}
(format-result (set-repo-visibility one two)))
View
2 src/cake_github/users.clj
@@ -39,5 +39,5 @@
(deftask github.users.set
"Set information about a user. Pass in the username, a key, and a value to set that key
to. Possible keys are name, email, blog, company, and location."
- [{[one two three] :github.users.set}]
+ {[one two three] :github.users.set}
(format-result (user-set auth one two three) :map-type :user))

0 comments on commit f953664

Please sign in to comment.