diff options
author | Tom Willemsen | 2012-10-28 11:05:12 +0100 |
---|---|---|
committer | Tom Willemsen | 2012-10-28 11:05:12 +0100 |
commit | 1d302fadc09daee556b875e8026673c97e32ba3b (patch) | |
tree | 3311a5171123e83d92ae9e871b86ed9ebd4b00a8 | |
parent | 7fbf663ea523a0eb0f5b9e892c3b81d423828ca6 (diff) | |
download | ogi-master.tar.gz ogi-master.zip |
* ogi.el (ogi--project): New "internal" variable.
(ogi-insert-entry): Add `GH_PROJECT' property to identify which
github property an entry came from. Only add a `MILESTONE' property
when it has a name (as in, when it exists). Add a `DEADLINE' to the
entry if the milestone has a due date.
(ogi-get-for): Rename from `ogi-insert', which is kind of
non-descript. Bind `ogi--project' to whichever project we're
fetching so other functions can use it.
-rw-r--r-- | ogi.el | 21 |
1 files changed, 18 insertions, 3 deletions
@@ -28,6 +28,9 @@ ;;; Code: +(defvar ogi--project nil + "Container for the name of the project we're fetching.") + (defun ogi-get (project) "Get a list of open issues for PROJECT." (let* ((url-request-extra-headers @@ -68,14 +71,26 @@ (replace-regexp-in-string "-" "_" (ogiprop itm name))) (ogiprop issue labels))) - (org-entry-put (point) "ID" id)))) + (org-entry-put (point) "ID" id) + (org-entry-put (point) "GH_PROJECT" ogi--project) + + (let* ((milestone (ogiprop issue milestone)) + (title (ogiprop milestone title)) + (due-on (ogiprop milestone due_on))) + (when title + (org-entry-put (point) "MILESTONE" title) + (when due-on + (message due-on) + (org-deadline + nil (replace-regexp-in-string "[TZ]" " " due-on)))))))) ;;;###autoload -(defun ogi-insert (project) +(defun ogi-get-for (project) "Insert (new) issues for PROJECT under the current entry." (interactive "MGet issues for: ") (goto-char (point-max)) - (mapc #'ogi-insert-entry (ogi-get project))) + (let ((ogi--project project)) + (mapc #'ogi-insert-entry (ogi-get project)))) (provide 'ogi) |