(ns unheard.clock
  (:require [missionary.core :as m]))

(defn clock
  "Returns a tuple of [`>clock` `clock`].
  `clock` is an atom representing the current time.
  `>clock` is a signal representing the current time."
  []
  (let [clock (atom 0)
        >clock (m/signal (m/watch clock))]
    [>clock clock]))