| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/roster-editor/src/ElmModule/Update.elm | 25 | ||||
| -rw-r--r-- | src/roster-editor/src/Struct/Event.elm | 13 | ||||
| -rw-r--r-- | src/roster-editor/src/Update/SetArmor.elm | 39 |
3 files changed, 76 insertions, 1 deletions
diff --git a/src/roster-editor/src/ElmModule/Update.elm b/src/roster-editor/src/ElmModule/Update.elm index 08aa207..6896a11 100644 --- a/src/roster-editor/src/ElmModule/Update.elm +++ b/src/roster-editor/src/ElmModule/Update.elm @@ -3,14 +3,24 @@ module ElmModule.Update exposing (update) -- Elm ------------------------------------------------------------------------- -- Roster Editor --------------------------------------------------------------- +import Struct.Armor import Struct.Event +import Struct.Glyph +import Struct.GlyphBoard import Struct.Model +import Struct.Portrait +import Struct.Weapon import Update.GoToMainMenu import Update.HandleServerReply import Update.SelectCharacter import Update.SelectTab +import Update.SetArmor +import Update.SetGlyph +import Update.SetGlyphBoard +import Update.SetPortrait import Update.SetRequestedHelp +import Update.SetWeapon -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- @@ -52,3 +62,18 @@ update event model = Struct.Event.GoToMainMenu -> (Update.GoToMainMenu.apply_to new_model) + + (Struct.Event.SelectedPortrait ref) -> + (Update.SetPortrait.apply_to new_model ref) + + (Struct.Event.SelectedArmor ref) -> + (Update.SetArmor.apply_to new_model ref) + + (Struct.Event.SelectedWeapon ref) -> + (Update.SetWeapon.apply_to new_model ref) + + (Struct.Event.SelectedGlyph ref) -> + (Update.SetGlyph.apply_to new_model ref) + + (Struct.Event.SelectedGlyphBoard ref) -> + (Update.SetGlyphBoard.apply_to new_model ref) diff --git a/src/roster-editor/src/Struct/Event.elm b/src/roster-editor/src/Struct/Event.elm index b9e921c..f3dce39 100644 --- a/src/roster-editor/src/Struct/Event.elm +++ b/src/roster-editor/src/Struct/Event.elm @@ -4,10 +4,15 @@ module Struct.Event exposing (Type(..), attempted) import Http -- Roster Editor --------------------------------------------------------------- +import Struct.Armor import Struct.Error -import Struct.ServerReply +import Struct.Glyph +import Struct.GlyphBoard import Struct.HelpRequest +import Struct.Portrait +import Struct.ServerReply import Struct.UI +import Struct.Weapon -------------------------------------------------------------------------------- -- TYPES ----------------------------------------------------------------------- @@ -21,6 +26,12 @@ type Type = | ServerReplied (Result Http.Error (List Struct.ServerReply.Type)) | TabSelected Struct.UI.Tab + | SelectedArmor Struct.Armor.Ref + | SelectedGlyph Struct.Glyph.Ref + | SelectedGlyphBoard Struct.GlyphBoard.Ref + | SelectedPortrait Struct.Portrait.Ref + | SelectedWeapon Struct.Weapon.Ref + attempted : (Result.Result err val) -> Type attempted act = case act of diff --git a/src/roster-editor/src/Update/SetArmor.elm b/src/roster-editor/src/Update/SetArmor.elm new file mode 100644 index 0000000..ee87f60 --- /dev/null +++ b/src/roster-editor/src/Update/SetArmor.elm @@ -0,0 +1,39 @@ +module Update.SetArmor exposing (apply_to) + +-- Elm ------------------------------------------------------------------------- + +-- Roster Editor --------------------------------------------------------------- +import Struct.Armor +import Struct.Error +import Struct.Event +import Struct.Model + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +apply_to : ( + Struct.Model.Type -> + Struct.Armor.Ref -> + (Struct.Model.Type, (Cmd Struct.Event.Type)) + ) +apply_to model ref = + ( + ( + case model.edited_char of + (Just char) -> + {model | + edited_char = + (Just + ) + } + + Nothing -> + ... error + + ), + Cmd.none + ) |