Permalink
Browse files

make the issue number first, thanks scott for catching this.

  • Loading branch information...
nixeagle committed Feb 1, 2010
1 parent 0d85086 commit 98f8f64e34f4209106a49d08f20dcf997f093256
Showing with 8 additions and 8 deletions.
  1. +8 −8 issues.lisp
View
@@ -13,18 +13,18 @@
(:documentation "Close ISSUE on USERNAME's REPOSITORY."))
(defgeneric reopen-issue (username repository issue &key login token)
(:documentation "Reopen ISSUE on USERNAME's REPOSITORY."))
-(defgeneric edit-issue (username repository title body issue &key login token)
+(defgeneric edit-issue (username repository issue title body &key login token)
(:documentation "Edit ISSUE setting TITLE and BODY on USERNAME's REPOSITORY.
Editing an issue causes your TITLE and BODY to completely replace the
original TITLE and BODY."))
(defgeneric show-labels (username repository &key login token)
(:documentation "Show issue labels for USERNAME's REPOSITORY."))
-(defgeneric add-label (username repository label issue &key login token)
+(defgeneric add-label (username repository issue label &key login token)
(:documentation "Add LABEL to ISSUE on USERNAME's REPOSITORY."))
-(defgeneric remove-label (username repository label issue &key login token)
+(defgeneric remove-label (username repository issue label &key login token)
(:documentation "Remove LABEL from ISSUE on USERNAME's REPOSITORY."))
-(defgeneric add-comment (username repository comment issue &key login token)
+(defgeneric add-comment (username repository issue comment &key login token)
(:documentation "Add COMMENT to ISSUE on USERNAME's REPOSITORY."))
(defclass issue-labels ()
@@ -77,7 +77,7 @@ original TITLE and BODY."))
,repository ,issue))))
(defmethod edit-issue ((username string) (repository string)
- (title string) (body string) (issue string)
+ (issue string) (title string) (body string)
&key login token)
(to-json (authed-request login token `("issues" "edit" ,username
,repository ,issue)
@@ -89,23 +89,23 @@ original TITLE and BODY."))
`("issues" "labels" ,username ,repository))))
(defmethod add-label ((username string) (repository string)
- (label string) (issue string)
+ (issue string) (label string)
&key login token)
(json->list (authed-request login token
`("issues" "label" "add"
,username ,repository
,label ,issue))))
(defmethod remove-label ((username string) (repository string)
- (label string) (issue string)
+ (issue string) (label string)
&key login token)
(json->list (authed-request login token
`("issues" "label" "remove"
,username ,repository
,label ,issue))))
(defmethod add-comment ((username string) (repository string)
- (comment string) (issue string)
+ (issue string) (comment string)
&key login token)
(to-json (authed-request login token `("issues" "comment" ,username
,repository ,issue)

0 comments on commit 98f8f64

Please sign in to comment.