diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-04 19:57:43 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-04 19:57:43 -0400 |
| commit | 300a16c9ba2b3596b4fe860eac9147351ac70d22 (patch) | |
| tree | 8314a19acd82c2f226f43c57daefa41f422cb2df | |
| parent | c3645e1e498d7445d0a23256abbee7e28fdea29e (diff) | |
| parent | 86fdd4a416191722b17f73109e735600c7c81156 (diff) | |
| download | emacsconf-el-300a16c9ba2b3596b4fe860eac9147351ac70d22.tar.xz emacsconf-el-300a16c9ba2b3596b4fe860eac9147351ac70d22.zip | |
Merge branch 'main' of git.emacsconf.org:pub/emacsconf-el into main
| -rw-r--r-- | emacsconf.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/emacsconf.el b/emacsconf.el index ac7a4aa..60f9ac2 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1151,5 +1151,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 |