diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-09-18 21:13:11 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-09-18 21:13:11 -0400 |
| commit | de4d2fca0ec34d0bae1b9bf0db66b4bd8f2fcd98 (patch) | |
| tree | 323da9db66cbf326ae8a16638db0488bc2cb7294 /emacsconf.el | |
| parent | bd410955b07ae4b7ee7f1012848cb789aa7cc27e (diff) | |
| download | emacsconf-el-de4d2fca0ec34d0bae1b9bf0db66b4bd8f2fcd98.tar.xz emacsconf-el-de4d2fca0ec34d0bae1b9bf0db66b4bd8f2fcd98.zip | |
Add emacsconf-update-schedules
Diffstat (limited to 'emacsconf.el')
| -rw-r--r-- | emacsconf.el | 35 |
1 files changed, 27 insertions, 8 deletions
diff --git a/emacsconf.el b/emacsconf.el index 1f575b8..b3a77c2 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -321,24 +321,44 @@ (seq-filter (lambda (f) (plist-get f :public)) info)) ;;; Schedule summary -(defun emacsconf-format-short-time (string) +(defun emacsconf-update-schedules () + "Schedule the talks based on TIME and BUFFER. +Talks with a FIXED_TIME property are not moved." + (interactive) + (save-excursion + (org-with-wide-buffer + (let (current-time scheduled end-time duration) + (org-map-entries + (lambda () + (if (org-entry-get (point) "FIXED_TIME") + (setq current-time (org-get-scheduled-time (point)))) + (when (and (org-entry-get (point) "TIME") + (not (string= (org-entry-get (point) "TODO") "CANCELLED"))) + (setq duration (* (string-to-number (org-entry-get (point) "TIME")) 60) + end-time (time-add current-time (seconds-to-time duration))) + (org-set-property "SCHEDULED" (format "%s-%s" (org-format-time-string "%Y-%m-%d %H:%M" current-time) + (org-format-time-string "%H:%M" end-time))) + (setq current-time (time-add end-time (* (string-to-number (org-entry-get (point) "BUFFER")) 60)))))))))) + +(defun emacsconf-format-short-time (string &optional omit-end-time) (if (stringp string) (setq string (org-timestamp-from-string string))) (downcase (concat (format-time-string "~%l:%M%p" (org-timestamp-to-time (org-timestamp-split-range string))) - (format-time-string "-%l:%M%p" - (org-timestamp-to-time - (org-timestamp-split-range - string t)))))) + (if omit-end-time "" + (format-time-string "-%l:%M%p" + (org-timestamp-to-time + (org-timestamp-split-range + string t))))))) (defvar emacsconf-focus 'time "'time or 'status") (defun emacsconf-summarize-schedule () (cons (if (eq emacsconf-focus 'time) - (list "Slug" "Schedule" "Time" "Buffer" "Min" "Max" "Title" "Name" "Availability") + (list "Slug" "Schedule" "Time" "Buffer" "Max" "Title" "Name" "Availability") (list "Status" "Slug" "Schedule" "Time" "Buffer" "Title" "Name" "Q&A" "Availability")) (save-excursion (delq nil @@ -377,11 +397,10 @@ "") (if (and (org-entry-get (point) "SCHEDULED") (not (org-entry-get (point) "FIXED_TIME"))) - (emacsconf-format-short-time (org-entry-get (point) "SCHEDULED")) + (emacsconf-format-short-time (org-entry-get (point) "SCHEDULED") t) "") (or (org-entry-get (point) "TIME") "") (or (org-entry-get (point) "BUFFER") "") - (or (org-entry-get (point) "MIN_TIME") "") (or (org-entry-get (point) "MAX_TIME") "") (org-link-make-string (concat "*" (org-entry-get (point) "ITEM")) (org-entry-get (point) "ITEM")) |