ryuslash/ogi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Extract the insert-issue function

Browse source
This commit is contained in:
Tom Willemsen 2012-10-20 18:55:46 +02:00
parent 0a9e0ee7c9
commit 7fbf663ea5
1 changed files with 19 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
ogi.el
View file

@ -52,28 +52,30 @@
"From alist OBJ get the value of PROP."
`(cdr (assq ',prop ,obj)))
(defun ogi-insert-entry (issue)
"Insert a single issue into the current buffer, unless it exists."
(let ((id (number-to-string (ogiprop issue id))))
(unless (org-find-entry-with-id id)
(org-insert-heading-after-current)
(insert (ogiprop issue title))
(newline)
(insert (ogiprop issue body))
(fill-paragraph)
(org-todo (if (string= (ogiprop issue state) "closed")
'done
"TODO"))
(org-set-tags-to (mapcar (lambda (itm)
(replace-regexp-in-string
"-" "_" (ogiprop itm name)))
(ogiprop issue labels)))
(org-entry-put (point) "ID" id))))
;;;###autoload
(defun ogi-insert (project)
"Insert (new) issues for PROJECT under the current entry."
(interactive "MGet issues for: ")
(goto-char (point-max))
(mapc (lambda (issue)
(let ((id (number-to-string (ogiprop issue id))))
(unless (org-find-entry-with-id id)
(org-insert-heading-after-current)
(insert (ogiprop issue title))
(newline)
(insert (ogiprop issue body))
(fill-paragraph)
(org-todo (if (string= (ogiprop issue state) "closed")
'done
"TODO"))
(org-set-tags-to (mapcar (lambda (itm)
(replace-regexp-in-string
"-" "_" (ogiprop itm name)))
(ogiprop issue labels)))
(org-entry-put (point) "ID" id))))
(ogi-get project)))
(mapc #'ogi-insert-entry (ogi-get project)))
(provide 'ogi)