ryuslash/scrumelo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add with-scrumelo-buffer

Browse source
This commit is contained in:
Tom Willemse 2013-06-20 20:18:47 +02:00
parent 07fbe5ece2
commit 53dfb99f6b
1 changed files with 21 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
scrumelo.el
View file

@ -57,6 +57,12 @@
params)) params))
,@body)) ,@body))
(defmacro with-scrumelo-buffer (&rest body)
"Set the current buffer to `scrumelo-project-file' and run BODY."
(declare (indent 0))
`(with-current-buffer (find-file-noselect scrumelo-project-file)
,@body))
(defun scrumelo--css (href) (defun scrumelo--css (href)
"Return a link pointing to HREF." "Return a link pointing to HREF."
`(link (@ (href ,href) (rel "stylesheet") (type "text/css")))) `(link (@ (href ,href) (rel "stylesheet") (type "text/css"))))
@ -100,14 +106,13 @@
"Parse data from HTTPCON and write a new scrum story using it." "Parse data from HTTPCON and write a new scrum story using it."
(elnode-method httpcon (elnode-method httpcon
(POST (POST
(let ((buffer (find-file-noselect scrumelo-project-file))) (with-scrumelo-http-params (role necessity headline) httpcon
(with-scrumelo-http-params (role necessity headline) httpcon (with-scrumelo-buffer
(with-current-buffer buffer (goto-char (point-max))
(goto-char (point-max)) (insert "\n* TODO " headline)
(insert "\n* TODO " headline) (org-set-property "Role" role)
(org-set-property "Role" role) (org-set-property "Necessity" necessity)
(org-set-property "Necessity" necessity) (save-buffer)))
(save-buffer))))
(elnode-send-redirect httpcon "/")))) (elnode-send-redirect httpcon "/"))))
(defun scrumelo--send-json (httpcon obj) (defun scrumelo--send-json (httpcon obj)
@ -118,9 +123,8 @@
(defun scrumelo-story-json (httpcon) (defun scrumelo-story-json (httpcon)
"Repsond to HTTPCON with some json info about a story." "Repsond to HTTPCON with some json info about a story."
(let* ((story (match-string 1 (elnode-http-mapping httpcon))) (let* ((story (match-string 1 (elnode-http-mapping httpcon)))
(buffer (find-file-noselect scrumelo-project-file))
(entry (cdr (org-id-find story)))) (entry (cdr (org-id-find story))))
(with-current-buffer buffer (with-scrumelo-buffer
(goto-char entry) (goto-char entry)
(scrumelo--send-json (scrumelo--send-json
httpcon (list (cons 'Assignee (org-entry-get (point) "Assignee")) httpcon (list (cons 'Assignee (org-entry-get (point) "Assignee"))
@ -140,14 +144,13 @@
(defun scrumelo-main-json (request) (defun scrumelo-main-json (request)
"Respond to REQUEST with the json info for the main page." "Respond to REQUEST with the json info for the main page."
(let ((buffer (find-file-noselect scrumelo-project-file))) (with-scrumelo-buffer
(with-current-buffer buffer (scrumelo--send-json
(scrumelo--send-json request (cl-map 'vector #'identity
request (cl-map 'vector #'identity (delq nil
(delq nil (org-map-entries
(org-map-entries #'scrumelo--org-entry-to-list
#'scrumelo--org-entry-to-list nil nil 'comment))))))
nil nil 'comment)))))))
(defun scrumelo-handler (httpcon) (defun scrumelo-handler (httpcon)
"Send the right requests in HTTPCON to the right functions." "Send the right requests in HTTPCON to the right functions."