From e529f38b59cdf6fa7155de754ec9857f2b5e2dc6 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 20 Jun 2013 21:04:44 +0200
Subject: Add changing of state

By clicking on a story's state you change that story's state to the next
possible state.
---
 scrumelo.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'scrumelo.el')

diff --git a/scrumelo.el b/scrumelo.el
index 54c15bd..a3ba2d3 100644
--- a/scrumelo.el
+++ b/scrumelo.el
@@ -115,6 +115,19 @@
          (save-buffer)))
      (elnode-send-redirect httpcon "/"))))
 
+(defun scrumelo-change-state (httpcon)
+  "Parse data from HTTPCON and change the given task's state."
+  (elnode-method httpcon
+    (POST
+     (with-scrumelo-http-params (id) httpcon
+       (message "HI: %s" id)
+       (with-scrumelo-buffer
+         (let ((entry (cdr (org-id-find id))))
+           (goto-char entry)
+           (org-todo)
+           (scrumelo--send-json
+            httpcon (list (cons :state (org-entry-get (point) "TODO"))))))))))
+
 (defun scrumelo--send-json (httpcon obj)
   "Respond to HTTPCON with OBJ converted to a json structure."
   (elnode-http-start httpcon 200 '("Content-Type" . "text/json"))
@@ -161,6 +174,7 @@
                          (concat scrumelo--base-dir "js/main.js")))
      ("^/stories/$" . scrumelo-main-json)
      ("^/stories/new/$" . scrumelo-new-story)
+     ("^/stories/state/$" . scrumelo-change-state)
      ("^/stories/\\([a-z0-9:-]+\\)/$" . scrumelo-story-json))))
 
 (elnode-start 'scrumelo-handler :port 8028 :host "0.0.0.0")
-- 
cgit v1.2.3-54-g00ecf