about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--org-clubhouse.el12
1 files changed, 12 insertions, 0 deletions
diff --git a/org-clubhouse.el b/org-clubhouse.el
index fed65b3779ec..f7a570ae50a2 100644
--- a/org-clubhouse.el
+++ b/org-clubhouse.el
@@ -585,6 +585,18 @@ If the stories already have a CLUBHOUSE-ID, they are filtered and ignored."
 ;;; Story updates
 ;;;
 
+(defun org-clubhouse-update-story-title ()
+  (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)
   (assert (and (integerp story-id)