From 38f604291398d7832a1d488440757d68be77a5f7 Mon Sep 17 00:00:00 2001
From: Oskar Marquardt <oskar.marquardt@student.uni-halle.de>
Date: Wed, 12 Jun 2024 11:08:53 +0200
Subject: [PATCH] Added Spheres to Character
---
src/Character.elm | 17 +++++++++++++++--
src/Main.elm | 6 +++---
2 files changed, 18 insertions(+), 5 deletions(-)
diff --git a/src/Character.elm b/src/Character.elm
index 104c923..2521fb7 100644
--- a/src/Character.elm
+++ b/src/Character.elm
@@ -2,10 +2,17 @@ module Character exposing (..)
type alias Character =
{ name : String
+ , spheres : Spheres
}
-type CharacterField
- = Name
+type alias Spheres =
+ { correspondence : Sphere
+ }
+
+type alias Sphere =
+ { name : String
+ , dots : Int
+ }
changeName : Character -> String -> Character
changeName character newName =
@@ -18,4 +25,10 @@ changeName character newName =
new : Character
new =
{ name = "Default Name"
+ , spheres =
+ { correspondence =
+ { name = "Correspondence"
+ , dots = 0
+ }
+ }
}
\ No newline at end of file
diff --git a/src/Main.elm b/src/Main.elm
index df96306..fb9e32d 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -4,7 +4,7 @@ import Browser
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
-import Character exposing (..)
+import Character exposing (Character)
main : Program () Model Msg
main =
@@ -17,7 +17,7 @@ main =
init : () -> ( Model, Cmd Msg )
init _ =
- ( { character = new
+ ( { character = Character.new
, modal = Nothing
, modalValue = ""
}
@@ -61,7 +61,7 @@ update msg model =
case modalType of
Name ->
( { model
- | character = changeName model.character model.modalValue
+ | character = Character.changeName model.character model.modalValue
, modal = Nothing
}
, Cmd.none
--
GitLab