From 846efc0b6923809ed8826d3ccc29e10e76ceb407 Mon Sep 17 00:00:00 2001
From: Tessa Kelly <tessakkelly@gmail.com>
Date: Wed, 3 Jul 2019 07:10:22 -0700
Subject: [PATCH] Adds width and style attribute helpers

---
 src/Nri/Ui/Button/V9.elm | 66 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)

diff --git a/src/Nri/Ui/Button/V9.elm b/src/Nri/Ui/Button/V9.elm
index 6983e9b6..a2324ac2 100644
--- a/src/Nri/Ui/Button/V9.elm
+++ b/src/Nri/Ui/Button/V9.elm
@@ -2,6 +2,8 @@ module Nri.Ui.Button.V9 exposing
     ( buildButton, buildLink
     , render
     , small, medium, large
+    , exactWidth, unboundedWidth, fillContainerWidth
+    , primary, secondary, danger, premium
     , withIcon
     , ButtonSize(..), ButtonWidth(..), ButtonStyle(..), ButtonState(..)
     , button
@@ -42,6 +44,8 @@ may be exceptions, for example if button content is supplied by an end-user.
 @docs buildButton, buildLink
 @docs render
 @docs small, medium, large
+@docs exactWidth, unboundedWidth, fillContainerWidth
+@docs primary, secondary, danger, premium
 @docs withIcon
 
 
@@ -195,6 +199,34 @@ type ButtonSize
     | Large
 
 
+{-| -}
+exactWidth : Int -> ButtonOrLink msg -> ButtonOrLink msg
+exactWidth inPx =
+    setWidth (WidthExact inPx)
+
+
+{-| -}
+unboundedWidth : ButtonOrLink msg -> ButtonOrLink msg
+unboundedWidth =
+    setWidth WidthUnbounded
+
+
+{-| -}
+fillContainerWidth : ButtonOrLink msg -> ButtonOrLink msg
+fillContainerWidth =
+    setWidth WidthFillContainer
+
+
+setWidth : ButtonWidth -> ButtonOrLink msg -> ButtonOrLink msg
+setWidth width buttonOrLink =
+    case buttonOrLink of
+        Button config state ->
+            Button { config | width = width } state
+
+        Link config ->
+            Link { config | width = width }
+
+
 {-| Width sizing behavior for buttons.
 
 `WidthExact Int` defines a size in `px` for the button's total width, and
@@ -207,6 +239,40 @@ type ButtonWidth
     | WidthFillContainer
 
 
+{-| -}
+primary : ButtonOrLink msg -> ButtonOrLink msg
+primary =
+    setStyle Primary
+
+
+{-| -}
+secondary : ButtonOrLink msg -> ButtonOrLink msg
+secondary =
+    setStyle Secondary
+
+
+{-| -}
+danger : ButtonOrLink msg -> ButtonOrLink msg
+danger =
+    setStyle Danger
+
+
+{-| -}
+premium : ButtonOrLink msg -> ButtonOrLink msg
+premium =
+    setStyle Premium
+
+
+setStyle : ButtonStyle -> ButtonOrLink msg -> ButtonOrLink msg
+setStyle style buttonOrLink =
+    case buttonOrLink of
+        Button config state ->
+            Button { config | style = style } state
+
+        Link config ->
+            Link { config | style = style }
+
+
 {-| Styleguide-approved styles for your buttons!
 -}
 type ButtonStyle