1

我正在为列表框逻辑编写网络描述。
这真的很简单：我对 ( Maybe) 当前选定的项目有一个行为，并且我想要它，以便每当用户向列表中添加新项目时，当前选定的项目将选择刚刚创建的值。

用户也可能从列表中删除项目，并导致各种其他更改，因此我必须知道何时创建新项目；我不能只选择每次更改的最后一项。

我真的没有任何代码可以显示它，因为我对要做什么的所有猜测甚至都不能用 API* 编写，但我有Frameworks t和（简化）的上下文：

bDb :: Behavior t [Entry] -- Created with accumB.
bSelected :: Behavior t (Maybe Entry) -- Created with accumB.
eAddEntry :: Event t () -- User clicked an add button. Created with fromAddHandler.

* 好吧，我确实考虑过使用eAddEntry来选择最后一个条目，但这太糟糕了，即使它会起作用，它也只是添加新项目和选择它之间的竞赛。

我该怎么办？

4

1 回答 1

2

我在评论中尝试了仙人掌的建议，结果证明它无法完成（我必须在选择行为和列表行为所在的块changes中间绑定let，但它们相互依赖） .

所以我决定从头开始，但这次做得过头了，将整个状态包装在它自己的数据类型中，网络只会驱动它。所以网络真正要做的就是根据事件调用网络上的函数，仅此而已。结果证明它比 imo 好得多，因为没有应用式的混乱，所有的功能实际上只是简单的功能，而且它更加模块化（例如，我可以决定根本不使用 FRP，并且更改将非常小 - - 只需使用功能切换触发；虽然我仍然必须找到放置状态的位置，这可能是不纯的东西，例如IORef）。

它非常干净，看起来类似于以下内容：

data DbState = DbState Database SelectedItem LastAction Etc Etc
emptyState :: DbState
stateRemove, stateAdd :: DbState -> DbState

行为就是：

let bDb = accumB emptyState $ unions
      [stateAdd <$ eAddEntry
      ,stateRemove <$ eRemoveEntry
      ]

之前，我的长度线都充满了 lambda、<$>、<*>等。

而现在我只是rectimate'通过它看到了变化LastAction。
我还非常简单地添加了错误检查。

于 2015-07-02T05:56:28.077 回答