diff options
| author | Sacha Chua <sacha@sachachua.com> | 2025-12-03 14:39:31 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2025-12-03 14:39:31 -0500 |
| commit | ea96f2d6f7a9d96123ef5fab3c46d448088c6b8e (patch) | |
| tree | bf7c276fab5fcdeeb4f1d0d8e3feaadbe946bcda /emacsconf-schedule.el | |
| parent | f10330905c780ecfa55e07c231d515bb3cb4c637 (diff) | |
| download | emacsconf-el-ea96f2d6f7a9d96123ef5fab3c46d448088c6b8e.tar.xz emacsconf-el-ea96f2d6f7a9d96123ef5fab3c46d448088c6b8e.zip | |
handle schedule updates
Diffstat (limited to 'emacsconf-schedule.el')
| -rw-r--r-- | emacsconf-schedule.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index cf5418b..cfc1340 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -288,16 +288,16 @@ Pairs with `emacsconf-schedule-dump-sexp'." (defun emacsconf-schedule-save-emailed-times (info &optional field force) (interactive (list (or emacsconf-schedule-draft (emacsconf-get-talk-info)) - (read-string "Field: ") current-prefix-arg)) + nil current-prefix-arg)) + (setq field (or field "EMAILED_SCHEDULE")) (save-window-excursion (save-excursion (mapc (lambda (talk) (emacsconf-go-to-talk (plist-get talk :slug)) (when (and (plist-get talk :scheduled) - (or force (null (org-entry-get (point) - (or field "ORIGINAL_SCHEDULE"))))) + (or force (null (org-entry-get (point) field)))) (org-entry-put (point) - (or field "ORIGINAL_SCHEDULE") + field (replace-regexp-in-string "[<>]" "" (plist-get talk :scheduled))))) (emacsconf-filter-talks info))))) |