From 77bd953b9564684ff5668666a6e4772aadc8ad3e Mon Sep 17 00:00:00 2001
From: Danila Fedorin <danila.fedorin@gmail.com>
Date: Tue, 28 May 2019 19:49:48 -0700
Subject: [PATCH] Allow creating and deleting cache levels.

---
 src/CacheSim/View.elm | 27 +++++++++++++++++++++++----
 1 file changed, 23 insertions(+), 4 deletions(-)

diff --git a/src/CacheSim/View.elm b/src/CacheSim/View.elm
index 3030ae6..11b3a7f 100644
--- a/src/CacheSim/View.elm
+++ b/src/CacheSim/View.elm
@@ -1,9 +1,15 @@
 module CacheSim.View exposing (..)
 import CacheSim.Raw exposing (..)
 import CacheSim.Model exposing (..)
-import Html exposing (Html, input, text, div, label, span, h2)
+import Html exposing (Html, input, text, div, label, span, h2, h3)
 import Html.Attributes exposing (type_, class, value, for)
-import Html.Events exposing (onInput)
+import Html.Events exposing (onInput, onClick)
+
+button : String -> Msg -> Html Msg
+button s m = input [ type_ "button", onClick m, value s] []
+
+buttonWrapper : List (Html Msg) -> Html Msg
+buttonWrapper = div [ class "button-wrapper" ]
 
 labeledInput : String -> String -> (String -> Msg) -> Html Msg
 labeledInput s val f =
@@ -20,6 +26,8 @@ viewRawCacheModel level rcm =
         updateSetSize s cm = { cm | setSize = s}
         wrapUpdate f s = ChangeRawModel level (f s)
 
+        deleteButton = button "Delete" (DeleteRawModel level)
+
         params = div [ class "cache-model-params" ]
             [ labeledInput "Block size" rcm.blockSize (wrapUpdate updateBlockSize)
             , labeledInput "Set count" rcm.setCount (wrapUpdate updateSetCount)
@@ -27,10 +35,21 @@ viewRawCacheModel level rcm =
             ]
     in
         div [ class "cache-model" ]
-            [ h2 [] [ text <| "L" ++ String.fromInt (level + 1) ++ " Cache" ]
+            [ h3 [] [ text <| "L" ++ String.fromInt (level + 1) ++ " Cache" ]
+            , buttonWrapper [ deleteButton ]
             , params
             ]
 
 viewRawCacheModelHierarchy : RawCacheModelHierarchy -> Html Msg
 viewRawCacheModelHierarchy rcmh =
-    div [ class "cache-model-hierarchy" ] <| List.indexedMap viewRawCacheModel rcmh
+    let
+        models = div [ class "cache-model-levels" ] 
+            <|List.indexedMap viewRawCacheModel rcmh
+        
+        newButton = button "Add level" CreateRawModel
+    in
+        div [ class "cache-model-hierarchy" ]
+            [ h2 [] [ text "Cache hierarchy" ]
+            , buttonWrapper [ newButton ]
+            , models
+            ]