blob: 40119197c1fe963699c68a301253d15563bbcc96 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(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]))
|
