协助翻译JS到CLJS

Question

我在JS中开发了一个简单的节拍器，作为一种JS练习，也不再需要。它可以在这里找到：https://github.com/Greduan/js-metronome/blob/master/js/main.js

我在一定程度上把它翻译成CLJS：

(ns mies-2.core
  (:use 'createjs.Sound))

(def assetsPath "assets/")
(def manifest [{:src "Click1.ogg|Click1.mp3" :id 1} {:src "Click2.ogg|Click2.mp3" :id 2}])

(.registerManifest createjs/Sound [manifest assetsPath])

(defn stop []
  ((js/clearInterva(intervalID))
   (.stop createjs/Sound [])
   (.log js/console "Stopped sound(s).")))

(defn playSound [target]
  ;                                           v FIX
  ((def instance (.play createjs/Sound [target.id (.INTERRUPT_NONE createjs/Sound []) 0 0 false 1]))
  ;                                 v FIX
  (or (== instance nil) (== instance.playState (.PLAY_FAILED createjs/Sound)) nil)
  (.log js/console ["Played sound ID:" target.id])))

(defn soundLoop [soundID]
  ;                                                             v FIX
  ((def bpmInput (.querySelector js/document ["[name=\"bpm\"]"] .value))
   (def bpm (/ 60000 bpmInput))
   (.log js/console ["Input:" bpmInput "Delay:" bpm])
   (def intervalID (js/setInterval [fn [] (playSound [soundID]) bpm]))))

在FIX的评论中，我指出了我需要帮助的地方。:)

基本上是建立了一个thing.function.value系统或类似的系统，特别是将document.querySelector('[name="bpm"]').value翻译成CLJS。

而变量，有一个variable.value系统，我如何用CLJS实现这一点呢？

把我指引到正确的方向已经足够了，我非常感激。:)

Answer 1

我已经将您的js应用程序转换为cljs，并创建了一个存储库：https://github.com/edbond/cljs-metronome，如果它不适合您，请告诉我。