diff options
| author | Sacha Chua <sacha@sachachua.com> | 2020-11-08 22:45:01 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2020-11-08 22:45:01 -0500 |
| commit | 00a48085fb5b3ed5d566c9d1a75a680c497366a8 (patch) | |
| tree | 21a99a112b58fc18e8c444e4643a594d91f1340d /2020/submissions.org | |
| parent | dd10fea504e2308688dfe3ab330127b19e5ede3e (diff) | |
| download | emacsconf-wiki-00a48085fb5b3ed5d566c9d1a75a680c497366a8.tar.xz emacsconf-wiki-00a48085fb5b3ed5d566c9d1a75a680c497366a8.zip | |
Let's see what happens if we include submissions.org
Diffstat (limited to '2020/submissions.org')
| -rw-r--r-- | 2020/submissions.org | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/2020/submissions.org b/2020/submissions.org index 1653bebe..f132879d 100644 --- a/2020/submissions.org +++ b/2020/submissions.org @@ -2975,8 +2975,13 @@ SCHEDULED: <2020-11-29 Sun 16:30-17:00> :TALK_ID: 37 :END: ** Planning + +This check_time block can be called from different headings. It sums +up the minimum time from the talks in the subtree and compares it with +the target time. + #+NAME: check_time -#+begin_src emacs-lisp :export code :eval no +#+begin_src emacs-lisp :exports code :eval no (list (list "Difference" "Minimum time" "Target time") (list (- (string-to-number (org-entry-get (point) "TARGET_TIME")) @@ -2985,8 +2990,11 @@ SCHEDULED: <2020-11-29 Sun 16:30-17:00> (org-entry-get (point) "TARGET_TIME"))) #+end_src -#+begin_src emacs-lisp :results none :tangle "conf.el" +Some conference-related functions + +#+begin_src emacs-lisp :exports code :results none :tangle "conf.el" (defun conf/assign-ids () + "Assign numeric talk IDs." (interactive) (goto-char (point-min)) ;; Determine the maximum ID assigned so far @@ -3072,7 +3080,7 @@ The total is written to the MIN_TIME_SUM property of this heading" #+end_src ** Generate schedule file -#+begin_src emacs-lisp :results none :eval yes +#+begin_src emacs-lisp :results none :eval yes :exports code :tangle "conf.el" (defun conf/get-talk-info () (let (talk results) (org-map-entries (lambda () @@ -3202,8 +3210,7 @@ conference for instructions on how to watch and participate. See you then! #+begin_src emacs-lisp :exports both (let* ((available-minutes (* 2 ; two days - (- (- 17 9) ; 9 to 5 - ) ; 30 minutes opening stuff, 1 hour for lunch, 30 minutes closing stuff + (- 17 9) ; 9 to 5 60 ; minutes ))) `(("80% of capacity" ,(* .8 available-minutes)) @@ -3211,8 +3218,8 @@ conference for instructions on how to watch and participate. See you then! #+end_src #+RESULTS: -| 80% of capacity | -768.0 | -| 90% of capacity | -864.0 | +| 80% of capacity | 768.0 | +| 90% of capacity | 864.0 | * COMMENT Copyright & License |