2013-06-19 23:51:54 +02:00
|
|
|
;;; scrumelo.el --- Scrum with elnode and org-mode -*- lexical-binding: t -*-
|
2013-05-19 16:35:14 +02:00
|
|
|
|
|
|
|
|
;; Copyright (C) 2013 Tom Willemse
|
|
|
|
|
|
|
|
|
|
;; Author: Tom Willemse <tom@ryuslash.org>
|
|
|
|
|
;; Keywords: tools, hypermedia, outlines, comm
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
;; A scrum web app.
|
|
|
|
|
|
2013-06-19 23:51:54 +02:00
|
|
|
(require 'cl-lib)
|
2013-05-19 16:35:14 +02:00
|
|
|
(require 'elnode)
|
|
|
|
|
(require 'esxml)
|
|
|
|
|
(require 'org)
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
2013-05-20 13:26:25 +02:00
|
|
|
(defvar scrumelo-project-file "~/projects/scrumelo/aeos.org"
|
|
|
|
|
"The file containing the scrum backlog.")
|
2013-05-19 16:35:14 +02:00
|
|
|
|
2013-05-22 21:49:16 +02:00
|
|
|
(defvar scrumelo--base-dir
|
|
|
|
|
(if load-file-name
|
2013-06-01 23:49:29 +02:00
|
|
|
(file-name-directory load-file-name)
|
2013-05-22 21:49:16 +02:00
|
|
|
default-directory)
|
|
|
|
|
"The current directory.")
|
|
|
|
|
|
2013-05-20 14:16:33 +02:00
|
|
|
(defvar scrumelo-bootstrap-css-location
|
|
|
|
|
"http://netdna.bootstrapcdn.com/twitter-bootstrap/2.3.2/css/bootstrap-combined.no-icons.min.css"
|
|
|
|
|
"The location of the twitter bootstrap CSS file.")
|
|
|
|
|
|
|
|
|
|
(defvar scrumelo-bootstrap-js-location
|
|
|
|
|
"http://netdna.bootstrapcdn.com/twitter-bootstrap/2.3.2/js/bootstrap.min.js"
|
|
|
|
|
"The location of the twitter bootstrap JS file.")
|
|
|
|
|
|
|
|
|
|
(defvar scrumelo-font-awesome-css-location
|
|
|
|
|
"http://netdna.bootstrapcdn.com/font-awesome/3.1.1/css/font-awesome.min.css"
|
|
|
|
|
"The location of the font awesome CSS file.")
|
|
|
|
|
|
|
|
|
|
(defvar scrumelo-jquery-js-location
|
|
|
|
|
"http://code.jquery.com/jquery-2.0.0.min.js"
|
|
|
|
|
"The location of the jQuery JS file.")
|
|
|
|
|
|
2013-06-19 23:51:54 +02:00
|
|
|
(defvar scrumelo-react-js-location
|
|
|
|
|
"http://cdnjs.cloudflare.com/ajax/libs/react/0.3.2/react.min.js"
|
|
|
|
|
"The location of the React JS file.")
|
|
|
|
|
|
|
|
|
|
(defvar scrumelo-jsxtransformer-js-location
|
|
|
|
|
"http://cdnjs.cloudflare.com/ajax/libs/react/0.3.2/JSXTransformer.js"
|
|
|
|
|
"The location of the JSX Transformer JS file.")
|
|
|
|
|
|
2013-05-20 15:02:30 +02:00
|
|
|
(defmacro with-scrumelo-http-params (params httpcon &rest body)
|
|
|
|
|
"Bind parameters PARAMS from HTTPCON and execute BODY."
|
2013-06-19 23:51:54 +02:00
|
|
|
(declare (indent 2))
|
2013-05-20 15:02:30 +02:00
|
|
|
`(let (,@(mapcar (lambda (p)
|
|
|
|
|
`(,p (elnode-http-param ,httpcon ,(symbol-name p))))
|
|
|
|
|
params))
|
|
|
|
|
,@body))
|
|
|
|
|
|
2013-06-20 20:18:47 +02:00
|
|
|
(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))
|
|
|
|
|
|
2013-05-20 14:16:33 +02:00
|
|
|
(defun scrumelo--css (href)
|
|
|
|
|
"Return a link pointing to HREF."
|
|
|
|
|
`(link (@ (href ,href) (rel "stylesheet") (type "text/css"))))
|
|
|
|
|
|
|
|
|
|
(defun scrumelo--css-list ()
|
|
|
|
|
"Return a list of all required CSS files."
|
|
|
|
|
(list (scrumelo--css scrumelo-bootstrap-css-location)
|
|
|
|
|
(scrumelo--css scrumelo-font-awesome-css-location)))
|
|
|
|
|
|
|
|
|
|
(defun scrumelo--js (src)
|
|
|
|
|
"Return a script sourcing SRC."
|
|
|
|
|
`(script (@ (src ,src) (language "JavaScript")
|
|
|
|
|
(type "text/javascript")) ""))
|
|
|
|
|
|
|
|
|
|
(defun scrumelo--js-list ()
|
|
|
|
|
"Return a list of all required JS files."
|
|
|
|
|
(list (scrumelo--js scrumelo-bootstrap-js-location)
|
2013-05-21 21:19:29 +02:00
|
|
|
(scrumelo--js scrumelo-jquery-js-location)
|
2013-06-19 23:51:54 +02:00
|
|
|
(scrumelo--js scrumelo-react-js-location)
|
|
|
|
|
(scrumelo--js scrumelo-jsxtransformer-js-location)
|
2013-05-21 21:19:29 +02:00
|
|
|
(scrumelo--js "js/scrumelo.js")))
|
2013-05-20 14:16:33 +02:00
|
|
|
|
2013-05-19 16:35:14 +02:00
|
|
|
(defun scrumelo-backlog-page (httpcon)
|
|
|
|
|
"Send the backlog overview over HTTPCON."
|
2013-06-19 23:51:54 +02:00
|
|
|
(elnode-http-start httpcon 200 '("Content-Type" . "text/html"))
|
|
|
|
|
(elnode-http-return
|
|
|
|
|
httpcon
|
|
|
|
|
(concat
|
|
|
|
|
"<!DOCTYPE html>\n"
|
|
|
|
|
(sxml-to-xml
|
|
|
|
|
`(html (head (title "Scrumelo")
|
|
|
|
|
,@(scrumelo--css-list)
|
|
|
|
|
,@(scrumelo--js-list))
|
|
|
|
|
(body
|
|
|
|
|
(div (@ (class "container"))
|
|
|
|
|
(h1 "Backlog")
|
|
|
|
|
(div (@ (id "content")) "")
|
|
|
|
|
(script (@ (type "text/jsx") (src "js/main.js")) ""))))))))
|
2013-05-20 15:02:30 +02:00
|
|
|
|
|
|
|
|
(defun scrumelo-new-story (httpcon)
|
|
|
|
|
"Parse data from HTTPCON and write a new scrum story using it."
|
|
|
|
|
(elnode-method httpcon
|
|
|
|
|
(POST
|
2013-06-20 20:18:47 +02:00
|
|
|
(with-scrumelo-http-params (role necessity headline) httpcon
|
|
|
|
|
(with-scrumelo-buffer
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(insert "\n* TODO " headline)
|
|
|
|
|
(org-set-property "Role" role)
|
|
|
|
|
(org-set-property "Necessity" necessity)
|
|
|
|
|
(save-buffer)))
|
2013-05-20 15:02:30 +02:00
|
|
|
(elnode-send-redirect httpcon "/"))))
|
2013-05-19 16:35:14 +02:00
|
|
|
|
2013-06-20 21:04:44 +02:00
|
|
|
(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
|
|
|
|
|
(with-scrumelo-buffer
|
|
|
|
|
(let ((entry (cdr (org-id-find id))))
|
|
|
|
|
(goto-char entry)
|
|
|
|
|
(org-todo)
|
2013-06-20 22:51:56 +02:00
|
|
|
(save-buffer)
|
2013-06-20 21:04:44 +02:00
|
|
|
(scrumelo--send-json
|
2013-06-20 22:51:56 +02:00
|
|
|
httpcon
|
|
|
|
|
(list (cons :state (org-entry-get (point) "TODO"))))))))))
|
|
|
|
|
|
|
|
|
|
(defun scrumelo-move-story (dir)
|
|
|
|
|
"Create a function to move a story in direction DIR."
|
|
|
|
|
(let ((func (intern (concat "org-move-subtree-" dir))))
|
|
|
|
|
(lambda (httpcon)
|
|
|
|
|
(elnode-method httpcon
|
|
|
|
|
(POST
|
|
|
|
|
(with-scrumelo-http-params (id) httpcon
|
|
|
|
|
(with-scrumelo-buffer
|
|
|
|
|
(let ((entry (cdr (org-id-find id))))
|
|
|
|
|
(goto-char entry)
|
|
|
|
|
(funcall func)
|
|
|
|
|
(save-buffer)
|
|
|
|
|
(scrumelo--send-json
|
|
|
|
|
httpcon
|
|
|
|
|
(list (cons :status "OK")))))))))))
|
2013-06-20 21:04:44 +02:00
|
|
|
|
2013-05-22 21:50:56 +02:00
|
|
|
(defun scrumelo--send-json (httpcon obj)
|
|
|
|
|
"Respond to HTTPCON with OBJ converted to a json structure."
|
2013-06-02 00:09:35 +02:00
|
|
|
(elnode-http-start httpcon 200 '("Content-Type" . "text/json"))
|
2013-05-22 21:50:56 +02:00
|
|
|
(elnode-http-return httpcon (json-encode obj)))
|
|
|
|
|
|
|
|
|
|
(defun scrumelo-story-json (httpcon)
|
|
|
|
|
"Repsond to HTTPCON with some json info about a story."
|
|
|
|
|
(let* ((story (match-string 1 (elnode-http-mapping httpcon)))
|
|
|
|
|
(entry (cdr (org-id-find story))))
|
2013-06-20 20:18:47 +02:00
|
|
|
(with-scrumelo-buffer
|
2013-05-22 21:50:56 +02:00
|
|
|
(goto-char entry)
|
|
|
|
|
(scrumelo--send-json
|
|
|
|
|
httpcon (list (cons 'Assignee (org-entry-get (point) "Assignee"))
|
|
|
|
|
(cons 'content (buffer-substring-no-properties
|
|
|
|
|
(org-end-of-meta-data-and-drawers)
|
|
|
|
|
(org-entry-end-position))))))))
|
|
|
|
|
|
2013-06-19 23:51:54 +02:00
|
|
|
(defun scrumelo--org-entry-to-list ()
|
|
|
|
|
"Turn an org-entry to json."
|
|
|
|
|
(let ((components (org-heading-components)))
|
|
|
|
|
(when (= (car components) 1)
|
|
|
|
|
`((:id . ,(org-id-get))
|
|
|
|
|
(:state . ,(org-entry-get (point) "TODO"))
|
|
|
|
|
(:role . ,(org-entry-get (point) "Role"))
|
|
|
|
|
(:necessity . ,(org-entry-get (point) "Necessity"))
|
|
|
|
|
(:title . ,(nth 4 components))))))
|
|
|
|
|
|
|
|
|
|
(defun scrumelo-main-json (request)
|
|
|
|
|
"Respond to REQUEST with the json info for the main page."
|
2013-06-20 20:18:47 +02:00
|
|
|
(with-scrumelo-buffer
|
|
|
|
|
(scrumelo--send-json
|
|
|
|
|
request (cl-map 'vector #'identity
|
|
|
|
|
(delq nil
|
|
|
|
|
(org-map-entries
|
|
|
|
|
#'scrumelo--org-entry-to-list
|
|
|
|
|
nil nil 'comment))))))
|
2013-06-19 23:51:54 +02:00
|
|
|
|
2013-05-19 16:35:14 +02:00
|
|
|
(defun scrumelo-handler (httpcon)
|
|
|
|
|
"Send the right requests in HTTPCON to the right functions."
|
|
|
|
|
(elnode-dispatcher
|
|
|
|
|
httpcon
|
2013-05-21 21:19:29 +02:00
|
|
|
`(("^/$" . scrumelo-backlog-page)
|
2013-06-19 23:51:54 +02:00
|
|
|
("^/js/main.js" . ,(elnode-make-send-file
|
|
|
|
|
(concat scrumelo--base-dir "js/main.js")))
|
|
|
|
|
("^/stories/$" . scrumelo-main-json)
|
2013-06-01 23:49:46 +02:00
|
|
|
("^/stories/new/$" . scrumelo-new-story)
|
2013-06-20 21:04:44 +02:00
|
|
|
("^/stories/state/$" . scrumelo-change-state)
|
2013-06-20 22:51:56 +02:00
|
|
|
("^/stories/up/$" . ,(scrumelo-move-story "up"))
|
|
|
|
|
("^/stories/down/$" . ,(scrumelo-move-story "down"))
|
2013-06-02 00:09:35 +02:00
|
|
|
("^/stories/\\([a-z0-9:-]+\\)/$" . scrumelo-story-json))))
|
2013-05-19 16:35:14 +02:00
|
|
|
|
2013-06-19 23:51:54 +02:00
|
|
|
(elnode-start 'scrumelo-handler :port 8028 :host "0.0.0.0")
|
2013-05-19 16:35:14 +02:00
|
|
|
|
|
|
|
|
(provide 'scrumelo)
|
|
|
|
|
;;; scrumelo.el ends here
|
