Add `pivotal-set-owner'

jxa · Mar 6, 2014 · 2850989 · 2850989
1 parent 8db5231
commit 2850989
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/README.md b/README.md
@@ -44,6 +44,7 @@ or set it manually:
 **  example: pressing <kbd>2</kbd> followed by pressing <kbd>E</kbd> will assign a **2 pt** estimate for current story
 * <kbd>C</kbd> will prompt for a new comment
 * <kbd>S</kbd> will prompt for new status
+* <kbd>O</kbd> will prompt for new story owner
 * <kbd>T</kbd> will prompt for a new task
 * <kbd>F</kbd> will mark the task (not the story) under the cursor as finished
 * <kbd>+</kbd> adds a new story

diff --git a/pivotal-tracker.el b/pivotal-tracker.el
@@ -153,6 +153,22 @@
                  'pivotal-update-current-story
                  (format "<story><current_state>%s</current_state></story>" new-state))))
 
+(defun pivotal-set-owner (new-owner-id)
+  "set owner for the current story."
+  (interactive
+   (let ((member-name-id-alist (pivotal-project->member-name-id-alist *pivotal-current-project*)))
+     (list (cdr (assoc (completing-read "New owner: "
+                                        member-name-id-alist
+                                        nil
+                                        t
+                                        nil
+                                        'pivotal-story-owner-history)
+                       member-name-id-alist)))))
+  (pivotal-api (pivotal-url "projects" *pivotal-current-project* "stories" (pivotal-story-id-at-point))
+	       "PUT"
+	       'pivotal-update-current-story
+	       (format "<story><owned_by_id>%s</owned_by_id></story>" new-owner-id)))
+
 (defun pivotal-add-comment (comment)
   "prompt user for comment and add it to the current story"
   (interactive "sAdd Comment: ")
@@ -287,6 +303,7 @@
   (define-key pivotal-mode-map (kbd "E") 'pivotal-estimate-story)
   (define-key pivotal-mode-map (kbd "C") 'pivotal-add-comment)
   (define-key pivotal-mode-map (kbd "S") 'pivotal-set-status)
+  (define-key pivotal-mode-map (kbd "O") 'pivotal-set-owner)
   (define-key pivotal-mode-map (kbd "L") 'pivotal)
   (define-key pivotal-mode-map (kbd "T") 'pivotal-add-task)
   (define-key pivotal-mode-map (kbd "+") 'pivotal-add-story)