summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/shared/battle/Battle/View/Attribute.elm')
-rw-r--r--src/shared/battle/Battle/View/Attribute.elm179
1 files changed, 0 insertions, 179 deletions
diff --git a/src/shared/battle/Battle/View/Attribute.elm b/src/shared/battle/Battle/View/Attribute.elm
deleted file mode 100644
index 091f3c3..0000000
--- a/src/shared/battle/Battle/View/Attribute.elm
+++ /dev/null
@@ -1,179 +0,0 @@
-module Battle.View.Attribute exposing
- (
- get_html,
- get_all_html,
- get_signed_html,
- get_all_signed_html
- )
-
--- Elm -------------------------------------------------------------------------
-import Html
-import Html.Attributes
-import Html.Events
-
--- Battle ----------------------------------------------------------------------
-import Battle.Struct.Attributes
-
--- Local Module ----------------------------------------------------------------
-import Struct.Event
-import Struct.HelpRequest
-
---------------------------------------------------------------------------------
--- LOCAL -----------------------------------------------------------------------
---------------------------------------------------------------------------------
-
---------------------------------------------------------------------------------
--- EXPORTED --------------------------------------------------------------------
---------------------------------------------------------------------------------
-get_html : (
- Battle.Struct.Attributes.Category ->
- Int ->
- (Html.Html Struct.Event.Type)
- )
-get_html attribute value =
- (Html.div
- [
- (Html.Events.onClick
- (Struct.Event.RequestedHelp
- (Struct.HelpRequest.Attribute attribute)
- )
- )
- ]
- [
- (Html.div
- [
- (Html.Attributes.class "omnimod-icon"),
- (Html.Attributes.class
- (
- "omnimod-icon-"
- ++ (Battle.Struct.Attributes.encode_category attribute)
- )
- )
- ]
- [
- ]
- ),
- (Html.div
- [
- (Html.Attributes.class "omnimod-value")
- ]
- [
- (Html.text (String.fromInt value))
- ]
- )
- ]
- )
-
-get_signed_html : (
- Battle.Struct.Attributes.Category ->
- Int ->
- (Html.Html Struct.Event.Type)
- )
-get_signed_html attribute value =
- (Html.div
- [
- (
- if (value < 0)
- then (Html.Attributes.class "omnimod-negative")
- else (Html.Attributes.class "omnimod-positive")
- ),
- (Html.Events.onClick
- (Struct.Event.RequestedHelp
- (Struct.HelpRequest.Attribute attribute)
- )
- )
- ]
- [
- (Html.div
- [
- (Html.Attributes.class "omnimod-icon"),
- (Html.Attributes.class
- (
- "omnimod-icon-"
- ++ (Battle.Struct.Attributes.encode_category attribute)
- )
- )
- ]
- [
- ]
- ),
- (Html.div
- [
- (Html.Attributes.class "omnimod-value")
- ]
- [
- (Html.text
- (
- if (value > 0)
- then ("+" ++ (String.fromInt value))
- else (String.fromInt value)
- )
- )
- ]
- )
- ]
- )
-
-get_all_html : (
- Battle.Struct.Attributes.Type ->
- (List (Html.Html Struct.Event.Type))
- )
-get_all_html atts =
- [
- (get_html
- Battle.Struct.Attributes.Constitution
- (Battle.Struct.Attributes.get_constitution atts)
- ),
- (get_html
- Battle.Struct.Attributes.Strength
- (Battle.Struct.Attributes.get_strength atts)
- ),
- (get_html
- Battle.Struct.Attributes.Dexterity
- (Battle.Struct.Attributes.get_dexterity atts)
- ),
- (get_html
- Battle.Struct.Attributes.Speed
- (Battle.Struct.Attributes.get_speed atts)
- ),
- (get_html
- Battle.Struct.Attributes.Intelligence
- (Battle.Struct.Attributes.get_intelligence atts)
- ),
- (get_html
- Battle.Struct.Attributes.Mind
- (Battle.Struct.Attributes.get_mind atts)
- )
- ]
-
-get_all_signed_html : (
- Battle.Struct.Attributes.Type ->
- (List (Html.Html Struct.Event.Type))
- )
-get_all_signed_html atts =
- [
- (get_signed_html
- Battle.Struct.Attributes.Constitution
- (Battle.Struct.Attributes.get_constitution atts)
- ),
- (get_signed_html
- Battle.Struct.Attributes.Strength
- (Battle.Struct.Attributes.get_strength atts)
- ),
- (get_signed_html
- Battle.Struct.Attributes.Dexterity
- (Battle.Struct.Attributes.get_dexterity atts)
- ),
- (get_signed_html
- Battle.Struct.Attributes.Speed
- (Battle.Struct.Attributes.get_speed atts)
- ),
- (get_signed_html
- Battle.Struct.Attributes.Intelligence
- (Battle.Struct.Attributes.get_intelligence atts)
- ),
- (get_signed_html
- Battle.Struct.Attributes.Mind
- (Battle.Struct.Attributes.get_mind atts)
- )
- ]