diff options
| -rw-r--r-- | org-clubhouse.el | 12 |
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) |