module Explorer.View.Calculator where

import Prelude

import Pux.Html (Html, div, text) as P
import Pux.Html.Attributes (className) as P
import Pux.Router (link) as P

import Explorer.I18n.Lang (translate)
import Explorer.I18n.Lenses (cBack, cCalculator, common) as I18nL
import Explorer.Types.State (State)
import Explorer.Types.Actions (Action)
import Explorer.Routes (Route(Dashboard), toUrl)
import Explorer.View.Common (placeholderView)

calculatorView :: State -> P.Html Action
calculatorView state =
    P.div
        [ P.className "explorer-calculator" ]
        [ P.div
            [ P.className "explorer-calculator__container" ]
            [ P.link (toUrl Dashboard)
                [ P.className "" ]
                [ P.text $ translate (I18nL.common <<< I18nL.cBack) state.lang ]
            , placeholderView $ translate (I18nL.common <<< I18nL.cCalculator) state.lang
            ]
        ]

module Explorer.View.Calculator where

import Prelude

import Explorer.I18n.Lang (translate)
import Explorer.I18n.Lenses (cBack, cCalculator, common) as I18nL
import Explorer.Types.State (State)
import Explorer.Types.Actions (Action)
import Explorer.Routes (Route(Dashboard), toUrl)
import Explorer.View.Common (placeholderView)

import Text.Smolder.HTML (div, a)
import Text.Smolder.HTML.Attributes (className, href)
import Text.Smolder.Markup (text, (#!), (!))

import Pux.DOM.HTML (Html) as P

calculatorView :: State -> P.Html Action
calculatorView state =
    div ! className "explorer-calculator" $ do
        div
            ! className "explorer-calculator__container" $ do
            a
                ! href (toUrl Dashboard)
                ! className ""
                #! onClick (toUrl Dashboard)
                $ text (translate (I18nL.common <<< I18nL.cBack) state.lang)
            placeholderView $ translate (I18nL.common <<< I18nL.cCalculator) state.lang

[CSE-68] Update `calculator` view to `psc 0.11.x`

input-output-hk/cardano-sl,input-output-hk/cardano-sl,input-output-hk/cardano-sl,input-output-hk/cardano-sl-explorer,input-output-hk/pos-haskell-prototype,input-output-hk/cardano-sl,input-output-hk/pos-haskell-prototype,input-output-hk/pos-haskell-prototype,input-output-hk/cardano-sl-explorer,input-output-hk/cardano-sl-explorer