Update organizers-notebook

2 files changed, 70 insertions, 10 deletions

diff --git a/2020/organizers-notebook.md b/2020/organizers-notebook.md
index 107214e8..caffeb40 100644
--- a/2020/organizers-notebook.md
+++ b/2020/organizers-notebook.md
@@ -1,7 +1,8 @@
 <!-- automatically generated from organizers-notebook.org. Please edit that file instead. -->
 [[!toc levels=4]]
 
-[Export and tangle]((progn (org-md-export-to-markdown) (org-babel-tangle)))
+-   [Export and tangle]((progn (org-md-export-to-markdown) (org-babel-tangle)))
+-   [Execute buffer]((org-babel-execute-buffer))
 
 
 # Tasks
@@ -42,9 +43,9 @@ I modified the `subed` package to work with VTT files. The modified version is a
 -   [X] sachac <./subtitles/emacsconf-2020--13-experience-report-steps-to-emacs-hyper-notebooks--joseph-corneli-raymond-puzio-cameron-ray-smith-autogen.vtt>
 -   [X] sachac <./subtitles/emacsconf-2020--14-readme-driven-design--adam-ard-autogen.vtt>
 -   [X] sachac <./subtitles/emacsconf-2020--15-moving-from-jekyll-to-orgmode-an-experience-report--adolfo-villafiorita-autogen.vtt>
--   [ ] <./subtitles/emacsconf-2020--16-org-roam-presentation-demonstration-and-whats-on-the-horizon--leo-vivier-autogen.vtt>
--   [ ] <./subtitles/emacsconf-2020--17-org-mode-and-org-roam-for-scholars-and-researchers--noorah-alhasan-autogen.vtt>
--   [ ] <./subtitles/emacsconf-2020--18-org-roam-technical-presentation--leo-vivier-autogen.vtt>
+-   [X] sachac <./info/16.md>  <./subtitles/emacsconf-2020--16-org-roam-presentation-demonstration-and-whats-on-the-horizon--leo-vivier.vtt>
+-   [X] sachac <./info/17.md>  <./subtitles/emacsconf-2020--17-org-mode-and-org-roam-for-scholars-and-researchers--noorah-alhasan.vtt>
+-   [ ] sachac  <./info/18.md>  <./subtitles/emacsconf-2020--18-org-roam-technical-presentation--leo-vivier.vtt>
 -   [ ] <./subtitles/emacsconf-2020--19-sharing-blogs-and-more-with-org-webring--brett-gilio-autogen.vtt>
 -   [ ] <./subtitles/emacsconf-2020--20-omg-macros--corwin-brust-autogen.vtt>
 -   [ ] <./subtitles/emacsconf-2020--21-on-why-most-of-the-best-features-in-eev-look-like-5-minute-hacks--eduardo-ochs-autogen.vtt>
@@ -64,9 +65,9 @@ I modified the `subed` package to work with VTT files. The modified version is a
 -   [ ] <./subtitles/emacsconf-2020--33-maxima-a-computer-algebra-system-in-emacs--fermin.vtt>
 -   [ ] <./subtitles/emacsconf-2020--34-extend-emacs-to-modern-gui-applications-with-eaf--matthew-zeng-autogen.vtt>
 -   [ ] <./subtitles/emacsconf-2020--35-waveing-at-repetitive-repetitive-repetitive-music-zmusic--questions--zachary-kanfer-autogen.vtt>
--   [ ] <./subtitles/emacsconf-2020--38-emacs-development-update--john-wiegley-autogen.vtt>
--   [ ] bhavin192 <./subtitles/emacsconf-2020--39-nongnu-elpa--questions--richard-stallman-autogen.vtt>
--   [X] bhavin192 <./subtitles/emacsconf-2020--39-nongnu-elpa--richard-stallman-autogen.vtt>
+-   [ ] bhavin192 <./subtitles/emacsconf-2020--38-emacs-development-update--john-wiegley-autogen.vtt>
+-   [X] bhavin192 <./subtitles/emacsconf-2020--39-nongnu-elpa--questions--richard-stallman.vtt>
+-   [X] bhavin192 <./subtitles/emacsconf-2020--39-nongnu-elpa--richard-stallman.vtt>
 -   [ ] <./subtitles/emacsconf-2020--40-closing-remarks-part-1-autogen.vtt>
 -   [ ] <./subtitles/emacsconf-2020--40-closing-remarks-part-2-autogen.vtt>
 -   [ ] <./subtitles/emacsconf-2020--41-opening-remarks-autogen.vtt>
@@ -765,7 +766,8 @@ Here's the original version which compresses audio too. Usage: compress-video-co
 
 ### Upload to alternative video hosting platforms once main announcement has been out for a few days
 
