From e3ef726cb9afc0ed1c8e8c5702cc56f21c9fec20 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sat, 18 May 2013 00:42:49 +0200 Subject: Save author name and email from form --- eliss.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/eliss.el b/eliss.el index 9ed2eb9..e50104a 100644 --- a/eliss.el +++ b/eliss.el @@ -211,7 +211,9 @@ certain other properties. (i-m-human (elnode-http-param httpcon "i-m-human")) (i-r-bot (elnode-http-param httpcon "i-r-bot")) (content (elnode-http-param httpcon "content")) - (category (elnode-http-param httpcon "category"))) + (category (elnode-http-param httpcon "category")) + (name (elnode-http-param httpcon "name")) + (email (elnode-http-param httpcon "email"))) (when (and (equal i-m-human "t") (equal i-r-bot "")) (with-current-buffer buffer (goto-char (point-min)) @@ -225,6 +227,8 @@ certain other properties. (org-set-tags-to tags) (org-set-property "CATEGORY" category) (org-set-property "ID" (org-id-new project)) + (org-set-property "AuthorName" name) + (org-set-property "AuthorEmail" email) (save-buffer))) (elnode-send-redirect httpcon (concat "/" project "/")))))) @@ -242,7 +246,9 @@ certain other properties. (email (elnode-http-param httpcon "email")) (i-m-human (elnode-http-param httpcon "i-m-human")) (i-r-bot (elnode-http-param httpcon "i-r-bot")) - (content (elnode-http-param httpcon "content"))) + (content (elnode-http-param httpcon "content")) + (name (elnode-http-param httpcon "name")) + (email (elnode-http-param httpcon "email"))) (when (and (equal i-m-human "t") (equal i-r-bot "")) (with-current-buffer buffer (goto-char entry) @@ -253,6 +259,8 @@ certain other properties. (let ((text-start (point))) (insert "\n\n" content) (fill-region text-start (point))) + (org-set-property "AuthorName" name) + (org-set-property "AuthorEmail" email) (save-buffer))) (elnode-send-redirect httpcon (concat "/" project "/" issue "/")))))) -- cgit v1.2.3-54-g00ecf