CS-381/MiniLogo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add styling and headings.

Browse Source
This commit is contained in:
Danila Fedorin
2019-02-01 20:39:34 -08:00
parent 91a294a56d
commit cdbd0be256
3 changed files with 45 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/Main.elm
View File

@@ -1,4 +1,4 @@
import Html exposing (Html, div, text, textarea)
import Html exposing (Html, div, text, textarea, h1, h2)
import Html.Attributes exposing (class)
import Html.Events exposing (onInput)
import Browser exposing (element)
@@ -320,9 +320,12 @@ view m =
<| Result.withDefault (Err "Couldn't parse program")
<| Result.map (\prg -> evaluateAll prg [] initialState) (run parseProg m.programText)
in
div [ class "logo-container" ]
[ div [ class "logo-pane" ] [ textarea [ onInput UpdateText ] [ text m.programText ] ]
, div [ class "logo-pane" ] [ canvas dat ]
div []
[ h1 [] [ text "MiniLogo Functional Evaluator" ]
, div [ class "logo-container" ]
[ div [ class "logo-pane" ] [ h2 [] [ text "MiniLogo" ], textarea [ onInput UpdateText ] [ text m.programText ] ]
, div [ class "logo-pane" ] [ h2 [] [ text "Output" ], canvas dat ]
]
]
update : Msg -> Model -> (Model, Cmd Msg)