nuttycom/aftok - Change RUAQYIXI4G3RUD4L7536QFGFUFPWFAW7U4PTLFEDIW7FXNLRAMFAC

Add Landkit styles to billing creation

Created by Michael Martin on February 7, 2021

RUAQYIXI4G3RUD4L7536QFGFUFPWFAW7U4PTLFEDIW7FXNLRAMFAC

Dependencies

In channels

main

Change contents

Insertion in client/src/Aftok/Billing/Create.purs at line 4 [3.475]

[3.526]


import Aftok.Api.Billing (BillableId, Billable, Recurrence(..), createBillable)
import Aftok.Api.Types (APIError(..))
import Aftok.HTML.Classes as C
import Aftok.Modals as Modals
import Aftok.Modals.ModalFFI as ModalFFI
import Aftok.Types (System, ProjectId)
import Aftok.Zcash (ZEC(..), toZatoshi)

Deletion in client/src/Aftok/Billing/Create.purs at line 13 [3.475]
B:BD[3.566] → [3.566:607]
```
-- import Data.DateTime (DateTime, date)
```
Deletion in client/src/Aftok/Billing/Create.purs at line 21 [3.475]
∅:D[4.607] → [3.696:727]
B:BD[3.696] → [3.696:727]
B:BD[3.727] → [4.608:659]
```
-- import Data.Unfoldable as U
import Data.Validation.Semigroup (V(..), toEither)
```
Deletion in client/src/Aftok/Billing/Create.purs at line 22 [3.475]
∅:D[2.1028] → [4.660:698]
B:BD[3.765] → [4.660:698]
```
-- import Data.Traversable (traverse)
```
Insertion in client/src/Aftok/Billing/Create.purs at line 23 [3.475]
[4.728]
[3.826]
```
import Data.Validation.Semigroup (V(..), toEither)
```
Deletion in client/src/Aftok/Billing/Create.purs at line 25 [3.475]
B:BD[3.850] → [3.850:921]
```
-- import Effect.Class (liftEffect)
-- import Effect.Now (nowDateTime)
```
Deletion in client/src/Aftok/Billing/Create.purs at line 26 [3.475]
B:BD[3.941] → [3.941:982]
```
import Halogen.HTML.Core (ClassName(..))
```
Insertion in client/src/Aftok/Billing/Create.purs at line 27 [3.475]
[3.1008]
[3.1008]
```
import Halogen.HTML.Core (ClassName(..))
```
Deletion in client/src/Aftok/Billing/Create.purs at line 30 [3.475]
B:BD[3.1116] → [3.1116:1155]
B:BD[3.1155] → [4.729:760]
∅:D[4.760] → [5.464:535]
B:BD[3.1228] → [5.464:535]
B:BD[5.535] → [4.761:799]
∅:D[5.535] → [3.1228:1281]
∅:D[4.799] → [3.1228:1281]
B:BD[3.1228] → [3.1228:1281]
B:BD[3.1281] → [4.800:819]
∅:D[4.819] → [3.1321:1340]
B:BD[3.1321] → [3.1321:1340]
B:BD[3.1395] → [3.1395:1399]
B:BD[3.1399] → [4.820:860]
```
import Aftok.Types (System, ProjectId)
import Aftok.HTML.Classes as C
import Aftok.Modals as Modals
import Aftok.Modals.ModalFFI as ModalFFI
import Aftok.Api.Types (APIError(..))
import Aftok.Api.Billing
  ( BillableId
  , Billable
  , Recurrence(..)
  , createBillable
  )
import Aftok.Zcash (ZEC(..), toZatoshi)
```
Replacement in client/src/Aftok/Billing/Create.purs at line 130 [3.475]
∅:D[4.1554] → [5.708:730]
B:BD[5.708] → [5.708:730]
```
          [ HH.label 
```
[4.1554]
[4.1555]
```
          [ HH.label
```
Replacement in client/src/Aftok/Billing/Create.purs at line 132 [3.475]
B:BD[4.1591] → [4.1591:1631]
```
            [ HH.text "Product Name" ] 
```
[4.1591]
[5.861]
```
            [ HH.text "Product Name" ]
```

Replacement in client/src/Aftok/Billing/Create.purs at line 135 [3.475]

B:BD[6.2101] → [4.1632:1676]

            , P.classes [ C.formControlSm ]

[6.2101]

[5.883]

            , P.classes [ C.formControl, C.formControlSm ]

