maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: Add description to created headlines

Browse source 
This is nice to have, but also stick it in a drawer so it's not obtrusive
This commit is contained in:
Griffin Smith 2019-02-01 11:22:31 -05:00
parent 8ed9c37a7a
commit a72382a77c
1 changed files with 21 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

35
org-clubhouse.el
View file

@ -740,24 +740,31 @@ resulting stories at headline level LEVEL."
(org-clubhouse-request
"GET"
"search/stories"
:params '((query query))))
(sprint-story-list (-> sprint-stories cdr car cdr (append nil))))
(save-mark-and-excursion
(insert
(mapconcat (lambda (story)
(format
"%s TODO %s
:params `((query ,query))))
(sprint-story-list (-> sprint-stories cdr car cdr (append nil)
reject-archived)))
(if (null sprint-story-list)
(message "Query returned no stories: %s" query)
(save-mark-and-excursion
(insert
(mapconcat (lambda (story)
(format
"%s TODO %s
:PROPERTIES:
:clubhouse-id: %s
:END:
:DESCRIPTION:
%s
:END:
"
(make-string level ?*)
(alist-get 'name story)
(let ((story-id (alist-get 'id story)))
(org-make-link-string
(org-clubhouse-link-to-story story-id)
(number-to-string story-id)))))
(reject-archived sprint-story-list) "\n")))))
(make-string level ?*)
(alist-get 'name story)
(let ((story-id (alist-get 'id story)))
(org-make-link-string
(org-clubhouse-link-to-story story-id)
(number-to-string story-id)))
(alist-get 'description story)))
(reject-archived sprint-story-list) "\n"))))))
(define-minor-mode org-clubhouse-mode
:init-value nil