core.clj

(ns playground.core
  (:gen-class))

(defn -main
  "I don't do a whole lot ... yet."
  [& args]
  (println "Hello, World!"))

(defprotocol Componente
  (start! [component])
  (stop! [component]))

(defrecord MeuConfig [valores]
  Componente
  (start! [self]
    (println "valores")
    (println (:valores self))))

(defrecord S3config [config-atom s3-client]
  Componente
  (start! [self]
    #_(assert! (:s3-client self))
    (swap! config-atom {})))

(defrecord DummyConfig []
  Componente
  (start! [_]
    true))

(defrecord FailConfig []
  Componente
  (start! [self]
    (throw (Exception. "Deu ruim"))))

(defn new-s3-config []
  (S3config. (atom {})))

(defn usando [component deps]
  {:componente component
   :deps       deps})

(def prod-map {:config    (usando (new-s3-config) [:s3-client])
               :s3-client (new-s3-client)})

(defn system-start [system-map]
  (filter :deps system-map)
  (doseq [componente (vals system-map)]
    (start! componente)))

(system-start prod-map)

(system-start test-map)

(def test-map {:config (DummyConfig.)})



(def my-comp (S3Config. 1))

(def s3-raw (s3client.))
(def s3-config (start! s3-raw))

(def my-comp-with-config
  (assoc my-comp :s3-config s3-config))

(start! my-comp-with-config)