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

Add scrumelo-host variable

Browse source
This commit is contained in:
Tom Willemse 2013-06-24 00:46:25 +02:00
parent 2767104527
commit 8388100fdd
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scrumelo.el
View file

@ -23,6 +23,11 @@
(defvar scrumelo-project-file "~/projects/scrumelo/aeos.org" (defvar scrumelo-project-file "~/projects/scrumelo/aeos.org"
"The file containing the scrum backlog.") "The file containing the scrum backlog.")
(defvar scrumelo-host "http://localhost:8028"
"The URL on which scrumelo is running.
Mozilla persona uses this to verify login requests.")
(defvar scrumelo--base-dir (defvar scrumelo--base-dir
(if load-file-name (if load-file-name
(file-name-directory load-file-name) (file-name-directory load-file-name)
@ -261,7 +266,7 @@ saving the buffer."
(value "")))) (value ""))))
(p (a (@ (href "javascript:login()")) "Login")))))))) (p (a (@ (href "javascript:login()")) "Login"))))))))
(POST (POST
(let* ((audience "http://localhost:8028") (let* ((audience scrumelo-host)
(assertion (elnode-http-param httpcon "assertion")) (assertion (elnode-http-param httpcon "assertion"))
(result (scrumelo--verify-credentials audience assertion))) (result (scrumelo--verify-credentials audience assertion)))
(if (equal (cdr (assoc 'status result)) "okay") (if (equal (cdr (assoc 'status result)) "okay")