Dependency management in Clojure -- long version

Slide 1

Slide 1 text

No content

Slide 2

Slide 2 text

No content

Slide 3

Slide 3 text

No content

Slide 4

Slide 4 text

No content

Slide 5

Slide 5 text

No content

Slide 6

Slide 6 text

No content

Slide 7

Slide 7 text

defn :refer :refer :all

Slide 8

Slide 8 text

No content

Slide 9

Slide 9 text

No content

Slide 10

Slide 10 text

No content

Slide 11

Slide 11 text

No content

Slide 12

Slide 12 text

No content

Slide 13

Slide 13 text

No content

Slide 14

Slide 14 text

(ns playitloud.ui-player (:require [playitloud.simple-player :refer [play]])) (defn play-pressed [randomize] (println "User pressed play") (play randomize))

Slide 15

Slide 15 text

(ns playitloud.ui-player (:require [playitloud.simple-player :refer [play]])) (defn play-pressed [randomize] (println "User pressed play") (play randomize)) (ns playitloud.simple-player (:require [playitloud.speaker :refer [blare]] [playitloud.musiccoll :refer [get-songs]])) (defn play [randomize] (let [songs (get-songs) songs (if randomize (shuffle songs) songs)] (map (fn [song] (blare song)) songs)))

Slide 16

Slide 16 text

Slide 17

Slide 17 text

speaker musiccoll

Slide 18

Slide 18 text

No content

Slide 19

Slide 19 text

(ns playitloud.ho.player) (defn play [blarefn songgetterfn randomize] (let [songs (songgetterfn) songs (if randomize (shuffle songs) songs)] (map (fn [song] (blarefn song)) songs)))

Slide 20

Slide 20 text

(ns playitloud.ho.player) (defn play [blarefn songgetterfn randomize] (let [songs (songgetterfn) songs (if randomize (shuffle songs) songs)] (map (fn [song] (blarefn song)) songs))) ; --------------------------------------------------- (ns playitloud.ho.ui-player (:require [playitloud.ho.player :as ho :refer [play]] [playitloud.speaker :as speaker] [playitloud.headphone :as headphone] [playitloud.blue-streamer :as streamer] [playitloud.musiccoll :refer [get-songs]])) (defn play-pressed [speaker randomize] (println "User pressed play") (condp = speaker :speaker (play speaker/blare get-songs randomize) :headphone (play headphone/blare get-songs randomize) :stream (play streamer/blare get-songs randomize)))

Slide 21

Slide 21 text

No content

Slide 22

Slide 22 text

(defn make-playfn "Returns a function that will play all songs" [blarefn songgetterfn] (fn ; Plays all songs, potentially randomized [randomize] (let [songs (songgetterfn) songs (if randomize (shuffle songs) songs)] (map (fn [song] (blarefn song)) songs))))

Slide 23

Slide 23 text

No content

Slide 24

Slide 24 text

