166 lines
5.8 KiB
EmacsLisp
166 lines
5.8 KiB
EmacsLisp
;;; scrumelo.el --- Scrum with elnode and org-mode -*- lexical-binding: t -*-
|
|
|
|
;; Copyright (C) 2013 Tom Willemse
|
|
|
|
;; Author: Tom Willemse <tom@ryuslash.org>
|
|
;; Keywords: tools, hypermedia, outlines, comm
|
|
|
|
;;; Commentary:
|
|
|
|
;; A scrum web app.
|
|
|
|
(require 'cl-lib)
|
|
(require 'elnode)
|
|
(require 'esxml)
|
|
(require 'org)
|
|
|
|
;;; Code:
|
|
|
|
(defvar scrumelo-project-file "~/projects/scrumelo/aeos.org"
|
|
"The file containing the scrum backlog.")
|
|
|
|
(defvar scrumelo--base-dir
|
|
(if load-file-name
|
|
(file-name-directory load-file-name)
|
|
default-directory)
|
|
"The current directory.")
|
|
|
|
(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.")
|
|
|
|
(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.")
|
|
|
|
(defmacro with-scrumelo-http-params (params httpcon &rest body)
|
|
"Bind parameters PARAMS from HTTPCON and execute BODY."
|
|
(declare (indent 2))
|
|
`(let (,@(mapcar (lambda (p)
|
|
`(,p (elnode-http-param ,httpcon ,(symbol-name p))))
|
|
params))
|
|
,@body))
|
|
|
|
(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)
|
|
(scrumelo--js scrumelo-jquery-js-location)
|
|
(scrumelo--js scrumelo-react-js-location)
|
|
(scrumelo--js scrumelo-jsxtransformer-js-location)
|
|
(scrumelo--js "js/scrumelo.js")))
|
|
|
|
(defun scrumelo-backlog-page (httpcon)
|
|
"Send the backlog overview over HTTPCON."
|
|
(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")) ""))))))))
|
|
|
|
(defun scrumelo-new-story (httpcon)
|
|
"Parse data from HTTPCON and write a new scrum story using it."
|
|
(elnode-method httpcon
|
|
(POST
|
|
(let ((buffer (find-file-noselect scrumelo-project-file)))
|
|
(with-scrumelo-http-params (role necessity headline) httpcon
|
|
(with-current-buffer buffer
|
|
(goto-char (point-max))
|
|
(insert "\n* TODO " headline)
|
|
(org-set-property "Role" role)
|
|
(org-set-property "Necessity" necessity)
|
|
(save-buffer))))
|
|
(elnode-send-redirect httpcon "/"))))
|
|
|
|
(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"))
|
|
(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)))
|
|
(buffer (find-file-noselect scrumelo-project-file))
|
|
(entry (cdr (org-id-find story))))
|
|
(with-current-buffer buffer
|
|
(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))))))))
|
|
|
|
(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."
|
|
(let ((buffer (find-file-noselect scrumelo-project-file)))
|
|
(with-current-buffer buffer
|
|
(scrumelo--send-json
|
|
request (cl-map 'vector #'identity
|
|
(delq nil
|
|
(org-map-entries
|
|
#'scrumelo--org-entry-to-list
|
|
nil nil 'comment)))))))
|
|
|
|
(defun scrumelo-handler (httpcon)
|
|
"Send the right requests in HTTPCON to the right functions."
|
|
(elnode-dispatcher
|
|
httpcon
|
|
`(("^/$" . scrumelo-backlog-page)
|
|
("^/js/main.js" . ,(elnode-make-send-file
|
|
(concat scrumelo--base-dir "js/main.js")))
|
|
("^/stories/$" . scrumelo-main-json)
|
|
("^/stories/new/$" . scrumelo-new-story)
|
|
("^/stories/\\([a-z0-9:-]+\\)/$" . scrumelo-story-json))))
|
|
|
|
(elnode-start 'scrumelo-handler :port 8028 :host "0.0.0.0")
|
|
|
|
(provide 'scrumelo)
|
|
;;; scrumelo.el ends here
|