mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: Add org-clubhouse-update-description

Browse source 
Add a command to update the description of the current story with the
contents of a drawer labeled DESCRIPTION, if one exists
This commit is contained in:
Griffin Smith 2019-02-01 11:58:26 -05:00
parent baeff81f89
commit 627799d4dc
2 changed files with 50 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
README.org
View file

@ -72,6 +72,9 @@ org-clubhouse provides the following commands:
- ~org-clubhouse-update-story-title~
Updates the title of the Clubhouse story linked to the current headline with
the text of the headline
- ~org-clubhouse-update-description~
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 exists
- ~org-clubhouse-headlines-from-query~
Create org-mode headlines from a clubhouse query at the cursor's current
position, prompting for the headline indentation level and clubhouse query

49
org-clubhouse.el
View file

@ -238,6 +238,32 @@ not be prompted")
(goto-char (plist-get elt :end)))))
(append elt `(:children ,(reverse children)))))
(defun +org-element-contents (elt)
(buffer-substring-no-properties
(plist-get (cadr elt) :contents-begin)
(plist-get (cadr elt) :contents-end)))
(defun org-clubhouse-find-description-drawer ()
"Try to find a DESCRIPTION drawer in the current element."
(let ((elt (org-element-at-point)))
(cl-case (car elt)
('drawer (+org-element-contents elt))
('headline
(when-let ((drawer-pos (string-match
":DESCRIPTION:"
(+org-element-contents elt))))
(save-excursion
(goto-char (+ (plist-get (cadr elt) :contents-begin)
drawer-pos))
(org-clubhouse-find-description-drawer)))))))
(comment
--elt
(equal 'drawer (car --elt))
()
--elt
)
;;;
;;; API integration
;;;
@ -697,8 +723,10 @@ allows manually passing a clubhouse ID and list of org-element plists to write"
;;;
(defun org-clubhouse-update-story-title ()
"Updates the title of the Clubhouse story linked to the current headline with
the text of the headline"
"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))
@ -721,6 +749,11 @@ the text of the headline"
(json-encode attrs)))
(defun org-clubhouse-update-status ()
"Update the status of the Clubhouse story linked to the current element.
Update the status of the Clubhouse story linked to the current element with the
entry in `org-clubhouse-state-alist' corresponding to the todo-keyword of the
element."
(interactive)
(when-let* ((clubhouse-id (org-element-clubhouse-id)))
(let* ((elt (org-element-find-headline))
@ -735,6 +768,18 @@ the text of the headline"
(message "Successfully updated clubhouse status to \"%s\""
clubhouse-workflow-state)))))
(defun org-clubhouse-update-description ()
"Update the description of the Clubhouse story linked to the current 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")))
(defun org-clubhouse-headlines-from-query (level query)
"Create `org-mode' headlines from a clubhouse query.