diff options
| author | Sacha Chua <sacha@sachachua.com> | 2023-12-01 16:58:20 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2023-12-01 16:58:20 -0500 |
| commit | a250d9f217299fb06dbfd7f7477535e0fa3953dd (patch) | |
| tree | e0cb3e67a6f4a60d00ca88ae227d1173cce8ec7a /emacsconf-schedule.el | |
| parent | c802ad87f6fcf95f0769d5a6b66537c1088e6eb9 (diff) | |
| download | emacsconf-el-a250d9f217299fb06dbfd7f7477535e0fa3953dd.tar.xz emacsconf-el-a250d9f217299fb06dbfd7f7477535e0fa3953dd.zip | |
getting ready
Diffstat (limited to 'emacsconf-schedule.el')
| -rw-r--r-- | emacsconf-schedule.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/emacsconf-schedule.el b/emacsconf-schedule.el index 145134b..9597508 100644 --- a/emacsconf-schedule.el +++ b/emacsconf-schedule.el @@ -130,6 +130,8 @@ Each function should take the info and manipulate it as needed, returning the ne o) info)) +(defun emacsconf-schedule-ignore-fixed (info) + (mapcar (lambda (o) (plist-put o :fixed-time nil)) info)) (defun emacsconf-schedule-dump-sexp (info &optional include-time) (mapcar (lambda (o) (cond @@ -267,15 +269,18 @@ Pairs with `emacsconf-schedule-dump-sexp'." (org-entry-put (point) "TIME" (plist-get talk :time))) (emacsconf-filter-talks info))))) -(defun emacsconf-schedule-save-emailed-times (info &optional force) - (interactive (list (or emacsconf-schedule-draft (emacsconf-get-talk-info)) current-prefix-arg)) +(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)) (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) "ORIGINAL_SCHEDULE")))) - (org-entry-put (point) "ORIGINAL_SCHEDULE" + (or force (null (org-entry-get (point) + (or field "ORIGINAL_SCHEDULE"))))) + (org-entry-put (point) + (or field "ORIGINAL_SCHEDULE") (replace-regexp-in-string "[<>]" "" (plist-get talk :scheduled))))) (emacsconf-filter-talks info))))) |