From 00a48085fb5b3ed5d566c9d1a75a680c497366a8 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Sun, 8 Nov 2020 22:45:01 -0500
Subject: Let's see what happens if we include submissions.org

---
 2020/submissions.org | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to '2020/submissions.org')

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
 
-- 
cgit v1.2.3