Replacement in client/src/Aftok/Billing/Create.purs at line 140 [3.475]
B:BD[6.2388] → [4.1677:1690]
```
          ] 
```
[6.2388]
[4.1690]
```
          ]
```
Replacement in client/src/Aftok/Billing/Create.purs at line 143 [3.475]
B:BD[4.1737] → [4.1737:1759]
```
          [ HH.label 
```
[4.1737]
[4.1759]
```
          [ HH.label
```

Replacement in client/src/Aftok/Billing/Create.purs at line 145 [3.475]

B:BD[4.1797] → [4.1797:1846]

              [ HH.text "Product Description" ]

[4.1797]

[5.1217]

              [ HH.text "Product Description" ]

Replacement in client/src/Aftok/Billing/Create.purs at line 148 [3.475]

B:BD[5.1274] → [4.1847:1893]

              , P.classes [ C.formControlSm ]

[5.1274]

[5.1338]

              , P.classes [ C.formControl, C.formControlSm ]

Replacement in client/src/Aftok/Billing/Create.purs at line 156 [3.475]
B:BD[4.1956] → [4.1956:1978]
```
          [ HH.label 
```
[4.1956]
[4.1978]
```
          [ HH.label
```

Replacement in client/src/Aftok/Billing/Create.purs at line 158 [3.475]

B:BD[4.2015] → [4.2015:2077]

              [ HH.text "Message to be included with bill" ]

[4.2015]

[5.1755]

              [ HH.text "Message to be included with bill" ]

Insertion in client/src/Aftok/Billing/Create.purs at line 161 [3.475]
[5.1812]
[5.1876]
```
              , P.classes [C.formControl, C.formControlSm]
```

Replacement in client/src/Aftok/Billing/Create.purs at line 169 [3.475]

