root = Card([header, dealSummary, stageTag, activitySection, contactsSection, followupsSection, noteSection, renewalSection, logCallSection], "card", "column", "l")
header = CardHeader("Acme Corporation", "Owned by Sarah Mitchell • Enterprise Account")
dealSummary = Callout("success", "Total Deal Value", "$287,500 ARR across 3 active opportunities")
stageTag = Tag("Negotiation", null, "md", "info")
activitySection = Card([activityHeader, activityList], "sunk", "column", "m")
activityHeader = Heading("Recent Activity", "h3")
activityList = ListBlock([activity1, activity2, activity3, activity4, activity5], "number")
activity1 = ListItem("Proposal sent", "Sent enterprise proposal v2.3 to procurement team", null, null)
activity2 = ListItem("Demo completed", "Technical deep-dive with engineering leads", null, null)
activity3 = ListItem("Security review started", "InfoSec questionnaire submitted", null, null)
activity4 = ListItem("Pricing discussion", "Negotiated 15% volume discount on 3-year term", null, null)
activity5 = ListItem("Stakeholder mapping", "Identified 4 new decision makers in IT ops", null, null)
contactsSection = Card([contactsHeader, contactsTable], "sunk", "column", "m")
contactsHeader = Heading("Key Contacts", "h3")
contactsTable = Table([contactName, contactRole, contactEmail, contactPhone])
contactName = Col("Name", ["James Chen", "Maria Rodriguez", "David Park", "Lisa Thompson"])
contactRole = Col("Role", ["CTO", "VP Engineering", "Security Lead", "Procurement Manager"])
contactEmail = Col("Email", ["j.chen@acme.com", "m.rodriguez@acme.com", "d.park@acme.com", "l.thompson@acme.com"])
contactPhone = Col("Phone", ["+1 415-555-0123", "+1 415-555-0124", "+1 415-555-0125", "+1 415-555-0126"])
followupsSection = Card([followupsHeader, followupsList], "sunk", "column", "m")
followupsHeader = Heading("Open Follow-ups", "h3")
followupsList = ListBlock([followup1, followup2, followup3], "number")
followup1 = ListItem("Send revised contract", "Due: Tomorrow • Legal review pending", null, null)
followup2 = ListItem("Schedule executive alignment", "Due: In 3 days • CFO availability needed", null, null)
followup3 = ListItem("Provide SOC2 documentation", "Due: In 1 week • Security team requested", null, null)
noteSection = Card([noteHeader, noteForm], "sunk", "column", "m")
noteHeader = Heading("Add a Note", "h3")
noteForm = Form("account-note", noteButtons, [noteField])
noteField = FormControl("Note", noteInput, "Internal note for this account")
noteInput = TextArea("note", "Enter your note here...", 4)
noteButtons = Buttons([saveNoteBtn])
saveNoteBtn = Button("Save Note", null, "primary")
renewalSection = Card([renewalHeader, renewalInfo, renewalWarning], "sunk", "column", "m")
renewalHeader = Heading("Renewal", "h3")
renewalInfo = TextContent("Contract renews on March 15, 2025 • 45 days remaining")
renewalWarning = Callout("warning", "Renewal Approaching", "Renewal is within 60 days. Initiate renewal conversation and prepare expansion proposal.")
logCallSection = Card([logCallHeader, logCallBtn], "sunk", "column", "m")
logCallHeader = Heading("Log a Call", "h3")
logCallBtn = Button("Log Call", null, "primary")