summaryrefslogtreecommitdiff
path: root/Biz
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2021-08-27 20:35:36 -0400
committerBen Sima <ben@bsima.me>2021-11-26 13:47:38 -0500
commitc6224a1c3a75968b74ef579f13ce78c46a6ce2b8 (patch)
treecbe0dc81dc526644faf18914d92f62c20cd0373d /Biz
parent3a9a8d857849e705c0f839f924b7f452ae0fb3e2 (diff)
Add demo button
Diffstat (limited to 'Biz')
-rw-r--r--Biz/Dragons.hs13
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 =