3

我尝试合并两个信号。一个是 Mouse.clicks，另一个是 Keyboard.space。

  • 点击时，我应该从 Mouse.position 获得 Signal(Int,Int) 作为返回值
  • 在太空上，我应该得到一些不同的东西，这样我就可以识别不同的信号被触发了。

我的想法是：

type Event = Click | Space

mergedSignal : Signal Event
mergedSignal = 
  let
    clickSignal = map (\event -> Click) Mouse.clicks
    timeoutSignal = map (\event -> Space) Keyboard.space
  in
    merge clickSignal timeoutSignal

并以某种方式获得位置：

positionOnClickSignal:Signal (Int,Int)
positionOnClickSignal = sampleOn Mouse.clicks Mouse.position

显然，这是错误的。

4

1 回答 1

4

听起来您希望鼠标位置作为事件的一部分继续存在。在这种情况下，您可以重新定义Event为

type Event
  = Click (Int, Int)
  | Space

在您mergedSignal的内部，clickSignal当前只是检查，Mouse.clicks但根据您的描述和其他示例，我认为您实际上希望它基于 off positionOnclickSignal，它为您提供 a Signal (Int, Int)，并且使用它，您现在可以像这样填充事件的(Int, Int)一部分Click (Int, Int)：

clickSignal =
  map Click positionOnClickSignal

你会注意到我去掉了上面的括号。这对 Elm 来说更惯用，因为Click本质上是一个接受一个(Int, Int)参数的函数，该参数将从 map 函数传入。它可以很容易地写成这样：

clickSignal =
  map (\pos -> Click pos) positionOnClickSignal

现在，如果您只是想在屏幕上看到一些调试文本，那么一种快速简便的方法是show从Graphics.Element包中使用。

import Graphics.Element exposing (show)

main =
  map (show << toString) mergedSignal

这将为您提供一些调试文本，作为页面上唯一显示的内容，您可以轻松地将其扔到http://elm-lang.org/try上进行测试。

于 2016-01-13T02:12:15.740 回答