root = Card([header, statusSection, dealsSection, activitySection, contactsSection, followupsSection, noteSection, renewalSection, callSection])
header = CardHeader("Acme Corp", "Owner: Sarah Chen")
statusSection = Card([statusHeading, statusInfo], "sunk")
statusHeading = Heading("Account Snapshot", "h3")
statusInfo = Table([statusField, statusValue])
statusField = Col("Field", ["Total Deal Value", "Current Stage", "Renewal Date"])
statusValue = Col("Value", ["$84,500", "Negotiation", "Aug 14, 2025"])
dealsSection = Card([dealsHeading, dealChart], "sunk")
dealsHeading = Heading("Deal Value by Stage", "h3")
dealChart = BarChart(["Discovery", "Proposal", "Negotiation", "Closed"], [dealSeries])
dealSeries = Series("Deal Value", [12000, 24500, 38000, 10000])
activitySection = Card([activityHeading, activityList], "sunk")
activityHeading = Heading("Recent Activity", "h3")
activityList = ListBlock([act1, act2, act3, act4])
act1 = ListItem("Email sent", "May 28 — Proposal follow-up to CFO")
act2 = ListItem("Meeting held", "May 22 — Product demo with procurement")
act3 = ListItem("Call logged", "May 18 — Discussed pricing tiers")
act4 = ListItem("Note added", "May 12 — Budget approved internally")
contactsSection = Card([contactsHeading, contactsTable], "sunk")
contactsHeading = Heading("Contacts", "h3")
contactsTable = Table([contactName, contactRole])
contactName = Col("Name", ["Priya Patel", "Marcus Lee", "Elena Gomez"])
contactRole = Col("Role", ["CFO", "VP Engineering", "Procurement Lead"])
followupsSection = Card([followupsHeading, followupsList], "sunk")
followupsHeading = Heading("Open Follow-ups", "h3")
followupsList = ListBlock([fu1, fu2])
fu1 = ListItem("Send revised contract", "Due Jun 3")
fu2 = ListItem("Schedule pricing review", "Due Jun 10")
noteSection = Card([noteHeading, noteForm], "sunk")
noteHeading = Heading("Jot a Note", "h3")
noteForm = Form("note-form", noteButtons, [noteField])
noteField = FormControl("Note", noteInput, "Add a quick note about this account")
noteInput = TextArea("note", "Type your note here...", 4)
noteButtons = Buttons([saveNote])
saveNote = Button("Save Note", null, "primary")
renewalSection = Card([renewalCallout, renewalText], "sunk")
renewalCallout = Callout("warning", "Renewal Approaching", "Acme Corp renews on Aug 14, 2025 — 78 days away. Start renewal conversation soon.")
renewalText = TextContent("Renewal date: **Aug 14, 2025**", "small")
callSection = Card([callHeading, callForm], "sunk")
callHeading = Heading("Log a Call", "h3")
callForm = Form("call-form", callButtons, [callDateField, callSummaryField])
callDateField = FormControl("Call Date", callDatePicker)
callDatePicker = DatePicker("call_date")
callSummaryField = FormControl("Summary", callSummaryInput)
callSummaryInput = TextArea("call_summary", "What was discussed?", 3)
callButtons = Buttons([logCall])
logCall = Button("Log Call", null, "primary")