Add implementation of 'today' with basic ffi

For javascript and erlang. Seems to work from testing.

README.md

@@ -7,4 +7,4 @@ Temporary name.
 This is a port of the [justinmimbs/date](https://package.elm-lang.org/packages/justinmimbs/date/latest) Elm library.
 Done with the kind permission of the author. The API has been adjusted to match norms of the Gleam language in places.
 
-Currently the `fromPosix` and `today` functions have not yet but ported.
+Currently the `fromPosix` function have not yet been ported.

src/date.gleam

@@ -2587,6 +2587,16 @@ fn range_help(
 // today : Task x Date
 // today =
 //     Task.map2 fromPosix Time.here Time.now
+pub fn today() -> Date {
+  let #(year, month_number, day) = get_year_month_day()
+
+  from_calendar_date(year, number_to_month(month_number), day)
+}
+
+@external(erlang, "date_ffi", "get_year_month_day")
+@external(javascript, "./date_ffi.mjs", "get_year_month_day")
+fn get_year_month_day() -> #(Int, Int, Int)
+
 // 
 // 
 // 

src/date_ffi.erl

@@ -0,0 +1,9 @@
+
+-module(date_ffi).
+
+-export([
+    get_year_month_day/0
+]).
+
+get_year_month_day() ->
+    date().

src/date_ffi.mjs

@@ -0,0 +1,4 @@
+export function get_year_month_day() {
+  let date = new Date();
+  return [date.getFullYear(), date.getMonth() + 1, date.getDate()]
+}

test/date_test.gleam

@@ -19,6 +19,12 @@ pub fn leap_year_test() {
   |> should.equal(False)
 }
 
+// // Commented out as today changes :)
+// pub fn today_test() {
+//   date.today()
+//   |> should.equal(date.from_calendar_date(2024, date.Jun, 10))
+// }
+
 // module Tests exposing (suite)
 
 // import Date exposing (Date, Interval(..), Unit(..))