stop_go.clj

(ns scratch.core
  (:require [clojure.core.async :as a]))

(defn start-runner []
  (let [stop (a/chan)]
    (a/go-loop []
      (when (a/alt! stop false :default :keep-going)
        (do (Thread/sleep 1000)
            (println "Running..."))
        (recur)))
    stop))

(comment

  (def stop (start-runner))

  (a/close! stop)

  )