View.Calculator
The implementation was based on the .calculator block.
View Options
type alias ViewOptions msg =
{ line1 : String
, line2 : String
, onClick : Key -> msg
}
View Function
view : ViewOptions msg -> H.Html msg
view { line1, line2, onClick } =
H.div [ HA.class "calculator" ]
[ H.div
[ HA.class "calculator__display" ]
[ Display.view
{ line1 = line1
, line2 = line2
}
]
, H.div
[ HA.class "calculator__pad" ]
[ Pad.view onClick ]
]