diff options
| author |  Tom Willemse | 2013-05-18 00:42:49 +0200 |
|---|---|---|
| committer | Tom Willemse | 2013-05-18 00:42:49 +0200 |
| commit | e3ef726cb9afc0ed1c8e8c5702cc56f21c9fec20 (patch) | |
| tree | 32034c68b5c63425986f2e4fd4f6f28682e1f1bc | |
| parent | f598009d82c90ed11fb36b58308e4df0420afe51 (diff) | |
| download | eliss-e3ef726cb9afc0ed1c8e8c5702cc56f21c9fec20.tar.gz eliss-e3ef726cb9afc0ed1c8e8c5702cc56f21c9fec20.zip | |
Save author name and email from form
| -rw-r--r-- | eliss.el | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -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 "/")))))) |