-Create playlist, too
+-   Create playlist, too
+-   Try to do Peertube via Toobnix first (bandali's in charge)
 
 
 ### Add subtitles
@@ -804,6 +806,63 @@ and run <subtitles/fix.py> like this: `fix.py
    emacsconf-2020--04-music-in-plain-text--jonathan-gregory.sbv`.
 
 
+### Add transcript sections
+
+    (defvar conf/wiki-directory "~/vendor/emacsconf-wiki" "Directory that has the public conference wiki.")
+    
+    (defmacro conf/with-talk-info-file (talk &rest body)
+      "Evaluate BODY in the info file for TALK.
+    If TALK is not specified, do it in the current buffer."
+      (declare (indent 1))
+      `(if ,talk
+          (with-current-buffer
+              (find-file-noselect
+               (expand-file-name (format "%d/info/%s.md" conf/year
+                                         (plist-get talk :talk-id))
+                                 conf/wiki-directory))
+            ,@body)
+         ,@body))
+    
+    (defun conf/add-transcript (&optional talk)
+      "Try to add transcript for the current talk."
+      (interactive)
+      (conf/with-talk-info-file talk
+        (goto-char (point-min))
+        (let (subtitles subed-auto-find-video all)
+          (while (re-search-forward "subtitles=\"/\\(.+?\\)\"" nil t)
+            (setq subtitles (cons (match-string 1) subtitles))
+            (when (re-search-forward "^$\\|\\[View transcript" nil t)
+              (unless (string= (match-string 0) "[View transcript")
+                (insert
+                 (if (string-match "questions" (car subtitles))
+                     "[View transcript for Q&A](#transcript-questions)\n"
+                   "[View transcript](#transcript)\n")))))
+          (when subtitles
+            (mapc
+             (lambda (subtitle-file)
+               (with-current-buffer (find-file-noselect (expand-file-name subtitle-file conf/wiki-directory))
+                 (goto-char (point-min))
+                 (subed-mode)
+                 (let (text)
+                   (while (subed-forward-subtitle-text)
+                     (setq text (cons (subed-subtitle-text) text)))
+                   (setq all (mapconcat 'identity (reverse text) "\n"))))
+               (if (re-search-forward (format "<!-- transcript: %s -->[ \t]*\n\\([.\r\n]*?\\)<!-- /transcript -->" (regexp-quote subtitle-file)) nil t)
+                   (progn
+                     (goto-char (match-beginning 1))
+                     (delete-region (match-beginning 1) (match-end 1)))
+                 (goto-char (point-max))
+                 (insert (format "\n\n<!-- transcript: %s -->\n\n" subtitle-file))
+                 (insert (if (string-match "questions" subtitle-file)
+                             "<a name=\"transcript-questions\"></a>\n# Transcript: Q&A\n\n"
+                           "<a name=\"transcript\"></a>\n# Transcript\n\n"))
+                 (save-excursion (insert "\n\n<!-- /transcript -->\n")))
+               (save-excursion (insert all)))
+             (reverse subtitles))))))
+    
+    ;; (conf/add-transcript (conf/find-talk "03")), or call from a talk info page 
+
+
 # Other useful tidbits
 
 
diff --git a/2020/organizers-notebook.org b/2020/organizers-notebook.org
index f4f4b2f3..cf390b1d 100644
--- a/2020/organizers-notebook.org
+++ b/2020/organizers-notebook.org
@@ -65,8 +65,8 @@ I modified the =subed= package to work with VTT files. The modified version is a
 - [ ] [[./subtitles/emacsconf-2020--33-maxima-a-computer-algebra-system-in-emacs--fermin.vtt]]
 - [ ] [[./subtitles/emacsconf-2020--34-extend-emacs-to-modern-gui-applications-with-eaf--matthew-zeng-autogen.vtt]]
 - [ ] [[./subtitles/emacsconf-2020--35-waveing-at-repetitive-repetitive-repetitive-music-zmusic--questions--zachary-kanfer-autogen.vtt]]
-- [ ] [[./subtitles/emacsconf-2020--38-emacs-development-update--john-wiegley-autogen.vtt]]
-- [ ] bhavin192 [[./subtitles/emacsconf-2020--39-nongnu-elpa--questions--richard-stallman-autogen.vtt]]
+- [ ] bhavin192 [[./subtitles/emacsconf-2020--38-emacs-development-update--john-wiegley-autogen.vtt]]
+- [X] bhavin192 [[./subtitles/emacsconf-2020--39-nongnu-elpa--questions--richard-stallman.vtt]]
 - [X] bhavin192 [[./subtitles/emacsconf-2020--39-nongnu-elpa--richard-stallman.vtt]]
 - [ ] [[./subtitles/emacsconf-2020--40-closing-remarks-part-1-autogen.vtt]]
 - [ ] [[./subtitles/emacsconf-2020--40-closing-remarks-part-2-autogen.vtt]]
@@ -893,4 +893,5 @@ If TALK is not specified, do it in the current buffer."
 # org-indent-indentation-per-level: 2
 # org-pretty-entities: nil
 # org-edit-src-content-indentation: 0
+# org-src-preserve-indentation: t
 # End: