feat: Write story labels when pulling stories
Whenever we pull stories from clubhouse, write the labels of those stories as headline tags
This commit is contained in:
parent
cfcc346593
commit
01c684396d
1 changed files with 11 additions and 3 deletions
|
@ -963,7 +963,7 @@ which labels to set."
|
||||||
(defun org-clubhouse--story-to-headline-text (level story)
|
(defun org-clubhouse--story-to-headline-text (level story)
|
||||||
(let ((story-id (alist-get 'id story)))
|
(let ((story-id (alist-get 'id story)))
|
||||||
(format
|
(format
|
||||||
"%s %s %s
|
"%s %s %s :%s:
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:clubhouse-id: %s
|
:clubhouse-id: %s
|
||||||
:END:
|
:END:
|
||||||
|
@ -974,6 +974,11 @@ which labels to set."
|
||||||
(org-clubhouse-workflow-state-id-to-todo-keyword
|
(org-clubhouse-workflow-state-id-to-todo-keyword
|
||||||
(alist-get 'workflow_state_id story))
|
(alist-get 'workflow_state_id story))
|
||||||
(alist-get 'name story)
|
(alist-get 'name story)
|
||||||
|
(->> story
|
||||||
|
(alist-get 'labels)
|
||||||
|
->list
|
||||||
|
(-map (apply-partially #'alist-get 'name))
|
||||||
|
(s-join ":"))
|
||||||
(org-make-link-string
|
(org-make-link-string
|
||||||
(org-clubhouse-link-to-story story-id)
|
(org-clubhouse-link-to-story story-id)
|
||||||
(number-to-string story-id))
|
(number-to-string story-id))
|
||||||
|
@ -1000,7 +1005,8 @@ which labels to set."
|
||||||
(if (equal '((message . "Resource not found.")) story)
|
(if (equal '((message . "Resource not found.")) story)
|
||||||
(message "Story ID not found: %d" story-id)
|
(message "Story ID not found: %d" story-id)
|
||||||
(save-mark-and-excursion
|
(save-mark-and-excursion
|
||||||
(insert (org-clubhouse--story-to-headline-text level story))))))
|
(insert (org-clubhouse--story-to-headline-text level story))
|
||||||
|
(org-align-tags)))))
|
||||||
|
|
||||||
(defun org-clubhouse--search-stories (query)
|
(defun org-clubhouse--search-stories (query)
|
||||||
(unless (string= "" query)
|
(unless (string= "" query)
|
||||||
|
@ -1024,7 +1030,9 @@ resulting stories at headline level LEVEL."
|
||||||
level)
|
level)
|
||||||
(reject-archived story-list) "\n")))
|
(reject-archived story-list) "\n")))
|
||||||
(if (called-interactively-p)
|
(if (called-interactively-p)
|
||||||
(save-mark-and-excursion (insert text))
|
(save-mark-and-excursion
|
||||||
|
(insert text)
|
||||||
|
(org-align-all-tags))
|
||||||
text)))))
|
text)))))
|
||||||
|
|
||||||
(defun org-clubhouse-prompt-for-story (cb)
|
(defun org-clubhouse-prompt-for-story (cb)
|
||||||
|
|
Loading…
Reference in a new issue