diff options
author | EmacsConf <emacsconf-org@gnu.org> | 2023-12-01 16:58:49 -0500 |
---|---|---|
committer | EmacsConf <emacsconf-org@gnu.org> | 2023-12-01 16:58:49 -0500 |
commit | ab70615585257ddb641d416d3d2870a32e7d4bf3 (patch) | |
tree | ea8f2919e510f9be865199d06279b9aa8c3d86ab /emacsconf-schedule.el | |
parent | 6cadf82dc2f461a5acc46ae6ce42aeea20533265 (diff) | |
parent | a250d9f217299fb06dbfd7f7477535e0fa3953dd (diff) | |
download | emacsconf-el-ab70615585257ddb641d416d3d2870a32e7d4bf3.tar.xz emacsconf-el-ab70615585257ddb641d416d3d2870a32e7d4bf3.zip |
Merge branch 'main' of git.emacsconf.org:pub/emacsconf-el
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))))) |