Sacha Chua https://sachachua.com/blog/feed/ Emacs, sketches, and life Mon, 04 Dec 2023 15:09:24 GMT en-US daily 1 11ty 2023-12-04 Emacs news https://sachachua.com/blog/2023/12/2023-12-04-emacs-news/ Mon, 04 Dec 2023 15:09:24 GMT emacs emacs-news https://sachachua.com/blog/2023/12/2023-12-04-emacs-news/
  • Upcoming events:
  • Beginner:
  • Emacs configuration:
  • Emacs Lisp:
  • Appearance:
  • Navigation:
  • Writing:
  • Org Mode:
  • Denote:
  • Completion:
  • Coding:
  • Shells:
  • Web:
  • Mail, news, and chat:
  • Multimedia:
  • Fun:
  • AI:
  • Community:
  • Other:
  • Emacs development:
  • New packages:

    • Links from reddit.com/r/emacs, r/orgmode, r/spacemacs, r/planetemacs, Hacker News, lobste.rs, kbin, programming.dev, lemmy, communick.news, planet.emacslife.com, YouTube, the Emacs NEWS file, Emacs Calendar, and emacs-devel. Thanks to Andrés Ramírez for emacs-devel links. Do you have an Emacs-related link or announcement? Please e-mail me at sacha@sachachua.com. Thank you!

    ]]>         Analyzing my Emacs time over the last 11 years or so https://sachachua.com/blog/2023/12/analyzing-my-emacs-time-over-the-last-11-years-or-so/ Sun, 03 Dec 2023 16:26:16 GMT emacs quantified time https://sachachua.com/blog/2023/12/analyzing-my-emacs-time-over-the-last-11-years-or-so/ My EmacsConf presentation will stream in a few hours, and someone's probably going to ask where I find the time for all of this. =) So I dug through my time logs (a custom system I wrote in 2012 with Ruby on Rails; has an Emacs interface, of course) and came up with this table of hours I logged in my Discretionary - Productive - Emacs category over the past 11 years.

    Data for Emacs hours by month by year
    Year Jan Feb March April May June July Aug Sept Oct Nov Dec Total
    2012         0.7 19.4 2.7 1.9 1.2 0 0 8.6 34
    2013 0.7 12.5 38.5 18.5 10.0 6.0 1.2 5.2 0 0.1 3.2 0.4 96
    2014 2.0 3.4 18.8 39.7 45.4 15.3 2.6 0.6 2.0 7.4 5.9 15.4 158
    2015 16.6 37.4 7.4 9.0 2.3 3.3 3.2 20.0 9.6 6.3 26.5 18.2 160
    2016 8.6 4.6 3.7 3.7 4.2 2.9 1.4 2.9 2.7 2.2 4.3 2.4 44
    2017 3.7 2.7 3.2 3.2 3.0 2.0 5.2 2.8 0 0.9 3.4 3.8 34
    2018 2.9 3.3 1.9 2.2 3.9 3.3 0.9 1.4 1.5 1.8 2.3 3.0 28
    2019 2.2 10.7 2.6 2.3 13.7 6.8 7.1 3.6 13.3 16.1 16.7 2.0 97
    2020 3.3 0.5 3.0 .2 10.0 6.3 5.2 5.0 5.0 32.9 61.7 49.0 182
    2021 53.7 47.1 44.7 25.5 18.1 11.5 8.3 11.9 9.5 66.0 138.1 66.6 501
    2022 13.5 13.4 3.1 3.9 7.0 4.5 4.2 5.1 45.4 157.5 146.6 95.3 500
    2023 23.4 15.9 16.2 11.2 4.4 11.5 6.5 13.3 36.6 86.6 93.2   319

    Notes:

    • Data collection in this system started in 2012.
    • Some months look like they have under-collected data, that's fine.
    • Big spike in 2022 was when we decided to go with two tracks for EmacsConf, so I needed to figure out all the infrastructure.
    • I started doing Emacs News in 2016, which is maybe 0.5 - 1.5 hours a week.
    • EmacsConf restarted in 2019 with an online conference. I've been handling speaker/volunteer coordination, captioning, publishing, and automation/infrastructure.

    I can visualize this as a heatmap with: 

    import numpy as np
import pandas as pd
import matplotlib.pyplot as plt
import seaborn as sns
df = pd.DataFrame(time_data[1:], columns=time_data[0]).drop('Total', axis=1).set_index('Year')
df = df.apply(pd.to_numeric)
plt.title("sachac's Emacs hours by month and year")
plot = sns.heatmap(df, annot=True, cmap='crest', fmt='.0f')
fig = plot.get_figure()
fig.savefig('emacs-time.png')
    emacs-time.png

    Yes, I do actually sleep

    Overall balance of activities
    Activity Jan 2023 Feb 2023 Mar 2023 Apr 2023 May 2023 Jun 2023 Jul 2023 Aug 2023 Sep 2023 Oct 2023 Nov 2023 Total
    A- 39.0% 47.5% 44.4% 44.2% 44.1% 44.4% 41.8% 40.5% 33.2% 33.3% 34.3% 40.6%
    Business 1.3% 0.5% 3.5% 1.9% 3.8% 2.8% 3.5% 7.0% 8.8% 1.9% 1.7% 3.3%
    Discretionary > 10.8% 3.9% 4.5% 6.0% 6.6% 8.3% 6.9% 6.2% 8.8% 14.5% 16.1% 8.4%
    Personal > 10.1% 10.2% 11.7% 10.4% 9.3% 8.8% 9.9% 8.4% 9.4% 10.6% 11.9% 10.0%
    Sleep 34.6% 35.4% 32.9% 34.9% 33.4% 32.1% 34.1% 34.7% 33.9% 35.7% 33.4% 34.1%
    Unpaid work > 4.3% 2.5% 3.0% 2.8% 2.9% 3.6% 3.9% 3.3% 5.9% 4.0% 2.6% 3.5%

    Notes:

    • `A-` is my top-level category for child-care

    Sleep over the years:

    Sleep percentage
    Year Jan Feb March April May June July Aug Sept Oct Nov Dec
    2013 36.0% 34.9% 37.0% 36.5% 32.5% 35.8% 37.4% 43.1% 37.9% 36.9% 37.8% 34.5%
    2014 36.4% 38.2% 37.0% 36.7% 35.0% 37.6% 37.8% 34.7% 36.1% 34.3% 41.3% 37.4%
    2015 35.5% 35.3% 38.5% 35.0% 35.1% 39.7% 36.9% 40.1% 40.3% 37.4% 37.8% 41.4%
    2016 35.5% 35.3% 38.5% 35.0% 35.1% 39.7% 36.9% 40.1% 40.3% 37.4% 37.8% 41.4%
    2017 38.2% 35.9% 34.3% 35.1% 33.0% 30.8% 32.6% 27.2% 26.5% 32.8% 34.0% 29.6%
    2018 29.7% 33.4% 32.8% 32.5% 31.0% 29.3% 35.1% 33.0% 37.7% 36.9% 29.3% 34.0%
    2019 33.2% 34.7% 35.3% 35.6% 33.9% 30.4% 32.0% 32.9% 35.7% 34.6% 33.1% 34.4%
    2020 32.8% 34.7% 37.9% 32.2% 32.8% 30.3% 31.5% 30.1% 32.4% 31.8% 28.9% 33.1%
    2021 28.6% 30.1% 34.6% 33.3% 31.6% 31.8% 36.1% 33.6% 35.1% 34.7% 32.5% 32.4%
    2022 35.5% 35.6% 38.5% 37.2% 38.1% 38.4% 36.5% 38.1% 35.3% 32.0% 30.1% 27.8%
    2023 34.6% 35.4% 32.9% 34.9% 33.4% 32.1% 34.1% 34.7% 33.9% 35.7% 33.4% 35.2% 
    import numpy as np
