...
 
Commits (3)
......@@ -238,20 +238,20 @@ Optionally specify PARAMS to filter."
(goto-char heading-pos)
(org-insert-heading-respect-content)
(org-do-demote)
(beginning-of-line) (newline) ;; add some spacing after previous heading
(org-set-property "org-gitlab" "todo")
(org-set-property "id" attr)
(org-set-property "title" (alist-get 'title (alist-get 'target todo)))
(org-set-property "title" (format "*%s*" (alist-get 'title (alist-get 'target todo))))
(org-edit-headline (org-gitlab--titlize-todo todo))
(org-set-property "action" (alist-get 'action_name todo))
;; TODO more properties?
(goto-char (cdr (org-get-property-block)))
(forward-line)
(newline)
(insert (alist-get 'body todo))
(newline))
(org-todo "TODO"))))))
(defun org-gitlab--untodo-tree ()
(defun org-gitlab--untodo-subtree ()
"Remove TODO from all headings in tree."
(org-map-entries (lambda ()
(when (string= (nth 2 (org-heading-components)) "TODO")
......@@ -268,7 +268,7 @@ contain one of the following properties: `author' or `assignee'."
(interactive)
(save-excursion
(org-narrow-to-subtree)
(org-gitlab--untodo-tree)
(org-gitlab--untodo-subtree)
(let ((params (org-gitlab--params-at-point))
(class (org-entry-get (point) "org-gitlab")))
(cond ((or (equal "issues" class)
......