more calendar entries

1 files changed, 82 insertions, 1 deletions

diff --git a/CosmicCalendar.hs b/CosmicCalendar.hs
index b439b48..37b9ece 100644
--- a/CosmicCalendar.hs
+++ b/CosmicCalendar.hs
@@ -56,6 +56,16 @@ data CalendarEntry = CalendarEntry {
   calReferences :: Text
 } deriving (Show)
 
+-- TODO: Encode the input times like so:
+data CosmicTime = YearsAgo Rational | YearsAfterBigBang Rational | YearsBCE Rational | YearsCE Rational
+-- We need the Map data structure to have a simple ordering...
+-- We could simply regenerate the entire table as a function of the year.
+-- This would also allow to fudge the last day countdown to be identical on leap years.
+-- "YearsAgo" would measure from the end of the year on a 365 day model even on 366 day years.
+-- Another option is to keep it 365-based, but on leap years fudge every day after Feb 29 when we use the calendar...
+-- I.e. the getNextCalendarEntry functions would subtract a day from the input value starting March 1.
+-- But this still doesn't allow to encode such dates as `YearsCE 1492` for Columbus.
+
 theCalendar :: Map NominalDiffTime CalendarEntry
 theCalendar = Map.fromList $ map (\x -> (calBeginTime x, x)) theCalendarList
 
@@ -225,11 +235,82 @@ theCalendarList =
     "Ice Age ends"
     ""
     ""
-    "https://en.wikipedia.org/wiki/Last_Glacial_Period"
+    "https://en.wikipedia.org/wiki/Last_Glacial_Period",
+
+    CalendarEntry (1600 & yearsBeforeCommonEra) Nothing
+    "Dynastic China"
+    "History begins"
+    [text|
+    The earliest known written records of the history of China date from as early as 1250 BC, from the Shang dynasty (c. 1600–1046 BC), during the king Wu Ding's reign
+
+    The state-sponsored Xia–Shang–Zhou Chronology Project dated them from c. 1600 to 1046 BC based on the carbon 14 dates of the Erligang site.
+    |]
+    "",
+
+    CalendarEntry (theYear 1492) Nothing
+    "Columbus arrives in America"
+    ""
+    ""
+    "",
+
+    CalendarEntry (theYear 570) Nothing
+    "Muhammad born"
+    ""
+    ""
+    "",
+
+    CalendarEntry (480 & yearsBeforeCommonEra) Nothing
+    "Old Testament, Buddha"
+    ""
+    ""
+    "",
+
+    CalendarEntry (8.8 & billionYearsAgo) Nothing
+    "Thin disk of the Milky Way Galaxy"
+    "Our galaxy begins to form"
+    "The age of stars in the galactic thin disk has also been estimated using nucleocosmochronology. Measurements of thin disk stars yield an estimate that the thin disk formed 8.8 ± 1.7 billion years ago. These measurements suggest there was a hiatus of almost 5 billion years between the formation of the galactic halo and the thin disk.[253] Recent analysis of the chemical signatures of thousands of stars suggests that stellar formation might have dropped by an order of magnitude at the time of disk formation, 10 to 8 billion years ago, when interstellar gas was too hot to form new stars at the same rate as before.[254] "
+    "",
+
+    CalendarEntry (3.4 & billionYearsAgo) Nothing
+    "First photosynthetic bacteria"
+    "(Still no Oxygen)"
+    "They absorbed near-infrared rather than visible light and produced sulfur or sulfate compounds rather than oxygen. Their pigments (possibly bacteriochlorophylls) were predecessors to chlorophyll."
+    "https://www.scientificamerican.com/article/timeline-of-photosynthesis-on-earth/",
+
+    CalendarEntry (2.7 & billionYearsAgo) Nothing
+    "Oxygen from photosynthesis"
+    "Cyanobacteria"
+    "These ubiquitous bacteria were the first oxygen producers. They absorb visible light using a mix of pigments: phycobilins, carotenoids and several forms of chlorophyll."
+    "https://www.scientificamerican.com/article/timeline-of-photosynthesis-on-earth/",
+
+    CalendarEntry (1.2 & billionYearsAgo) Nothing
+    "Red and brown algae"
+    ""
+    "These organisms have more complex cellular structures than bacteria do. Like cyanobacteria, they contain phycobilin pigments as well as various forms of chlorophyll."
+    "https://www.scientificamerican.com/article/timeline-of-photosynthesis-on-earth/",
+
+    CalendarEntry (0.75 & billionYearsAgo) Nothing
+    "Green algae"
+    ""
+    "Green algae do better than red and brown algae in the strong light of shallow water. They make do without phycobilins."
+    "https://www.scientificamerican.com/article/timeline-of-photosynthesis-on-earth/",
+
+    CalendarEntry (0.475 & billionYearsAgo) Nothing
+    "First land plants"
+    ""
+    "Mosses and liverworts descended from green algae. Lacking vascular structure (stems and roots) to pull water from the soil, they are unable to grow tall."
+    "https://www.scientificamerican.com/article/timeline-of-photosynthesis-on-earth/",
+
+    CalendarEntry (0.423 & billionYearsAgo) Nothing
+    "Vascular plants"
+    ""
+    "These are literally garden-variety plants, such as ferns, grasses, trees and cacti. They are able to grow tall canopies to capture more light."
+    "https://www.scientificamerican.com/article/timeline-of-photosynthesis-on-earth/"
 
     ]
 
   where
+    theYear = yearsAgo . (2022 -)
     yearsBeforeCommonEra n = yearsAgo (2022 + n)
     earthDescription = [text|
       The standard model for the formation of the Solar System (including the Earth) is the solar nebula hypothesis.[23] In this model, the Solar System formed from a large, rotating cloud of interstellar dust and gas called the solar nebula. It was composed of hydrogen and helium created shortly after the Big Bang 13.8 Ga (billion years ago) and heavier elements ejected by supernovae. About 4.5 Ga, the nebula began a contraction that may have been triggered by the shock wave from a nearby supernova.[24] A shock wave would have also made the nebula rotate. As the cloud began to accelerate, its angular momentum, gravity, and inertia flattened it into a protoplanetary disk perpendicular to its axis of rotation. Small perturbations due to collisions and the angular momentum of other large debris created the means by which kilometer-sized protoplanets began to form, orbiting the nebular center.[25]