feat: Add org-clubhouse-claim

Add a standalone org-clubhouse-claim function for claiming the current
story without making any other updates
This commit is contained in:
Griffin Smith 2019-03-08 10:42:25 -05:00
parent 9b92541239
commit 453e6dc36c
2 changed files with 46 additions and 25 deletions

View file

@ -1,4 +1,4 @@
* Org-Clubhouse
#+TITLE: Org-Clubhouse
Simple, unopinionated integration between Emacs's [[https://orgmode.org/][org-mode]] and the [[https://clubhouse.io/][Clubhouse]] issue tracker
@ -34,11 +34,12 @@ Simple, unopinionated integration between Emacs's [[https://orgmode.org/][org-mo
* Setup
Once installed, you'll need to set two global config vars:
Once installed, you'll need to set three global config vars:
#+BEGIN_SRC emacs-lisp
(setq org-clubhouse-auth-token "<your-token>"
org-clubhouse-team-name "<your-team-name>")
org-clubhouse-team-name "<your-team-name>"
org-clubhouse-username "<your-username>")
#+END_SRC
You can generate a new personal API token by going to the "API Tokens" tab on
@ -79,6 +80,9 @@ org-clubhouse provides the following commands:
Create org-mode headlines from a clubhouse query at the cursor's current
position, prompting for the headline indentation level and clubhouse query
text
- ~org-clubhouse-claim~
Adds the user configured in ~org-clubhouse-username~ as the owner of the
clubhouse story associated with the headline at point
* Configuration

View file

@ -791,22 +791,6 @@ allows manually passing a clubhouse ID and list of org-element plists to write"
;;; Story updates
;;;
(defun org-clubhouse-update-story-title ()
"Update the title of the Clubhouse story linked to the current headline.
Update the title of the story linked to the current headline with the text of
the headline."
(interactive)
(when-let (clubhouse-id (org-element-clubhouse-id))
(let* ((elt (org-element-find-headline))
(title (plist-get elt :title)))
(org-clubhouse-update-story-internal
clubhouse-id
:name title)
(message "Successfully updated story title to \"%s\""
title))))
(cl-defun org-clubhouse-update-story-internal
(story-id &rest attrs)
(cl-assert (and (integerp story-id)
@ -817,6 +801,29 @@ the headline."
:data
(json-encode attrs)))
(cl-defun org-clubhouse-update-story-at-point (&rest attrs)
(when-let* ((clubhouse-id (org-element-clubhouse-id)))
(apply
#'org-clubhouse-update-story-internal
(cons clubhouse-id attrs))
t))
(defun org-clubhouse-update-story-title ()
"Update the title of the Clubhouse story linked to the current headline.
Update the title of the story linked to the current headline with the text of
the headline."
(interactive)
(let* ((elt (org-element-find-headline))
(title (plist-get elt :title)))
(and
(org-clubhouse-update-story-at-point
clubhouse-id
:name title)
(message "Successfully updated story title to \"%s\""
title))))
(defun org-clubhouse-update-status ()
"Update the status of the Clubhouse story linked to the current element.
@ -880,12 +887,12 @@ element."
Update the status of the Clubhouse story linked to the current element with the
contents of a drawer inside the element called DESCRIPTION, if any."
(interactive)
(when-let* ((clubhouse-id (org-element-clubhouse-id))
(new-description (org-clubhouse-find-description-drawer)))
(org-clubhouse-update-story-internal
clubhouse-id
:description new-description)
(message "Successfully updated story description")))
(when-let* ((new-description (org-clubhouse-find-description-drawer)))
(and
(org-clubhouse-update-story-at-point
clubhouse-id
:description new-description)
(message "Successfully updated story description"))))
;;;
;;; Creating headlines from existing stories
@ -970,6 +977,16 @@ resulting stories at headline level LEVEL."
(org-clubhouse-workflow-state-id-to-todo-keyword
(alist-get 'workflow_state_id story))))))
(defun org-clubhouse-claim ()
"Assign the clubhouse story associated with the headline at point to yourself."
(interactive)
(if org-clubhouse-username
(and
(org-clubhouse-update-story-at-point
:owner_ids (list (org-clubhouse-whoami)))
(message "Successfully claimed story"))
(warn "Can't claim story if `org-clubhouse-username' is unset")))
(comment
(org-clubhouse--search-stories "train")
(org-clubhouse-request "GET" "search/stories" :params `((query ,"")))