From c6224a1c3a75968b74ef579f13ce78c46a6ce2b8 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Fri, 27 Aug 2021 20:35:36 -0400 Subject: Add demo button --- Biz/Dragons.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'Biz/Dragons.hs') diff --git a/Biz/Dragons.hs b/Biz/Dragons.hs index f533865..d370693 100644 --- a/Biz/Dragons.hs +++ b/Biz/Dragons.hs @@ -1229,6 +1229,10 @@ instance Lucid.ToHtml Home where p "Dragons.dev analyzes your codebase trends, finds patterns in how your developers work, and protects against tech debt." p "Just hook it up to your CI system - Dragons.dev warns you when it finds a problem." Lucid.toHtml <| tryButton oAuthArgs "Give it a try with GitHub" mempty + section <| do + h2 "Slay your codebase dragons 🐉" + p "No more _`//here be dragons`_. Identify tech debt before it becomes a problem." + Lucid.toHtml demoButton section <| do h2 "Identify blackholes in your codebase" p @@ -1427,6 +1431,15 @@ encodeParams = <. LBS.toStrict <. Web.urlEncodeParams +demoButton :: Lucid.Html () +demoButton = + Lucid.a_ + [ Lucid.id_ "try-button", + Lucid.href_ + "https://calendly.com/bsima/15minutedragonsdemo" + ] + <| Lucid.toHtml ("Schedule a 15 minute demo" :: Text) + -- | Login button for GitHub. tryButton :: Auth.GitHub -> Text -> Text -> Lucid.Html () tryButton oAuthArgs title subtitle = -- cgit v1.2.3