Add demo button

1 files changed, 13 insertions, 0 deletions

diff --git a/Biz/Dragons.hs b/Biz/Dragons.hs
index f533865..d370693 100644
--- a/Biz/Dragons.hs
+++ b/Biz/Dragons.hs
@@ -1230,6 +1230,10 @@ instance Lucid.ToHtml Home where
         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
           "What if none of your active employees have touched some part of the codebase? \
@@ -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 =