diff options
| author | EmacsConf <emacsconf-org@gnu.org> | 2022-11-04 16:57:11 -0700 |
|---|---|---|
| committer | EmacsConf <emacsconf-org@gnu.org> | 2022-11-04 16:57:11 -0700 |
| commit | d33f34beada6ba579059dfb5c3b442d4af666c3d (patch) | |
| tree | 8c8f757b413cda673bb56d6cdb118520c32643e6 | |
| parent | dfbbf5d6078020b511f9c0104d2f056fa5769f38 (diff) | |
| download | emacsconf-el-d33f34beada6ba579059dfb5c3b442d4af666c3d.tar.xz emacsconf-el-d33f34beada6ba579059dfb5c3b442d4af666c3d.zip | |
Update talk status
| -rw-r--r-- | emacsconf.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/emacsconf.el b/emacsconf.el index 4b6b444..1a8e178 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1152,5 +1152,11 @@ They will be called with TALK.") (org-agenda-category-filter-preset (list (concat "+" (plist-get track :id))))) (org-agenda-list nil emacsconf-date 2))) +(defun emacsconf-update-talk-status (slug from-states to-state) + (interactive (list (emacsconf-complete-talk) (read-string "From: ") (read-string "To: "))) + (emacsconf-with-talk-heading slug + (when (string-match from-states (org-entry-get (point) "TODO")) + (org-todo to-state)))) + (provide 'emacsconf) ;;; emacsconf.el ends here |