B:BD[4.2296] → [4.2296:2936]

          [ HH.label_
            [ HH.input 
                ([ P.type_ P.InputRadio 
                , P.name "recurType" 
                , E.onClick \_ -> Just (SetRecurrenceType RTAnnual)
                ] <> (if st.recurrenceType == RTAnnual then [P.checked true] else []))
            , HH.text " Annual"
            ]
          , HH.label_
            [ HH.input 
                ([ P.type_ P.InputRadio 
                , P.name "recurType" 
                , E.onClick \_ -> Just (SetRecurrenceType RTMonthly)
                ] <> (if st.recurrenceType == RTMonthly then [P.checked true] else []))
            , HH.text " every "

[4.2296]

[4.2936]

          [ formCheckGroup
              { id: "recurAnnual"
              , checked: (st.recurrenceType == RTAnnual)
              , labelClasses: []
              }
              (\_ -> Just (SetRecurrenceType RTAnnual))
              [ HH.text "Annual" ]
          , formCheckGroup
              { id: "recurMonthly"
              , checked: (st.recurrenceType == RTMonthly)
              , labelClasses: [C.formInline]
              }
              (\_ -> Just (SetRecurrenceType RTMonthly))
              [ HH.text "Every"
              , HH.input
                  [ P.type_ P.InputNumber
                  , P.classes [ C.formControl, C.formControlXs, C.formControlFlush, C.marginX2 ]
                  , P.value (if st.recurrenceType == RTMonthly
                                then maybe "" show st.recurrenceValue
                                else "")
                  , P.min 1.0
                  , P.max 12.0
                  , E.onValueInput (Just <<< SetRecurrenceMonths)
                  ]
              , HH.text "Months"]
          , formCheckGroup
            { id: "recurWeekly"
            , checked: (st.recurrenceType == RTWeekly)
            , labelClasses: [C.formInline]
            }
            (\_ -> Just (SetRecurrenceType RTWeekly))
            [ HH.text "Every"

Replacement in client/src/Aftok/Billing/Create.purs at line 203 [3.475]

B:BD[4.2999] → [4.2999:3824]

                , P.classes [ C.formControlSm ]
                , P.value (if st.recurrenceType == RTMonthly
                              then maybe "" show st.recurrenceValue
                              else "")
                , P.min 1.0
                , P.max 12.0
                , E.onValueInput (Just <<< SetRecurrenceMonths)
                ] 
            , HH.text " Months"
            ]
          , HH.label_
            [ HH.input 
                ([ P.type_ P.InputRadio 
                , P.name "recurType" 
                , E.onClick \_ -> Just (SetRecurrenceType RTWeekly)
                ] <> (if st.recurrenceType == RTWeekly then [P.checked true] else []))
            , HH.text " every "
            , HH.input
                [ P.type_ P.InputNumber
                , P.classes [ C.formControlSm ]

[4.2999]

[4.3824]

                , P.classes [ C.formControl, C.formControlXs, C.formControlFlush, C.marginX2 ]

Replacement in client/src/Aftok/Billing/Create.purs at line 210 [3.475]

B:BD[4.4111] → [4.4111:4491]

                ] 
            , HH.text " Weeks"
            ]
          , HH.label_
            [ HH.input 
                ([ P.type_ P.InputRadio 
                , P.name "recurType" 
                , E.onClick \_ -> Just (SetRecurrenceType RTOneTime)
                ] <> (if st.recurrenceType == RTOneTime then [P.checked true] else []))
            , HH.text " One-Time"

[4.4111]

[4.4491]

                ]
            , HH.text "Weeks"

Insertion in client/src/Aftok/Billing/Create.purs at line 213 [3.475]

[4.4505]

          , formCheckGroup
            { id: "oneTime"
            , checked: st.recurrenceType == RTOneTime
            , labelClasses: []
            }
            (\_ -> Just (SetRecurrenceType RTOneTime))
            [ HH.text "One-Time" ]

Replacement in client/src/Aftok/Billing/Create.purs at line 223 [3.475]
B:BD[4.4564] → [4.4564:4586]
```
          [ HH.label 
```
[4.4564]
[4.4586]
```
          [ HH.label
```

Replacement in client/src/Aftok/Billing/Create.purs at line 225 [3.475]

B:BD[4.4626] → [4.4626:5000]

∅:D[4.5000] → [5.2097:2113]

B:BD[5.2097] → [5.2097:2113]

              [ HH.text "Amount" ] 
          , HH.input
              [ P.type_ P.InputNumber
              , P.classes [ C.formControlSm ]
              , P.id_ "billableAmount"
              , P.value (maybe "" (Fixed.toString <<< unwrap) st.amount)
              , P.placeholder "1.0"
              , P.min 0.0
              , E.onValueInput (Just <<< SetBillingAmount)
              ]

[4.4626]

[4.5001]

              [ HH.text "Amount" ]

Replacement in client/src/Aftok/Billing/Create.purs at line 227 [3.475]

B:BD[4.5020] → [4.5020:5174]

              [ P.classes [ ClassName "input-group-append" ] ]
              [ HH.span [ P.classes [ ClassName "input-group-text" ] ] [ HH.text "ZEC" ] ]

[4.5020]

[5.2113]

          [ P.classes [ ClassName "input-group", ClassName "input-group-sm" ] ]
              [ HH.input
                  [ P.type_ P.InputNumber
                  , P.classes [ C.formControl ]
                  , P.id_ "billableAmount"
                  , P.value (maybe "" (Fixed.toString <<< unwrap) st.amount)
                  , P.placeholder "1.0"
                  , P.min 0.0
                  , E.onValueInput (Just <<< SetBillingAmount)
                  ]
              , HH.div
                [ P.classes [ ClassName "input-group-append"] ]
                [ HH.span
                    [ P.classes [ ClassName "input-group-text" ]
                    , P.style "height: auto;" -- fix bad calculated height from LandKit
                    ]
                    [ HH.text "ZEC" ] ]
              ]

Replacement in client/src/Aftok/Billing/Create.purs at line 248 [3.475]
B:BD[4.5228] → [4.5228:5250]
```
          [ HH.label 
```
[4.5228]
[4.5250]
```
          [ HH.label
```

Replacement in client/src/Aftok/Billing/Create.purs at line 250 [3.475]

B:BD[4.5287] → [2.1060:1109]

              [ HH.text "Grace Period (Days)" ]

[4.5287]

[4.5337]

              [ HH.text "Grace Period (Days)" ]

Replacement in client/src/Aftok/Billing/Create.purs at line 254 [3.475]

B:BD[4.5432] → [4.5432:5478]

              , P.classes [ C.formControlSm ]

[4.5432]

[4.5478]

              , P.classes [ C.formControl, C.formControlSm ]

Replacement in client/src/Aftok/Billing/Create.purs at line 259 [3.475]
B:BD[4.5713] → [4.5713:5730]
```
              ] 
```
[4.5713]
[4.5730]
```
              ]
```
Replacement in client/src/Aftok/Billing/Create.purs at line 263 [3.475]
B:BD[4.5796] → [4.5796:5818]
```
          [ HH.label 
```
[4.5796]
[4.5818]
```
          [ HH.label
```

Replacement in client/src/Aftok/Billing/Create.purs at line 265 [3.475]

B:BD[4.5857] → [4.5857:5916]

              [ HH.text "Request Expiry Period (Hours)" ]

[4.5857]

[4.5916]

              [ HH.text "Request Expiry Period (Hours)" ]

Replacement in client/src/Aftok/Billing/Create.purs at line 269 [3.475]

B:BD[4.6011] → [4.6011:6057]

              , P.classes [ C.formControlSm ]

[4.6011]

[4.6057]

              , P.classes [ C.formControl, C.formControlSm ]

Replacement in client/src/Aftok/Billing/Create.purs at line 274 [3.475]
B:BD[4.6293] → [4.6293:6310]
```
              ] 
```
[4.6293]
[4.6310]
```
              ]
```

Insertion in client/src/Aftok/Billing/Create.purs at line 278 [3.475]

[3.4021]

[6.2389]


  formCheckGroup :: forall i a.
    { id :: String
    , checked :: Boolean
    , labelClasses :: Array ClassName
    }
    -> (Unit -> Maybe a)
    -> Array (HH.HTML i a)
    -> HH.HTML i a
  formCheckGroup { id, checked, labelClasses } onChange children  =
    HH.div
      [ P.classes [C.formCheck] ]
      [ HH.input
          ([ P.type_ P.InputRadio
          , P.name "recurType"
          , P.classes [C.formCheckInput]
          , P.id_ id
          , E.onClick \_ -> onChange unit
          ] <> (if checked then [P.checked true] else []))
       , HH.label
           [ P.classes ([C.formCheckLabel ] <> labelClasses)
           , P.for id]
           children
       ]

Replacement in client/src/Aftok/Billing/Create.purs at line 304 [3.475]
B:BD[4.6410] → [4.6410:6440]
```
  formGroup st fields body = 
```
[4.6410]
[4.6440]
```
  formGroup st fields body =
```
Replacement in client/src/Aftok/Billing/Create.purs at line 307 [3.475]
B:BD[4.6484] → [4.6484:6527]
```
     (body <> (fieldError st =<< fields)) 
```
[4.6484]
[3.4021]
```
     (body <> (fieldError st =<< fields))
```

Replacement in client/src/Aftok/Billing/Create.purs at line 310 [3.475]

B:BD[4.6595] → [4.6595:6660]

  fieldError st field = 
    if any (_ == field) st.fieldErrors

[4.6595]

[4.6660]

  fieldError st field =
    if any (_ == field) st.fieldErrors

Replacement in client/src/Aftok/Billing/Create.purs at line 329 [3.475]
B:BD[3.4190] → [4.7412:7435]
```
      SetName name -> 
```
[3.4190]
[4.7435]
```
      SetName name ->
```
Replacement in client/src/Aftok/Billing/Create.purs at line 331 [3.475]
B:BD[4.7478] → [4.7478:7501]
```
      SetDesc desc -> 
```
[4.7478]
[4.7501]
```
      SetDesc desc ->
```
Replacement in client/src/Aftok/Billing/Create.purs at line 333 [3.475]
B:BD[4.7551] → [4.7551:7576]
```
      SetMessage msg -> 
```
[4.7551]
[4.7576]
```
      SetMessage msg ->
```
Replacement in client/src/Aftok/Billing/Create.purs at line 343 [3.475]
B:BD[4.8014] → [4.8014:8048]
```
      SetRecurrenceMonths dur -> 
```
[4.8014]
[4.8048]
```
      SetRecurrenceMonths dur ->
```
Replacement in client/src/Aftok/Billing/Create.purs at line 347 [3.475]
B:BD[4.8215] → [4.8215:8248]
```
      SetRecurrenceWeeks dur -> 
```
[4.8215]
[4.8248]
```
      SetRecurrenceWeeks dur ->
```
Replacement in client/src/Aftok/Billing/Create.purs at line 351 [3.475]
B:BD[4.8414] → [4.8414:8445]
```
      SetBillingAmount amt -> 
```
[4.8414]
[4.8445]
```
      SetBillingAmount amt ->
```
Replacement in client/src/Aftok/Billing/Create.purs at line 355 [3.475]
B:BD[4.8587] → [4.8587:8616]
```
      SetGracePeriod dur -> 
```
[4.8587]
[4.8616]
```
      SetGracePeriod dur ->
```
Replacement in client/src/Aftok/Billing/Create.purs at line 359 [3.475]
B:BD[4.8762] → [4.8762:8793]
```
      SetRequestExpiry dur -> 
```
[4.8762]
[4.8793]
```
      SetRequestExpiry dur ->
```
Replacement in client/src/Aftok/Billing/Create.purs at line 384 [3.475]
B:BD[4.10118] → [4.10118:10127]
```
        
```
[4.10118]
[4.10127]
Replacement in client/src/Aftok/Billing/Create.purs at line 386 [3.475]
B:BD[4.10172] → [4.10172:10192]
```
            reqV = 
```
[4.10172]
[4.10192]
```
            reqV =
```
Replacement in client/src/Aftok/Billing/Create.purs at line 405 [3.475]
B:BD[4.10901] → [4.10901:10929]
```
              Left errs -> 
```
[4.10901]
[4.10929]
```
              Left errs ->
```
Replacement in client/src/Aftok/HTML/Classes.purs at line 5 [6.3176]
B:BD[6.3252] → [6.3252:3270]
```
btn :: ClassName 
```
[6.3252]
[6.3270]
```
btn :: ClassName
```
Replacement in client/src/Aftok/HTML/Classes.purs at line 8 [6.3176]
B:BD[6.3293] → [6.3293:3318]
```
btnPrimary :: ClassName 
```
[6.3293]
[6.3318]
```
btnPrimary :: ClassName
```
Replacement in client/src/Aftok/HTML/Classes.purs at line 11 [6.3176]
B:BD[6.3356] → [6.3356:3383]
```
btnSecondary :: ClassName 
```
[6.3356]
[6.3383]
```
btnSecondary :: ClassName
```
Replacement in client/src/Aftok/HTML/Classes.purs at line 14 [6.3176]
B:BD[6.3425] → [6.3425:3445]
```
close :: ClassName 
```
[6.3425]
[6.3445]
```
close :: ClassName
```
Insertion in client/src/Aftok/HTML/Classes.purs at line 44 [6.3176]
[4.19217]
[4.19217]
```
formInline :: ClassName
formInline = ClassName "form-inline"
```
Insertion in client/src/Aftok/HTML/Classes.purs at line 49 [6.3176]
[4.19275]
[4.19275]
```
formControl :: ClassName
formControl = ClassName "form-control"
```

Insertion in client/src/Aftok/HTML/Classes.purs at line 55 [6.3176]

[4.19347]


formControlXs :: ClassName
formControlXs = ClassName "form-control-xs"
formControlFlush :: ClassName
formControlFlush = ClassName "form-control-flush"
formCheck :: ClassName
formCheck = ClassName "form-check"
formCheckLabel :: ClassName
formCheckLabel = ClassName "form-check-label"
formCheckInput :: ClassName
formCheckInput = ClassName "form-check-input"
-- Sizing
marginX2 :: ClassName
marginX2 = ClassName "mx-2"

Add Landkit styles to billing creation

Dependencies

In channels

Change contents

Insertion in client/src/Aftok/Billing/Create.purs at line 4 [3.475]

Deletion in client/src/Aftok/Billing/Create.purs at line 13 [3.475]

Deletion in client/src/Aftok/Billing/Create.purs at line 21 [3.475]

Deletion in client/src/Aftok/Billing/Create.purs at line 22 [3.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 23 [3.475]

Deletion in client/src/Aftok/Billing/Create.purs at line 25 [3.475]

Deletion in client/src/Aftok/Billing/Create.purs at line 26 [3.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 27 [3.475]

Deletion in client/src/Aftok/Billing/Create.purs at line 30 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 130 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 132 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 135 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 140 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 143 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 145 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 148 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 156 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 158 [3.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 161 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 169 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 203 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 210 [3.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 213 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 223 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 225 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 227 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 248 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 250 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 254 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 259 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 263 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 265 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 269 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 274 [3.475]

Insertion in client/src/Aftok/Billing/Create.purs at line 278 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 304 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 307 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 310 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 329 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 331 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 333 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 343 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 347 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 351 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 355 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 359 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 384 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 386 [3.475]

Replacement in client/src/Aftok/Billing/Create.purs at line 405 [3.475]

Replacement in client/src/Aftok/HTML/Classes.purs at line 5 [6.3176]

Replacement in client/src/Aftok/HTML/Classes.purs at line 8 [6.3176]

Replacement in client/src/Aftok/HTML/Classes.purs at line 11 [6.3176]

Replacement in client/src/Aftok/HTML/Classes.purs at line 14 [6.3176]

Insertion in client/src/Aftok/HTML/Classes.purs at line 44 [6.3176]

Insertion in client/src/Aftok/HTML/Classes.purs at line 49 [6.3176]

Insertion in client/src/Aftok/HTML/Classes.purs at line 55 [6.3176]