<%= for day <- ~w(#{gettext("Sun")} #{gettext("Mon")} #{gettext("Tue")} #{gettext("Wed")} #{gettext("Thu")}
#{gettext("Fri")} #{gettext("Sat")}) do %>
{day}
<% end %>
<%= for _ <- 1..(Date.day_of_week(@current_month)) do %>
<% end %>
<%= for day <- 1..Date.days_in_month(@current_month) do %>
<% {:ok, date} = Date.new(@current_month.year, @current_month.month, day) %>
{day}
<%= case Map.get(@events, date) do %>
<% nil -> %>
<% events -> %>
<%= for event <- events do %>
- {event.subject}
<% end %>
<% end %>
<% end %>