[#65] Modal action button, Loading (#67)

[#65] Modal action button, Loading

Author: kimispencer

docs/Examples/Modal.example.purs

@@ -88,6 +88,28 @@ docs = unit # make component
                   body_ "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Etiam pretium nec tellus ornare tincidunt. Phasellus ultrices porta finibus. In id mollis diam. Praesent efficitur lectus quis odio convallis placerat. Suspendisse metus tortor, faucibus nec imperdiet quis, iaculis id risus. Pellentesque a auctor turpis, a lacinia nulla. Pellentesque malesuada suscipit ante, sed convallis est pharetra eu. In sed enim nec lacus dignissim malesuada. Lorem ipsum dolor sit amet, consectetur adipiscing elit. In metus arcu, efficitur et magna a, fermentum lacinia nulla. Mauris ligula erat, posuere sed diam a, sodales vestibulum ante."
               }
 
+        , example $
+            button secondary
+              { onPress = capture_ $ self.setState _ { modalId = Just MediumModal }
+              , title = "Open modal, medium, action button loading"
+              }
+
+        , guard (self.state.modalId == Just MediumModal) $
+            modal
+              { modalOpen: true
+              , closeButton: true
+              , onRequestClose: self.setState _ { modalId = Nothing }
+              , onActionButtonClick: notNull $ self.setState \state -> state { clicks = state.clicks + 1 }
+              , actionButtonTitle: ""
+              , actionButtonState: Button.Loading
+              , size: Medium
+              , title: "Modal title -- Medium"
+              , variant: ""
+              , internalBorders: false
+              , children:
+                  body_ "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Etiam pretium nec tellus ornare tincidunt. Phasellus ultrices porta finibus. In id mollis diam. Praesent efficitur lectus quis odio convallis placerat. Suspendisse metus tortor, faucibus nec imperdiet quis, iaculis id risus. Pellentesque a auctor turpis, a lacinia nulla. Pellentesque malesuada suscipit ante, sed convallis est pharetra eu. In sed enim nec lacus dignissim malesuada. Lorem ipsum dolor sit amet, consectetur adipiscing elit. In metus arcu, efficitur et magna a, fermentum lacinia nulla. Mauris ligula erat, posuere sed diam a, sodales vestibulum ante."
+              }
+
         , example $
             button secondary
               { onPress = capture_ $ self.setState _ { modalId = Just LargeModal }