From 8388100fdd2f49c0a4e1a8382301cedcbce84b0b Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 24 Jun 2013 00:46:25 +0200 Subject: [PATCH] Add scrumelo-host variable --- scrumelo.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/scrumelo.el b/scrumelo.el index 068f5d5..6774f05 100644 --- a/scrumelo.el +++ b/scrumelo.el @@ -23,6 +23,11 @@ (defvar scrumelo-project-file "~/projects/scrumelo/aeos.org" "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 (if load-file-name (file-name-directory load-file-name) @@ -261,7 +266,7 @@ saving the buffer." (value "")))) (p (a (@ (href "javascript:login()")) "Login")))))))) (POST - (let* ((audience "http://localhost:8028") + (let* ((audience scrumelo-host) (assertion (elnode-http-param httpcon "assertion")) (result (scrumelo--verify-credentials audience assertion))) (if (equal (cdr (assoc 'status result)) "okay")