As of yesterday, 2024-01-28, the Doomsday clock is set at 89 seconds to midnight.

url = "https://thebulletin.org/doomsday-clock/timeline/";
txtEN = Import[url, "Plaintext"];
TextStats[txtEN]

# <|"Characters" -> 79391, "Words" -> 12004, "Lines" -> 1145|>

startPhrase = "A clock";
sentence = Select[Map[StringTrim, StringSplit[txtEN, "\\n"]], StringStartsQ[#, startPhrase]&]//First

# A clock reading 89 seconds to midnight"

aDoomReading = Association@Cases[Flatten[pTOP[ToTokens@sentence]], _Rule]
# <|"Seconds" -> 89|>

DoomsdayClockGauge[aDoomReading, PlotTheme -> "Marketing"]

One possible application of the code in this notebook is to make a “web service“ that gives clock images with Doomsday Clock readings. For example, click on this button: Out[]= [Button]

The notebook behind the button, (https://www.wolframcloud.com/obj/e28834c9-42a4-4991-9889-243fa39a795d) is not for public access. got an error message 403 Sorry, you do not have permission to access this item.

Great work, @Anton, thank you! I was immediately thinking if it is possible to make a video visualization of this getting all data together present in that video. Then video can be shared across many platforms. This is a Data-Viz style of time-narrative where text commentary is unfolding as scanning line runs through your plot. Plus some nice clock added -- I really loved the orange one. I sketched the outline below. Summaries fitting the box can be done I think with LLMSynthesize. People can pause the video at any moment to have time to read the text.

Video can be easily generated with contracts like:

Parallelize@AnimationVideo
Parallelize@FrameListVideo

Would be nice to have such video made -- editorial team would embed it in the post.

-- you have earned Featured Contributor Badge Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!