diff options
-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 "/")))))) |