NodeJS + Node Multimeter in Clojurescript

meter.cljs

(ns cljs-demo.multimeter
  (:require [cljs.nodejs :as node]))

(def multimeter (node/require "multimeter"))

(defn start [& _]
  (let [multi (multimeter. node/process)]
    (. multi (on "^C"
                 #((. (.charm multi) (cursor true))
                   (.. multi (write "\n") (destroy))
                   (. node/process (exit)) )))
    (. (.charm multi) (cursor false))
   
    (. multi (drop (fn [bar] 
                     (def iv (js/setInterval
                               #(let [p (. bar (percent))]
                                  (. bar (percent (+ p 1)))
                                  (if (>= p 100)
                                    (do
                                      (js/clearInterval. iv)
                                      (. (.charm multi) (cursor true))
                                      (.. multi (write "\n") (destroy)))) )
                               25)))) )))

(set! *main-cli-fn* start)