0

这是一个简单的 re-frame 应用程序,我尝试根据 re-frame 的 github repo 中的现有示例项目创建它。但它只显示 html 文件中的内容。似乎没有发送任何事件。谁能指出我做错了什么?谢谢。

(ns simple.core
  (:require [reagent.core :as reagent]
            [re-frame.core :as rf]
            [clojure.string :as str]))

(rf/reg-event-db
  :rand
  (fn [db [_ _]]
    (assoc db :winner ( + 2 (rand-int 3)))))

(rf/reg-sub
  :winner
  (fn [db _]
    (:winner db)))

(def participants ["Alice" "Bob" "Ellie"])

(defn winners-name
  [idx]
  (get participants idx))

(defn show-winner 
  []
  [:h1
   (winners-name
    (@(rf/subscribe [:winner])))])

(defn ui
  []
  [:div
   [:h1 "Lottery"]
   [show-winner]])

(defn ^:export run
  []
  (rf/dispatch-sync [:rand])
  (reagent/render [ui]
                  (js/document.getElementById "app")))
4

2 回答 2

2

处理程序将:rand产生 nil 大多数时间,因为您将 2 添加到生成的值并且participants向量只有 3 个条目。

于 2017-08-18T13:37:04.857 回答
1

该问题是由于围绕deref事物的一对额外括号引起的。因此,该函数winners-name将其视为列表而不是整数。

(winners-name
  (@(rf/subscribe [:winner]))
于 2017-08-18T15:11:31.043 回答