(ns playitloud.ho.play-config [...] (def speaker-play (make-playfn speaker/blare get-songs)) (def headphone-play (make-playfn headphone/blare get-songs)) (def stream-play (make-playfn streamer/blare get-songs)) (defn select-playfn [speaker] (condp = speaker :speaker speaker-play :headphone headphone-play :stream stream-play)) (ns playitloud.ho.clos-ui-player (:require [playitloud.ho.play-config :refer [select-playfn]])) (defn play-pressed [output randomize] (let [playfn (select-playfn output)] (playfn randomize)))

Slide 25

Slide 25 text

No content

Slide 26

Slide 26 text

(ns playitloud.services.config) (def ^:dynamic *services* {:blare playitloud.speaker/blare :get-songs playitloud.musiccoll/get-songs})

Slide 27

Slide 27 text

(ns playitloud.services.config) (def ^:dynamic *services* {:blare playitloud.speaker/blare :get-songs playitloud.musiccoll/get-songs}) (ns playitloud.services.player (:require [playitloud.services.config :refer [*services*]])) (defn- blare [sound] ((:blare *services*) sound)) (defn- get-songs [] ((:get-songs *services*)))

Slide 28

Slide 28 text

Slide 29

Slide 29 text

*services*

Slide 30

Slide 30 text

(ns playitloud.sig.output-device (:require [de.find-method.funsig :refer [defsig]])) (defsig blare "Play sound loudly!" [sound])

Slide 31

Slide 31 text

Slide 32

Slide 32 text

(ns playitloud.sig.output-device (:require [de.find-method.funsig :refer [defsig]])) (defsig blare "Play sound loudly!" [sound]) (ns playitloud.sig.speaker (:require [de.find-method.funsig :refer [defimpl]] [playitloud.sig.output-device :refer [blare]])) (defimpl blare [sound] (let [result (str "Speaker plays " sound)] (println result) result)) (ns playitloud.sig.player (:require [playitloud.sig.output-device :refer [blare]] [playitloud.musiccoll :as mc :refer [get-songs]])) (defn play [randomize] (let [songs (get-songs) songs (if randomize (shuffle songs) songs)] (map (fn [song] (blare song)) songs)))

Slide 33

Slide 33 text

No content

Slide 34

Slide 34 text

(ns playitloud.di.config (:require [clj-di.core :refer [register!]] [playitloud.speaker :as speaker :refer [blare]])) (register! :blare blare) ; --------------------------------------------------- (ns playitloud.di.player (:require [clj-di.core :refer [get-dep]] [playitloud.musiccoll :refer [get-songs]])) (defn play [randomize] (let [blarefn (get-dep :blare) ; <-- get dependency songs (get-songs) songs (if randomize (shuffle songs) songs)] (map (fn [song] (blarefn song)) songs)))

Slide 35

Slide 35 text

with-registered

Slide 36

Slide 36 text

(ns playitloud.proto.output-device) (defprotocol OutputDevice (blare [device sound]) (inc-volume [device]) (dec-volume [device])) (ns playitloud.proto.speaker (:require [playitloud.proto.output-device :as output :refer :all])) (defrecord Speaker [volume] OutputDevice (blare [_ sound] (let [result (str "Speaker plays " sound)] (println result) result)) ;[...]

Slide 37

Slide 37 text

(ns playitloud.proto.player (:require [playitloud.proto.output-device :as output] [playitloud.musiccoll :as mc])) (defn play [output-device randomize] (let [songs (mc/get-songs) songs (if randomize (shuffle songs) songs)] (map (fn [song] (output/blare output-device song)) songs)))

Slide 38

Slide 38 text

No content

Slide 39

Slide 39 text

No content

Slide 40

Slide 40 text

No content

Slide 41

Slide 41 text

(ns playitloud.multi.output-device) (defmulti blare "Play sounds on an output device" (fn [device sound] device))

Slide 42

Slide 42 text

Slide 43

Slide 43 text

(ns playitloud.multi.output-device) (defmulti blare "Play sounds on an output device" (fn [device sound] device)) (ns playitloud.multi.speaker (:require [playitloud.multi.output-device :refer [blare]])) (defmethod blare :speaker [device song] (let [result (str "Speaker plays " song)] (println result) result)) (ns playitloud.multi.headphone (:require [playitloud.multi.output-device :refer [blare]])) (defmethod blare :headphone [device song] (let [result (str "Headphone plays " song)] (println result) result))

Slide 44

Slide 44 text

(ns playitloud.multi.player (:require [playitloud.multi.output-device :refer [blare]] [playitloud.musiccoll :as mc])) (defn play [output-device randomize] (let [songs (mc/get-songs) songs (if randomize (shuffle songs) songs)] (map (fn [song] (blare output-device song)) songs))) (ns playitloud.multi.ui (:require [playitloud.multi.player :as player :refer [play]])) (defn play-pressed [output-selection randomize] (println "User pressed play") (play output-selection randomize))

Slide 45

Slide 45 text

defmulti

Slide 46

Slide 46 text

No content

Slide 47

Slide 47 text

No content

Slide 48

Slide 48 text

No content

Slide 49

Slide 49 text

(ns playitloud.closure-streamer) (defn blare [connection-config] (let [connection (connect connection-config " closure streamer")] (fn [noise] (let [result (str "Streaming " noise " to " connection)] (println result) (transmit connection noise) result))))

Slide 50

Slide 50 text

No content

Slide 51

Slide 51 text

(ns playitloud.dynvar.config) (def ^:dynamic *streamer* {:connection ; [...]}) (ns playitloud.dynvar.streamer (:require [playitloud.dynvar.config :as config])) (defn blare [noise] (let [result (str "Streaming " noise " to " config/*connection*)] (transmit (:connection config/*streamer* noise) result)))

Slide 52

Slide 52 text

with-... binding map

Slide 53

Slide 53 text

No content

Slide 54

Slide 54 text

(ns playitloud.comp.streamer (:require [com.stuartsierra.component :as component] [playitloud.comp.output-device :as output :refer :all] [playitloud.comp.remote-connection :as remote])) (defrecord BlueStreamer [connection volume] OutputDevice (blare [streamer sound] ;... normal protocol/record implementation ...) component/Lifecycle (start [streamer] (println "BlueStreamer starting") (connect (:connection streamer) streamer) (assoc streamer :status :connected)) (stop [streamer] (println "BlueStreamer stopping") (disconnect (:connection streamer) streamer) (->> (assoc streamer :status :disconnected) (dissoc :connection)))) (defn new-blue-streamer [config] (->BlueStreamer nil (:default-volume config)))

Slide 55

Slide 55 text

(ns playitloud.comp.player (:require [com.stuartsierra.component :as component] [playitloud.comp.output-device :as output] [playitloud.musiccoll :as mc])) (defrecord Player [output-device] component/Lifecycle (start [player] (println "Player started with " "output-device " (:output-device player)) player) (stop [player] (println "Player stopped") player)) (defn play [player randomize] (let [songs (mc/get-songs) songs (if randomize (shuffle songs) songs)] (map (fn [song] (output/blare (:output-device player) song)) songs))) (defn new-player [] (->Player nil))

Slide 56

Slide 56 text

(ns playitloud.comp.config (:require [com.stuartsierra.component :as component] [playitloud.comp.blue-connection :as blueconn] [playitloud.comp.streamer :as streamer] [playitloud.comp.player :as player])) (def default-config {:bt-conn {:name "Fabuluous-Connectivity" :port "1234"} :default-volume 5}) (defn make-player-system "Setup the player system" ([] (make-player-system default-config)) ([config] (component/system-map :connection (blueconn/new-connection config) :output-device (component/using (streamer/new-blue-streamer config) [:connection]) :player (component/using (player/new-player) [:output-device]))))

Slide 57

Slide 57 text

fun-a A fun-b fun-a A B B A

Slide 58

Slide 58 text

No content

Slide 59

Slide 59 text

:require :refer

Slide 60

Slide 60 text

(ns playitloud.mount.streamer (:require [mount.core :refer [defstate]] [playitloud.mount.connection :refer [conn transmit send-command]])) (defn create-streamer [connection] (println "Connecting to connection ..." connection) {:connection connection}) (defstate streamer :start (create-streamer conn)) (defn blare [streamer sound] (let [result (str "Will stream " sound " to " (:connection streamer))] (println result) (transmit conn sound) result))

Slide 61

Slide 61 text

Slide 62

Slide 62 text

(ns playitloud.mount.player (:require [mount.core :refer [defstate]] [playitloud.mount.streamer :refer [streamer blare]] [playitloud.musiccoll :as mc])) (defn create-player [streamer] (println "Will use streamer " streamer) {:streamer streamer}) (defstate player :start (create-player streamer)) (defn play [randomize] (let [songs (mc/get-songs) songs (if randomize (shuffle songs) songs)] (map (fn [song] (blare (:streamer player) song)) songs))) (facts "Handling state with mount" (with-state-changes [(before :facts (mount/start)) (after :facts (mount/stop))] (fact "We can play over the configured device" (play false) => (just ["Will stream David Bowie -- Blackstar " ; ...