module Web.View.Entries.Today where
import Web.View.Prelude

data TodayView = TodayView { entries :: [Entry]  }

instance View TodayView where
    html TodayView { .. } = [hsx|
        {breadcrumb}
        <h1>TodayView</h1>
        <button id="today-button" style="width:800px; height:600px">
            <input type="image" src="/time_on.svg" width="100%" height="100%" />
        </button>
        <div>0H    0:00H</div>
        |]
            where
                breadcrumb = renderBreadcrumb
                                [ breadcrumbLink "Todays" EntriesAction
                                , breadcrumbText "TodayView"
                                ]