Elm - 消息

消息是 Elm 架构中的一个组件。这些组件是由视图根据用户与应用程序界面的交互生成的。消息代表用户更改应用程序状态的请求。

语法

--Message Syntax
type Message = some_message1 |some_message2 ...|some_messageN

图示

以下示例是一个简单的计数器应用程序。当用户分别点击“加”和“减”按钮时，应用程序会将变量的值分别加 1 和减 1。

应用程序将包含 4 个组件。组件描述如下：

消息

此示例的消息将是：

type Message = Add | Subtract

模型

模型表示应用程序的状态。在计数器应用程序中，模型定义如下；计数器的初始状态将为零。

model = 0

视图

视图表示应用程序的可视元素。视图包含两个按钮（+）和（-）。当用户分别点击 + 和 - 按钮时，视图会生成 Add 和 Subtract 消息。然后，视图显示模型的修改后的值。

view model =
-- invoke text function
h1[]
[   div[] [text "CounterApp from TutorialsPoint" ]
   ,button[onClick Subtract] [text "-"]
   ,div[][text (toString model)]
   ,button[onClick Add] [text "+"]
]

更新

此组件包含应为视图生成的每个消息执行的代码。这在下面的示例中显示：

update msg model =
case msg of
Add -> model+1
Subtract -> model-1

整合在一起

步骤 1 - 创建文件夹 MessagesApp 和文件 MessagesDemo.elm

步骤 2 - 在 elm 文件中添加以下代码：

import Html exposing (..)
import Html.Events exposing(onClick)

model = 0 -- Defining the Model

--Defining the View

view model =
   h1[]
   [  div[] [text "CounterApp from TutorialsPoint" ]
      ,button[onClick Subtract] [text "-"]
      ,div[][text (toString model)]
      ,button[onClick Add] [text "+"]
   ]

--Defining the Messages

type Message = Add | Subtract

--Defining Update

update msg model =
case msg of
   Add -> model+1
   Subtract -> model-1

-- Define the main method
main =
   beginnerProgram
   {
      model=model
      ,view=view
      ,update=update
   }

步骤 3 - 在终端中执行 elm make 命令。elm make 命令编译代码并从上面创建的 .elm 文件生成 HTML 文件。

C:\Users\dell\elm\MessagesApp> elm make .\MessageDemo.elm
Some new packages are needed. Here is the upgrade plan.

   Install:
      elm-lang/core 5.1.1
      elm-lang/html 2.0.0
      elm-lang/virtual-dom 2.0.4

Do you approve of this plan? [Y/n] y
Starting downloads...

   ΓùÅ elm-lang/html 2.0.0
   ΓùÅ elm-lang/virtual-dom 2.0.4

ΓùÅ elm-lang/core 5.1.1
Packages configured successfully!
Success! Compiled 38 modules.
Successfully generated index.html

步骤 4 - 打开 index.html 并验证其工作情况，如下所示：