From 8838454236cd448afa2c752c4a6dc6f4bb7a3bf4 Mon Sep 17 00:00:00 2001 From: Tatu Lahtela Date: Fri, 12 Jun 2020 11:31:32 +0300 Subject: Add function to add a single headline from my tasks Add function to create single story element from a prompted list of active stories. --- org-clubhouse.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/org-clubhouse.el b/org-clubhouse.el index 884c8d288f2b..e6e29b575187 100644 --- a/org-clubhouse.el +++ b/org-clubhouse.el @@ -1030,6 +1030,21 @@ which labels to set." "\n") "")))) +(defun org-clubhouse-headline-from-my-tasks (level) + "Prompt my active stories and create a single `org-mode' headline at LEVEL." + (interactive "*nLevel: \n") + (if org-clubhouse-username + (let* ((story-list (org-clubhouse--search-stories + (format "owner:%s !is:done !is:archived" + org-clubhouse-username))) + (stories (to-id-name-pairs story-list))) + (org-clubhouse-headline-from-story-id level + (find-match-in-alist + (ivy-read "Select Story: " + (-map #'cdr stories)) + stories))) + (warn "Can't fetch my tasks if `org-clubhouse-username' is unset"))) + (defun org-clubhouse-headline-from-story-id (level story-id) "Create a single `org-mode' headline at LEVEL based on the given clubhouse STORY-ID." (interactive "*nLevel: \nnStory ID: ") -- cgit 1.4.1