import pandas as pd
import matplotlib.pyplot as plt
import seaborn as sns
df = pd.DataFrame(data[1:], columns=data[0]).set_index('Year')
df = df.applymap(lambda x: float(x.strip('%'))*24/100.0)
plt.title("sachac's sleep hours per day by month and year")
plot = sns.heatmap(df, annot=True, cmap='crest', fmt='.1f')
fig = plot.get_figure()
fig.savefig('sleep-time.png')
    sleep-time.png

    The kiddo was born in 2016. You can see how much less sleep I've been getting since then. =)

    ]]>         2023-11-27 Emacs news https://sachachua.com/blog/2023/11/2023-11-27-emacs-news/ Mon, 27 Nov 2023 15:03:45 GMT emacs emacs-news https://sachachua.com/blog/2023/11/2023-11-27-emacs-news/
  • EmacsConf 2023 is next weekend (Dec 2-3)!
  • Help wanted:
  • Upcoming events:
    • Emacs Berlin (virtual, in English) https://emacs-berlin.org/ Wed Nov 29 0930 America/Vancouver - 1130 America/Chicago - 1230 America/Toronto - 1730 Etc/GMT - 1830 Europe/Berlin - 2300 Asia/Kolkata – Thu Nov 30 0130 Asia/Singapore
    • M-x Research (contact them for password): TBA https://m-x-research.github.io/ Fri Dec 1 0800 America/Vancouver - 1000 America/Chicago - 1100 America/Toronto - 1600 Etc/GMT - 1700 Europe/Berlin - 2130 Asia/Kolkata – Sat Dec 2 0000 Asia/Singapore
    • Mastering Emacs book club https://susam.net/maze/meet/mastering-emacs/ Fri Dec 1 1200 America/Vancouver - 1400 America/Chicago - 1500 America/Toronto - 2000 Etc/GMT - 2100 Europe/Berlin – Sat Dec 2 0130 Asia/Kolkata - 0400 Asia/Singapore
    • Mastering Emacs book club https://susam.net/maze/meet/mastering-emacs/ Sat Dec 2 0200 America/Vancouver - 0400 America/Chicago - 0500 America/Toronto - 1000 Etc/GMT - 1100 Europe/Berlin - 1530 Asia/Kolkata - 1800 Asia/Singapore
    • EmacsConf 2023 https://emacsconf.org/2023 Sat Dec 2 0600 America/Vancouver - 0800 America/Chicago - 0900 America/Toronto - 1400 Etc/GMT - 1500 Europe/Berlin - 1930 Asia/Kolkata - 2200 Asia/Singapore
    • Mastering Emacs book club https://susam.net/maze/meet/mastering-emacs/ Sun Dec 3 0200 America/Vancouver - 0400 America/Chicago - 0500 America/Toronto - 1000 Etc/GMT - 1100 Europe/Berlin - 1530 Asia/Kolkata - 1800 Asia/Singapore
    • EmacsConf 2023 https://emacsconf.org/2023 Sun Dec 3 0600 America/Vancouver - 0800 America/Chicago - 0900 America/Toronto - 1400 Etc/GMT - 1500 Europe/Berlin - 1930 Asia/Kolkata - 2200 Asia/Singapore
    • Emacs Paris: S: Emacs workshop in Paris (Octo) https://emacs-doctor.com/ Tue Dec 5 1830 Europe/Paris
    • EmacsATX: Eshell Insights https://www.meetup.com/emacsatx/events/295467667/ Wed Dec 6 1630 America/Vancouver - 1830 America/Chicago - 1930 America/Toronto – Thu Dec 7 0030 Etc/GMT - 0130 Europe/Berlin - 0600 Asia/Kolkata - 0830 Asia/Singapore
    • Emacs.si (in person): Emacs.si meetup #13 2023 (v #živo) https://dogodki.kompot.si/events/11bee38f-c56c-4417-a4c5-0ab81e90ba3f Thu Dec 7 1900 CET
    • Atelier Emacs Montpellier (in person) https://lebib.org/date/atelier-emacs Fri Dec 8 1800 Europe/Paris
    • Emacs.si: Emacs.si meetup #14 2023 (#online) https://dogodki.kompot.si/events/711108f9-1286-4d29-98f3-5043ce2d9ae6 Fri Dec 8 1100 America/Vancouver - 1300 America/Chicago - 1400 America/Toronto - 1900 Etc/GMT - 2000 Europe/Berlin – Sat Dec 9 0030 Asia/Kolkata - 0300 Asia/Singapore
  • Emacs configuration:
  • Emacs Lisp:
  • Appearance:
  • Navigation:
  • Dired:
  • Org Mode:
  • Completion:
  • Coding:
  • Math:
  • Shells:
  • Mail, news, and chat:
  • Multimedia:
  • AI:
  • Community:
  • Other:
  • Emacs development:
  • New packages:

    • Links from reddit.com/r/emacs, r/orgmode, r/spacemacs, r/planetemacs, Hacker News, lobste.rs, kbin, programming.dev, lemmy, communick.news, planet.emacslife.com, YouTube, the Emacs NEWS file, Emacs Calendar, and emacs-devel. Thanks to Andrés Ramírez for emacs-devel links. Do you have an Emacs-related link or announcement? Please e-mail me at sacha@sachachua.com. Thank you!

    ]]>         2023-11-20 Emacs news https://sachachua.com/blog/2023/11/2023-11-20-emacs-news/ Mon, 20 Nov 2023 16:24:40 GMT emacs emacs-news https://sachachua.com/blog/2023/11/2023-11-20-emacs-news/
  • Upcoming events:
    • Mastering Emacs book club https://susam.net/maze/meet/mastering-emacs/ Fri Nov 24 1200 America/Vancouver - 1400 America/Chicago - 1500 America/Toronto - 2000 Etc/GMT - 2100 Europe/Berlin – Sat Nov 25 0130 Asia/Kolkata - 0400 Asia/Singapore
    • Emacs APAC (virtual) https://emacs-apac.gitlab.io/ Sat Nov 25 0030 America/Vancouver - 0230 America/Chicago - 0330 America/Toronto - 0830 Etc/GMT - 0930 Europe/Berlin - 1400 Asia/Kolkata - 1630 Asia/Singapore
    • Mastering Emacs book club https://susam.net/maze/meet/mastering-emacs/ Sat Nov 25 0200 America/Vancouver - 0400 America/Chicago - 0500 America/Toronto - 1000 Etc/GMT - 1100 Europe/Berlin - 1530 Asia/Kolkata - 1800 Asia/Singapore
    • Mastering Emacs book club https://susam.net/maze/meet/mastering-emacs/ Sun Nov 26 0200 America/Vancouver - 0400 America/Chicago - 0500 America/Toronto - 1000 Etc/GMT - 1100 Europe/Berlin - 1530 Asia/Kolkata - 1800 Asia/Singapore
    • Tbilisi Emacs Meetup (in person) https://akater.gitlab.io/emacs-tbilisi-meetup-page - 15:30 Georgia Time
    • Emacs Berlin (virtual, in English) https://emacs-berlin.org/ Wed Nov 29 0930 America/Vancouver - 1130 America/Chicago - 1230 America/Toronto - 1730 Etc/GMT - 1830 Europe/Berlin - 2300 Asia/Kolkata – Thu Nov 30 0130 Asia/Singapore
    • M-x Research (contact them for password): TBA https://m-x-research.github.io/ Fri Dec 1 0800 America/Vancouver - 1000 America/Chicago - 1100 America/Toronto - 1600 Etc/GMT - 1700 Europe/Berlin - 2130 Asia/Kolkata – Sat Dec 2 0000 Asia/Singapore
  • Emacs configuration:
  • Emacs Lisp:
  • Appearance:
  • Navigation:
  • Dired:
  • Writing:
  • Org Mode:
  • Denote:
  • Completion:
  • Coding:
  • Shells:
  • Community:
  • Other:
  • Emacs development:
  • New packages:
    • easky: Control the Eask command-line interface (MELPA)
    • llvm-ts-mode: LLVM major mode using tree-sitter (MELPA)
    • ruff-format: Ruff format Python source (MELPA)
    • sequential-yank: Minor mode to copy and paste strings sequentially (MELPA)
    • tab-bar-notch: Adjust tab-bar height for MacBook Pro notch (MELPA)

    • Links from reddit.com/r/emacs, r/orgmode, r/spacemacs, r/planetemacs, Hacker News, lobste.rs, kbin, programming.dev, lemmy, communick.news, planet.emacslife.com, YouTube, the Emacs NEWS file, Emacs Calendar, and emacs-devel. Thanks to Andrés Ramírez for emacs-devel links. Do you have an Emacs-related link or announcement? Please e-mail me at sacha@sachachua.com. Thank you!

    ]]>         2023-11-13 Emacs news https://sachachua.com/blog/2023/11/2023-11-13-emacs-news/ Mon, 13 Nov 2023 14:30:35 GMT emacs emacs-news https://sachachua.com/blog/2023/11/2023-11-13-emacs-news/
  • Upcoming events:
    • EmacsSF (in person): hackerdojo.el https://www.meetup.com/emacs-sf/events/296985794/ Tue Nov 14 1830 America/Los_Angeles
    • M-x Research (contact them for password): TBA https://m-x-research.github.io/ Wed Nov 15 0800 America/Vancouver - 1000 America/Chicago - 1100 America/Toronto - 1600 Etc/GMT - 1700 Europe/Berlin - 2130 Asia/Kolkata – Thu Nov 16 0000 Asia/Singapore
    • Mastering Emacs book club https://susam.net/maze/meet/mastering-emacs/ Fri Nov 17 1200 America/Vancouver - 1400 America/Chicago - 1500 America/Toronto - 2000 Etc/GMT - 2100 Europe/Berlin – Sat Nov 18 0130 Asia/Kolkata - 0400 Asia/Singapore
    • Mastering Emacs book club https://susam.net/maze/meet/mastering-emacs/ Sat Nov 18 0200 America/Vancouver - 0400 America/Chicago - 0500 America/Toronto - 1000 Etc/GMT - 1100 Europe/Berlin - 1530 Asia/Kolkata - 1800 Asia/Singapore
    • Mastering Emacs book club https://susam.net/maze/meet/mastering-emacs/ Sun Nov 19 0200 America/Vancouver - 0400 America/Chicago - 0500 America/Toronto - 1000 Etc/GMT - 1100 Europe/Berlin - 1530 Asia/Kolkata - 1800 Asia/Singapore
    • Mastering Emacs book club https://susam.net/maze/meet/mastering-emacs/ Fri Nov 24 1200 America/Vancouver - 1400 America/Chicago - 1500 America/Toronto - 2000 Etc/GMT - 2100 Europe/Berlin – Sat Nov 25 0130 Asia/Kolkata - 0400 Asia/Singapore
    • Emacs APAC (virtual) https://emacs-apac.gitlab.io/ Sat Nov 25 0030 America/Vancouver - 0230 America/Chicago - 0330 America/Toronto - 0830 Etc/GMT - 0930 Europe/Berlin - 1400 Asia/Kolkata - 1630 Asia/Singapore, announcement
  • Emacs configuration:
  • Emacs Lisp:
  • Appearance:
  • Navigation:
  • Hyperbole:
  • Dired:
  • Org Mode:
  • Denote:
  • Completion:
  • Coding:
  • Shells:
  • Web:
  • Fun:
  • AI:
  • Community:
  • Other:
  • Emacs development:
  • New packages:
    • mark-yank: Set region to the last yank (MELPA)
    • jack-ts-mode: Major mode for jack buffers using tree-sitter (MELPA)
    • gemtext-mode: Major mode for Gemtext-formatted text (MELPA)
    • drepl: REPL protocol for the dumb terminal (GNU ELPA)

    • Links from reddit.com/r/emacs, r/orgmode, r/spacemacs, r/planetemacs, Hacker News, lobste.rs, kbin, programming.dev, lemmy, communick.news, planet.emacslife.com, YouTube, the Emacs NEWS file, Emacs Calendar, and emacs-devel. Thanks to Andrés Ramírez for emacs-devel links. Do you have an Emacs-related link or announcement? Please e-mail me at sacha@sachachua.com. Thank you!

    ]]>         EmacsConf 2023 status update: stuff is happening! https://sachachua.com/blog/2023/11/emacsconf-2023-status-update-stuff-is-happening/ Tue, 07 Nov 2023 00:28:10 GMT emacs emacsconf https://sachachua.com/blog/2023/11/emacsconf-2023-status-update-stuff-is-happening/ EmacsConf 2023 is less than a month away. Speakers have been uploading videos, captioning volunteers have been editing away, and I thiiiiink I've gotten most of the infrastructure dusted off. Exciting!

    Here's where we are with regard to talk status:

    Graphical view of the schedule Schedule for Saturday Saturday 9:00- 9:10 Saturday opening remarks sat-open 9:10- 9:20 An Org-Mode based text adventure game for learning the basics of Emacs, inside Emacs, written in Emacs Lisp adventure 9:30- 9:50 Authoring and presenting university courses with Emacs and a full libre software stack uni 10:05-10:25 Teaching computer and data science with literate programming tools teaching 10:40-10:50 Who needs Excel? Managing your students qualifications with org-table table 11:05-11:15 Taming things with Org Mode taming 11:30-11:50 one.el: the static site generator for Emacs Lisp Programmers one 1:00- 1:10 Emacs turbo-charges my writing writing 1:25- 1:35 Why Nabokov would use Org-Mode if he were writing today nabokov 1:50- 2:10 Collaborative data processing and documenting using org-babel collab 2:20- 2:40 How I play TTRPGs in Emacs solo 2:55- 3:15 Org-Mode workflow: informal reference tracking ref 3:25- 3:35 (Un)entangling projects and repos unentangling 3:45- 3:55 Emacs development updates devel 4:10- 4:50 Emacs core development: how it works core 5:05- 5:15 Saturday closing remarks sat-close 10:00-10:10 MatplotLLM, iterative natural language data visualization in org-babel matplotllm 10:20-10:40 Improving access to AI-assisted literate programming with voice control voice 10:55-11:15 LLM clients in Emacs, functionality and standardization llm 1:00- 1:20 Improving compiler diagnostics with Overlays overlay 1:35- 1:45 Editor Integrated REPL Driven Development for all languages eval 2:00- 2:40 REPLs in strange places: Lua, LaTeX, LPeg, LPegRex, TikZ repl 2:50- 3:30 Literate Documentation with Emacs and Org Mode doc 3:45- 4:05 EmacsConf.org: How we use Org Mode and TRAMP to organize and run a multi-track conference emacsconf 9 AM 10 AM 11 AM 12 PM 1 PM 2 PM 3 PM 4 PM 5 PM Schedule for Sunday Sunday 9:00- 9:05 Sunday opening remarks sun-open 9:05- 9:25 Top 10 ways Hyperbole amps up Emacs hyperamp 9:40-10:00 Using Koutline for stream of thought journaling koutline 10:10-10:20 Parallel Text Replacement: Does P = NP? parallel 10:35-10:45 Eat and Eat powered Eshell, fast featureful terminal inside Emacs eat 11:00-11:20 The browser in a buffer poltys 11:35-11:55 Speedcubing in Emacs cubing 1:00- 1:40 Emacs MultiMedia System (EMMS) emms 1:55- 2:25 Programming at 200 wpm steno 2:35- 2:45 Mentoring VS-Coders as an Emacsian (or How to show not tell people about the wonders of Emacs) mentor 3:10- 3:50 Emacs saves the Web web 4:05- 4:25 Sharing Emacs is Caring Emacs: Emacs education and why I embraced video sharing 4:40- 4:50 Sunday closing remarks sun-close 10:00-10:20 Bringing joy to Scheme programming scheme 10:35-10:55 GNU Emacs: A World of Possibilities world 11:10-11:20 A modern Emacs look-and-feel without pain flat 11:35-11:55 The Emacsen family, the design of an Emacs and the importance of Lisp emacsen 1:00- 1:20 emacs-gc-stats: Does garbage collection actually slow down Emacs? gc 1:35- 2:15 hyperdrive.el: Peer-to-peer filesystem in Emacs hyperdrive 2:30- 2:40 Writing a language server in OCaml for Emacs, fun, and profit lspocaml 2:55- 3:15 What I learned by writing test cases for GNU Hyperbole test 3:30- 4:10 Windows into Freedom windows 9 AM 10 AM 11 AM 12 PM 1 PM 2 PM 3 PM 4 PM 5 PM

    Waiting for 26 talks (~550 minutes) out of 42 total. Talks received so far:

    • TO_ASSIGN (waiting for captioning volunteers) - 8 talk(s), 150 minutes: adventure (05:58), matplotllm (09:34), teaching (19:27), nabokov (09:51), collab (19:16), doc (42:45), scheme (21:01), emacsen (18:28)
    • TO_CAPTION - 2 talk(s), 21 minutes: eval (09:35), mentor (10:44)
    • TO_STREAM - 6 talk(s), 124 minutes: llm (20:26), writing (08:53), ref (15:04), emacsconf (15:05), world (22:20), emms (38:38)

    Speakers have been really nice about keeping in touch, so I'm not too stressed about gaps in the schedule. Captioning volunteers have been chugging through the talks and OpenAI Whisper's gotten a bit better at spelling things, so that's terrific too. It's so exciting!

    zaeph and bandali will probably host the general track and the development track respectively. They've done it for a number of years now, so it'll probably be fine even if we don't have a dry run all together since they've got limited availability. (And we can take on new volunteers if people want to help read questions!)

    My stress level is pretty manageable at this point. I can even spend evenings playing video games with the kiddo and weekends going on little bike adventures, so that's awesome. I'm still a little worried about tech hiccups, but we'll probably be able to figure things out.

    Next steps are:

    • keep processing videos and captions
    • make the intro videos available so that speakers can correct my pronunciation of their names
    • smoothen out and document the process for last-minute submissions
    • test everything again

    It's happening!

    ]]>         2023-11-06 Emacs news https://sachachua.com/blog/2023/11/2023-11-06-emacs-news/ Mon, 06 Nov 2023 14:13:58 GMT emacs emacs-news https://sachachua.com/blog/2023/11/2023-11-06-emacs-news/
  • Upcoming events:
  • Emacs configuration:
  • Emacs Lisp:
  • Appearance:
  • Writing:
  • Org Mode:
  • Coding:
  • Shells:
  • Evil mode:
  • Community:
  • Other:
  • Emacs development:
  • New packages:
    • bufferlo: Manage frame/tab-local buffer lists (GNU ELPA)
    • daml-lsp: LSP client definition for daml (MELPA)
    • daml-mode: Major mode for daml (MELPA)
    • decor: Modify visual decorations (X11) (MELPA)
    • flymake-codespell: Flymake backend for codespell (GNU ELPA)
    • plz-see: Interactive HTTP client (GNU ELPA)
    • smlfmt: Format SML source code using the "smlfmt" program (MELPA)

    • Links from reddit.com/r/emacs, r/orgmode, r/spacemacs, r/planetemacs, Hacker News, communick.news, lobste.rs, kbin, programming.dev, lemmy, planet.emacslife.com, YouTube, the Emacs NEWS file, Emacs Calendar, and emacs-devel. Thanks to Andrés Ramírez for emacs-devel links. Do you have an Emacs-related link or announcement? Please e-mail me at sacha@sachachua.com. Thank you!

    ]]>         2023-10-30 Emacs news https://sachachua.com/blog/2023/10/2023-10-30-emacs-news/ Mon, 30 Oct 2023 13:57:30 GMT emacs emacs-news https://sachachua.com/blog/2023/10/2023-10-30-emacs-news/
  • Upcoming events:
  • Emacs configuration:
  • Emacs Lisp:
  • Appearance:
  • Navigation:
  • Writing:
  • Org Mode:
  • Coding:
  • Shells:
  • Mail, news, and chat:
  • Multimedia:
  • Fun:
  • AI:
  • Community:
  • Other:
  • Emacs development:
  • New packages:

    • Links from reddit.com/r/emacs, r/orgmode, r/spacemacs, r/planetemacs, Hacker News, communick.news, lobste.rs, kbin, programming.dev, lemmy, planet.emacslife.com, YouTube, the Emacs NEWS file, Emacs Calendar, and emacs-devel. Thanks to Andrés Ramírez for emacs-devel links. Do you have an Emacs-related link or announcement? Please e-mail me at sacha@sachachua.com. Thank you!

    ]]>         #EmacsConf backstage: coordinating captioning volunteers using a backstage area https://sachachua.com/blog/2023/10/emacsconf-backstage-coordinating-captioning-volunteers-using-a-backstage-area/ Sun, 29 Oct 2023 01:39:35 GMT emacs emacsconf https://sachachua.com/blog/2023/10/emacsconf-backstage-coordinating-captioning-volunteers-using-a-backstage-area/ 2023-10-28_21-32-21.png
    Figure 1: The backstage area

    One of the benefits of volunteering for or speaking at EmacsConf is that you get early access to the talks. We upload the files to a password-protected web server. It's nothing fancy, just a directory that has basic authentication and a static index.html generated by Emacs Lisp.

    I organize the talks by TODO status so that people can easily see which talks are ready to be captioned. Since captioning can take a little while, we reserve the talks we want to caption. That way, people don't accidentally work on a talk that someone else is already captioning. When people e-mail me to reserve a talk, I move the talk from TO_ASSIGN to TO_CAPTION and add their name in the :CAPTIONER: property.

    Publishing the backstage index is done by an Emacs Lisp function that smooshes the information together and then writes the files directly to the server using TRAMP.

    emacsconf-publish-backstage-index
    (defun emacsconf-publish-backstage-index (&optional filename)
  (interactive)
  (setq filename (or filename (expand-file-name "index.html" emacsconf-backstage-dir)))
  (let ((info (or emacsconf-schedule-draft (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info))))
        (emacsconf-main-extensions (append emacsconf-main-extensions emacsconf-publish-backstage-extensions)))
    (with-temp-file filename
      (let* ((talks
              (mapcar
               (lambda (o) (append
                            (list :captions-edited t) o))
               (seq-filter (lambda (o) (plist-get o :speakers))
                           (emacsconf-active-talks (emacsconf-filter-talks info)))))
             (by-status (seq-group-by (lambda (o) (plist-get o :status)) talks))
             (files (directory-files emacsconf-backstage-dir)))
        (insert
         "<html><head><meta charset=\"UTF-8\"><link rel=\"stylesheet\" href=\"/style.css\" /></head><body>"
         (if (file-exists-p (expand-file-name "include-in-index.html" emacsconf-cache-dir))
             (with-temp-buffer (insert-file-contents (expand-file-name "include-in-index.html" emacsconf-cache-dir)) (buffer-string))
           "")
         "<p>Schedule by status: (gray: waiting, light yellow: processing, yellow: to assign, light green: captioning, green: captioned and ready)<br />Updated by conf.org and the wiki repository</br />"
         (let* ((emacsconf-schedule-svg-modify-functions '(emacsconf-schedule-svg-color-by-status))
                (img (emacsconf-schedule-svg 800 200 info)))
           (with-temp-buffer
             (mapc (lambda (node)
                     (dom-set-attribute
                      node 'href
                      (concat "#" (dom-attr node 'data-slug))))
                   (dom-by-tag img 'a))
             (svg-print img)
             (buffer-string)))
         "</p>"
         (if (eq emacsconf-backstage-phase 'prerec)
             (format "<p>Waiting for %d talks (~%d minutes) out of %d total</p>"
                     (length (assoc-default "WAITING_FOR_PREREC" by-status))
                     (emacsconf-sum :time (assoc-default "WAITING_FOR_PREREC" by-status))
                     (length talks))
           "")
         "<ul>"
         (mapconcat
          (lambda (status)
            (concat "<li>"
                    (if (string= status "TO_ASSIGN")
                        "TO_ASSIGN (waiting for volunteers)"
                      status)
                    ": "
                    (mapconcat (lambda (o) (format "<a href=\"#%s\">%s</a>"
                                                   (plist-get o :slug)
                                                   (plist-get o :slug)))
                               (assoc-default status by-status)
                               ", ")
                    "</li>"))
          (pcase emacsconf-backstage-phase
            ('prerec '("TO_PROCESS" "PROCESSING" "TO_ASSIGN" "TO_CAPTION" "TO_STREAM"))
            ('harvest '("TO_ARCHIVE" "TO_REVIEW_QA" "TO_INDEX_QA" "TO_CAPTION_QA")))
          "")
         "</ul>"
         (pcase emacsconf-backstage-phase
           ('prerec
            (concat
             (emacsconf-publish-backstage-processing by-status files)
             (emacsconf-publish-backstage-to-assign by-status files)
             (emacsconf-publish-backstage-to-caption by-status files)
             (emacsconf-publish-backstage-to-stream by-status files)))
           ('harvest
            (let ((stages
                   '(("TO_REVIEW_QA" .
                      "Please review the --bbb-webcams.webm file and/or the --bbb-webcams.vtt and tell us (emacsconf-submit@gnu.org) if a Q&amp;A session can be published or if it needs to be trimmed (lots of silence at the end of the recording, accidentally included sensitive information, etc.).")
                     ("TO_INDEX_QA" .
                      "Please review the --answers.webm and --answers.vtt files to make chapter markers so that people can jump to specific parts of the Q&amp;A session. The <a href=\"https://emacsconf.org/harvesting/\">harvesting page on the wiki</a> has some notes on the process. That way, it's easier for people to see the questions and
answers without needing to listen to everything again. You can see <a href=\"https://emacsconf.org/2022/talks/asmblox\">asmblox</a> for an example of the Q&amp;A chapter markers.")
                     ("TO_CAPTION_QA" .
                      "Please edit the --answers.vtt for the Q&amp;A talk you're interested in, correcting misrecognized words and cleaning it up so that it's nice to use as closed captions. All talks should now have large-model VTTs to make it easier to edit."))))
              (mapconcat
               (lambda (stage)
                 (let ((status (car stage)))
                   (format
                    "<h1>%s: %d talk(s) (%d minutes)</h1>%s<ol class=\"videos\">%s</ol>"
                    status
                    (length (assoc-default status by-status))
                    (emacsconf-sum :video-time (assoc-default status by-status))
                    (cdr stage)
                    (mapconcat
                     (lambda (f)
                       (format  "<li><a name=\"%s\"></a><strong><a href=\"%s%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>"
                                (plist-get f :slug)
                                emacsconf-base-url
                                (plist-get f :url)
                                (plist-get f :title)
                                (plist-get f :speakers-with-pronouns)
                                (plist-get f :slug)
                                (emacsconf-publish-index-card
                                 (append (list
                                          :video-note
                                          (unless (file-exists-p (expand-file-name (concat (plist-get f :file-prefix) "--bbb-webcams.webm") emacsconf-cache-dir))
                                            "<div>No Q&A video for this talk</div>")
                                          :video-file
                                          (cond
                                           ((file-exists-p (expand-file-name (concat (plist-get f :file-prefix) "--answers.webm") emacsconf-cache-dir))
                                            (concat (plist-get f :file-prefix) "--answers.webm"))
                                           ((file-exists-p (expand-file-name (concat (plist-get f :file-prefix) "--bbb-webcams.webm") emacsconf-cache-dir))
                                            (concat (plist-get f :file-prefix) "--bbb-webcams.webm"))
                                           (t t)) ;; omit video
                                          :video-id "-qanda"
                                          :extra
                                          (concat
                                           (emacsconf-surround "QA note: " (plist-get f :qa-note) "<br />")
                                           (format "Q&A archiving: <a href=\"%s-%s.txt\">IRC: %s-%s</a>"
                                                   (format-time-string "%Y-%m-%d" (plist-get f :start-time))
                                                   (plist-get (emacsconf-get-track f) :channel)
                                                   (format-time-string "%Y-%m-%d" (plist-get f :start-time))
                                                   (plist-get (emacsconf-get-track f) :channel))
                                           (emacsconf-surround ", <a href=\""
                                                               (if (file-exists-p (expand-file-name (concat (plist-get f :file-prefix) "--pad.txt")
                                                                                                    emacsconf-cache-dir))
                                                                   (concat (plist-get f :file-prefix) "--pad.txt"))
                                                               "\">Etherpad (Markdown)</a>" "")
                                           (emacsconf-surround ", <a href=\"" (plist-get f :bbb-playback) "\">BBB playback</a>" "")
                                           (emacsconf-surround ", <a href=\""
                                                               (if (file-exists-p (expand-file-name (concat (plist-get f :file-prefix) "--bbb.txt")
                                                                                                    emacsconf-cache-dir))
                                                                   (concat (plist-get f :file-prefix) "--bbb.txt"))
                                                               "\">BBB text chat</a>" "")
                                           (emacsconf-surround ", <a href=\""
                                                               (if (file-exists-p (expand-file-name (concat (plist-get f :file-prefix) "--bbb-webcams.opus")
                                                                                                    emacsconf-cache-dir))
                                                                   (concat (plist-get f :file-prefix) "--bbb-webcams.opus"))
                                                               "\">BBB audio only</a>" ""))
                                          :files (emacsconf-publish-talk-files f files))
                                         f)
                                 emacsconf-main-extensions)))
                     (assoc-default status by-status) "\n"))))
               stages
               "\n"))))
         (if (file-exists-p (expand-file-name "include-in-index-footer.html" emacsconf-cache-dir))
             (with-temp-buffer (insert-file-contents (expand-file-name "include-in-index-footer.html" emacsconf-cache-dir)) (buffer-string))
           "")
         "</body></html>")))))

    For example, the section for talks that are waiting for volunteers is handled by the function emacsconf-publish-backstage-to-assign.

    emacsconf-publish-backstage-to-assign
    (defun emacsconf-publish-backstage-to-assign (by-status files)
  (let ((list (assoc-default "TO_ASSIGN" by-status)))
    (format "<h1>%s talk(s) to be captioned, waiting for volunteers (%d minutes)</h1><p>You can e-mail <a href=\"mailto:sacha@sachachua.com\">sacha@sachachua.com</a> to call dibs on editing the captions for one of these talks. We use OpenAI Whisper to provide auto-generated VTT that you can use as a starting point, but you can also write the captions from scratch if you like. If you're writing them from scratch, you can choose to include timing information, or we can probably figure them out afterwards with a forced alignment tool. More info: <a href=\"https://emacsconf.org/captioning/\">captioning tips</a></p><ul class=\"videos\">%s</ul>"
            (length list)
            (emacsconf-sum :video-time list)
            (mapconcat
             (lambda (f)
               (setq f (append
                        f
                        (list :extra
                              (if (plist-get f :caption-note) (concat "<div class=\"caption-note\">" (plist-get f :caption-note) "</div>") "")
                              :files
                              (emacsconf-publish-talk-files f files))))
               (format  "<li><a name=\"%s\"></a><strong><a href=\"%s\">%s</a></strong><br />%s (id:%s)<br />%s</li>"
                        (plist-get f :slug)
                        (plist-get f :absolute-url)
                        (plist-get f :title)
                        (plist-get f :speakers)
                        (plist-get f :slug)
                        (emacsconf-publish-index-card f)))
             list
             "\n"))))

    Each talk has a little card that includes its video and links to files.

    emacsconf-publish-index-card: Format an HTML card for TALK, linking the files in EXTENSIONS.
    (defun emacsconf-publish-index-card (talk &optional extensions)
  "Format an HTML card for TALK, linking the files in EXTENSIONS."
  (let* ((file-prefix (plist-get talk :file-prefix))
         (video-file (plist-get talk :video-file))
         (video (and file-prefix
                     (emacsconf-publish-index-card-video
                      (or (plist-get talk :video-id)
                          (concat (plist-get talk :slug) "-mainVideo"))
                      video-file talk extensions))))
    ;; Add extra information to the talk
    (setq talk
          (append
           talk
           (list
            :time-info (emacsconf-surround "Duration: " (plist-get talk :video-duration) " minutes" "")
            :video-html (or (plist-get video :video) "")
            :audio-html (or (plist-get video :audio) "")
            :chapter-list (or (plist-get video :chapter-list) "")
            :resources (or (plist-get video :resources) "")
            :extra (or (plist-get talk :extra) "")
            :speaker-info (or (plist-get talk :speakers-with-pronouns) ""))))
    (emacsconf-replace-plist-in-string
     talk
     "<div class=\"vid\">${video-html}${audio-html}<div>${extra}</div>${time-info}${resources}${chapter-list}</div>")))

    So it's all built on templates and a little bit of code to make the appropriate lists. You can find this code in emacsconf-publish.el.

    ]]>         #EmacsConf backstage: automatically updating talk status from the crontab https://sachachua.com/blog/2023/10/emacsconf-backstage-automatically-updating-talk-status-from-the-crontab/ Thu, 26 Oct 2023 19:00:09 GMT emacs emacsconf org https://sachachua.com/blog/2023/10/emacsconf-backstage-automatically-updating-talk-status-from-the-crontab/ Now that I've figured out how to automatically play EmacsConf talks with crontab, I want to update our approach to using TRAMP and timers to run two tracks semi-automatically.

    When a talk starts playing, I would like to:

    • announce it on IRC so that the talk details split up the chat log and make it easier to read
    • publish the media files to https://media.emacsconf.org/2023 (currently password-protected while testing) so that people can view them
    • update the talk wiki page with the media files and the captions
    • update the Youtube and Toobnix videos so that they're public: this is manual for the moment, since I haven't put time into automating it yet

    I have code for most of this, and we've done it successfully for the past couple of years. I just need to refamiliarize myself with how to do it and how to set it up for testing during the dry run, and modify it to work with the new crontab-based system.

    Setting things up

    Last year, I set up the server with the ability to act as the controller, so that it wasn't limited to my laptop. The organizers notebook says I put it in the orga@ user's account, and I probably ran it under a screen session. I've submitted a talk for this year's conference, so I can use a test video for that one. First, I need to update the Ansible configuration for publishing and editing: 

    ansible-playbook -i inventory.yml prod-playbook.yml --tags publish,edit

    I needed to add a version attribute to the git repo checkout in the Ansible playbook, since we'd switched from master to main. I also needed to set emacs_version to 29.1 since I started using seq-keep in my Emacs Lisp functions. For testing, I set emacsconf-publishing-phase to conference.

    Act on TODO state changes

    org-after-todo-state-change-hook makes it easy to automatically run functions when the TODO state changes. I add this hook that runs a list of functions and passes the talk information so that I don't have to parse the talk info in each function.

    emacsconf-org-after-todo-state-change: Run all the hooks in ‘emacsconf-todo-hooks’.
    (defun emacsconf-org-after-todo-state-change ()
  "Run all the hooks in `emacsconf-todo-hooks'.
If an `emacsconf-todo-hooks' entry is a list, run it only for the
tracks with the ID in the cdr of that list."
  (let* ((talk (emacsconf-get-talk-info-for-subtree))
         (track (emacsconf-get-track (plist-get talk :track))))
    (mapc
     (lambda (hook-entry)
       (cond
        ((symbolp hook-entry) (funcall hook-entry talk))
        ((member (plist-get track :id) (cdr hook-entry))
         (funcall (car hook-entry) talk))))
     emacsconf-todo-hooks)))

    This can be enabled and disabled with the following functions.

    emacsconf-add-org-after-todo-state-change-hook: Add FUNC to ‘org-after-todo-stage-change-hook’.
    (defun emacsconf-add-org-after-todo-state-change-hook ()
  "Add FUNC to `org-after-todo-stage-change-hook'."
  (interactive)
  (with-current-buffer (find-buffer-visiting emacsconf-org-file)
    (add-hook 'org-after-todo-state-change-hook #'emacsconf-org-after-todo-state-change nil t)))

    emacsconf-remove-org-after-todo-state-change-hook: Remove FUNC from ‘org-after-todo-stage-change-hook’.
    (defun emacsconf-remove-org-after-todo-state-change-hook ()
  "Remove FUNC from `org-after-todo-stage-change-hook'."
  (interactive)
  (with-current-buffer (find-buffer-visiting emacsconf-org-file)
    (remove-hook 'org-after-todo-state-change-hook
                 #'emacsconf-org-after-todo-state-change  t)))

    Announce on IRC

    This is still much the same as last year.

    emacsconf-erc-announce-on-change: Announce talk.
    (defun emacsconf-erc-announce-on-change (talk)
  "Announce talk."
  (let ((func
         (pcase org-state
           ("PLAYING" #'erc-cmd-NOWPLAYING)
           ("CLOSED_Q" #'erc-cmd-NOWCLOSEDQ)
           ("OPEN_Q" #'erc-cmd-NOWOPENQ)
           ("UNSTREAMED_Q" #'erc-cmd-NOWUNSTREAMEDQ)
           ("TO_ARCHIVE" #'erc-cmd-NOWDONE))))
    (when func
      (funcall func talk))))

    Here's a sample command that announces that the talk is now playing.

    erc-cmd-NOWPLAYING: Set the channel topics to announce TALK.
    (defun erc-cmd-NOWPLAYING (talk)
  "Set the channel topics to announce TALK."
  (interactive (list (emacsconf-complete-talk-info)))
  (when (stringp talk)
    (setq talk (or (emacsconf-find-talk-info talk) (error "Could not find talk %s" talk))))
  ;; Announce it in the track's channel
  (if (emacsconf-erc-recently-announced (format "---- %s:" (plist-get talk :slug)))
      (message "Recently announced, skipping")
    (when (plist-get talk :track)
      (emacsconf-erc-with-channels (list (concat "#" (plist-get talk :channel)))
        (erc-cmd-TOPIC
         (format
          "%s: %s (%s) pad: %s Q&A: %s | %s"
          (plist-get talk :slug)
          (plist-get talk :title)
          (plist-get talk :speakers)
          (plist-get talk :pad-url)
          (plist-get talk :qa-info)
          (car (assoc-default
                (concat "#" (plist-get talk :channel))
                emacsconf-topic-templates))))
        (erc-send-message (format "---- %s: %s - %s ----"
                                  (plist-get talk :slug)
                                  (plist-get talk :title)
                                  (plist-get talk :speakers-with-pronouns)))
        (erc-send-message
         (concat "Add your notes/questions to the pad: " (plist-get talk :pad-url)))
        (cond
         ((string-match "live" (or (plist-get talk :q-and-a) ""))
          (erc-send-message (concat "Live Q&A: " (plist-get talk :bbb-redirect))))
         ((plist-get talk :irc)
          (erc-send-message (format "or discuss the talk on IRC (nick: %s)"
                                    (plist-get talk :irc)))))))
    ;; Short announcement in #emacsconf
    (emacsconf-erc-with-channels (list emacsconf-erc-hallway emacsconf-erc-org)
      (erc-send-message (format "-- %s track: %s: %s (watch: %s, pad: %s, channel: #%s)"
                                (plist-get talk :track)
                                (plist-get talk :slug)
                                (plist-get talk :title)
                                (plist-get talk :watch-url)
                                (plist-get talk :pad-url)
                                (plist-get talk :channel))))))

    Because the commands change the topic, I need to op the user in all the Emacsconf channels.

    erc-cmd-OPALL
    (defun erc-cmd-OPALL (&optional nick)
  (emacsconf-erc-with-channels (mapcar 'car emacsconf-topic-templates)
    (if nick
        (erc-cmd-OP nick)
      (erc-cmd-OPME))))

    This code is in emacsconf-erc.el.

    Publish media files

    We used to scramble to upload all the videos in the days or weeks after the conference, since the presentations were live. Since we switched to encouraging speakers to upload videos before the conference, we've been able to release the videos pretty much as soon as the talk starts playing. This code in emacsconf-publish.el takes care of copying the files from the backstage to the public media directory, republishing the index, and republishing the playlist. That way, people who come in late or who want to refer to the video can easily get the full video right away.

    emacsconf-publish-media-files-on-change: Publish the files and update the index.
    (defun emacsconf-publish-media-files-on-change (talk)
  "Publish the files and update the index."
  (interactive (list (emacsconf-complete-talk-info)))
  (let ((org-state (if (boundp 'org-state) org-state (plist-get talk :status))))
    (if (plist-get talk :public)
        ;; Copy main extension files from backstage to public
        (let ((files (directory-files emacsconf-backstage-dir nil
                                      (concat "^"
                                              (regexp-quote (plist-get talk :file-prefix))
                                              (regexp-opt emacsconf-main-extensions)))))
          (mapc (lambda (file)
                  (when (and
                         (not (file-exists-p (expand-file-name file emacsconf-public-media-directory)))
                         (or (not (string-match "--main.vtt$" file))
                             (plist-get talk :captions-edited)))
                    (copy-file (expand-file-name file emacsconf-backstage-dir)
                               (expand-file-name file emacsconf-public-media-directory) t)))
                files))
      ;; Remove files from public
      (let ((files (directory-files emacsconf-public-media-directory nil
                                    (concat "^"
                                            (regexp-quote (plist-get talk :file-prefix)
                                                          )))))
        (mapc (lambda (file)
                (delete-file (expand-file-name file emacsconf-public-media-directory)))
              files)))
    (emacsconf-publish-public-index)
    (emacsconf-publish-playlist
     (expand-file-name "index.m3u" emacsconf-public-media-directory)
     (concat emacsconf-name " " emacsconf-year)
     (emacsconf-public-talks (emacsconf-get-talk-info)))))

    The :public property is automatically added by this function based on the TODO status or the time:

    emacsconf-add-talk-status: Add status label and public info.
    (defun emacsconf-add-talk-status (o)
  "Add status label and public info."
  (plist-put o :status-label
             (or (assoc-default (plist-get o :status)
                                emacsconf-status-types 'string= "")
                 (plist-get o :status)))
  (when (or
         (member (plist-get o :status)
                 (split-string "PLAYING CLOSED_Q OPEN_Q UNSTREAMED_Q TO_ARCHIVE TO_EXTRACT TO_FOLLOW_UP DONE"))
         (time-less-p (plist-get o :start-time)
                      (current-time)))
    (plist-put o :public t))
  o)

    Update the wiki page

    This function updates the schedule page and the page for the talk. It's also in emacsconf-publish.el.

    emacsconf-publish-update-talk: Publish the schedule page and the page for this talk.
    (defun emacsconf-publish-update-talk (talk)
  "Publish the schedule page and the page for this talk."
  (interactive (list (emacsconf-complete-talk-info)))
  (when (stringp talk) (setq talk (emacsconf-resolve-talk talk)))
  (when (functionp 'emacsconf-upcoming-insert-or-update)
    (emacsconf-upcoming-insert-or-update))
  (emacsconf-publish-with-wiki-change
    (let ((info (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info))))
      (emacsconf-publish-before-page talk info)
      (emacsconf-publish-after-page talk info)
      (emacsconf-publish-schedule info))))

    It uses the publishing functions I described in this post on adding talks to the wiki.

    This macro commits changes when emacsconf-publish-autocommit-wiki is t, so I need to set that also.

    emacsconf-publish-with-wiki-change
    (defmacro emacsconf-publish-with-wiki-change (&rest body)
  (declare (indent 0) (debug t))
  `(progn
     ,@body
     (emacsconf-publish-commit-and-push-wiki-maybe
      ,emacsconf-publish-autocommit-wiki
      (and (stringp ,(car body)) ,(car body)))))

    Make the videos public on YouTube and Toobnix

    This is low-priority, but it might be nice to figure out. The easiest way is probably to use open the Youtube/Toobnix URLs on my computer and then use either Tampermonkey or Spookfox to set the talk to public. Someday!

    Update the talk status on the server

    Last year, I experimented with having the shell scripts automatically update the status of the talk from TO_STREAM to PLAYING and from PLAYING to CLOSED_Q. Since I've moved the talk-running into track-specific crontabs, now I need to sudo back to the orga user and set XDG_RUNTIME_DIR in order to use emacsclient. I can call this with sudo -u orga talk $slug $status in the roles/obs/templates/handle-session script.

    Here's the Ansible template for roles/prerec/templates/talk. It uses getent to look up the user ID. 

    #!/bin/bash
# 
# How to use: talk slug from-status-regexp to-status
# or talk slug to-status

SLUG="$1"
FROM_STATUS="$2"
TO_STATUS="$3"
XDG_RUNTIME_DIR=/run/user/

if [ "x$TO_STATUS" == "x" ]; then
    FROM_STATUS=.
    TO_STATUS="$2"
fi
cd 
#echo "Pulling conf.org..."
#git pull
echo "Updating status..."
XDG_RUNTIME_DIR=$XDG_RUNTIME_DIR emacsclient --eval "(emacsconf-with-todo-hooks (emacsconf-update-talk-status \"$SLUG\" \"$FROM_STATUS\" \"$TO_STATUS\"))" -a emacs
#echo "Committing and pushing in the background"
#git commit -m "Update task status for $SLUG from $FROM_STATUS to $TO_STATUS" conf.org
#git push &

    Testing notes

    Looks like everything works fine when I run it from the crontab: the talk status is updated, the media files are published, the wiki is updated, and the talks are announced on IRC. Backup plan A is to manually control the talk status using Emacs on the server. Backup plan B is to control the talk status using Emacs on my laptop. Backup plan C is to call the individual functions instead of relying on the todo state change functions. I think it'll all work out, although I'll probably want to do another dry run at some point to make sure. Slowly getting there…

    ]]>