diff options
| author | Guillermo Ramos | 2025-03-23 16:46:43 +0100 |
|---|---|---|
| committer | Guillermo Ramos | 2025-03-23 16:50:43 +0100 |
| commit | ac10e7fed68ef0ed6c2f2e73f698afaa8763d80e (patch) | |
| tree | 3cf38b296936874f59424ceeea9c191af2bcba93 | |
| parent | e618dc6979f0a1eb11776640f6a3700e31d20159 (diff) | |
| download | hiccup-ac10e7fed68ef0ed6c2f2e73f698afaa8763d80e.tar.gz | |
Input widths
| -rw-r--r-- | front/src/Main.elm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/front/src/Main.elm b/front/src/Main.elm index 696bc71..4816ed3 100644 --- a/front/src/Main.elm +++ b/front/src/Main.elm @@ -808,7 +808,7 @@ convertInitialRate : (Float -> Int -> Float) -> String -> String -> Maybe String convertInitialRate convert val total = case ( String.toFloat val, String.toInt total ) of ( Just x, Just totalValueF ) -> - Just <| String.fromFloat <| convert x totalValueF + Just <| Round.round 2 <| convert x totalValueF _ -> Nothing @@ -1321,7 +1321,7 @@ specsView { t, settings, rawSpecs } = ] , div [ class "ml-4" ] [ text " (" - , txtInput [ class "w-[55px]", Html.Attributes.min "10", Html.Attributes.max "100" ] + , txtInput [ class "w-[70px]", Html.Attributes.min "10", Html.Attributes.max "100" ] (UpdateSpecs Rate) rate , text "%)" @@ -1344,14 +1344,14 @@ specsView { t, settings, rawSpecs } = , div [ class "flex my-1" ] [ div [] [ text (t "VAT: ") - , txtInput [ class "w-[55px] mx-1", Html.Attributes.min "0", Html.Attributes.max "50" ] + , txtInput [ class "w-[60px] mx-1", Html.Attributes.min "0", Html.Attributes.max "50" ] (UpdateSpecs VAT) vat , text "%" ] , div [ class "ml-6" ] [ text (t "Agent fee: ") - , txtInput [ class "w-[55px] mx-1", Html.Attributes.min "0", Html.Attributes.max "10" ] + , txtInput [ class "w-[80px] mx-1", Html.Attributes.min "0", Html.Attributes.max "10" ] (UpdateSpecs Fee) fee , text "%" @@ -1522,14 +1522,14 @@ quotaView m { updates } { month, payed, pending_principal } = [ div [] [ text <| m.t "Period: " , txtInput - [ class "w-[40px] border" ] + [ class "w-[50px] border" ] (\newTxt -> setUpdate { au | periodic = Just { period = newTxt, to = to } }) period ] , div [] [ text <| m.t "To: " , txtInput - [ class "w-[40px] border" ] + [ class "w-[50px] border" ] (\newTxt -> setUpdate { au | periodic = Just { period = period, to = newTxt } }) to ] |