Link
Embed
Share
Beginning
This slide
Copy link URL
Copy link URL
Copy iframe embed code
Copy iframe embed code
Copy javascript embed code
Copy javascript embed code
Share
Tweet
Share
Tweet
Slide 1
Slide 1 text
COMPONDO! UM! SISTEMA
Slide 2
Slide 2 text
No content
Slide 3
Slide 3 text
INTERATIVIDADE
Slide 4
Slide 4 text
TESTABILIDADE
Slide 5
Slide 5 text
FLEXIBILIDADE
Slide 6
Slide 6 text
?
Slide 7
Slide 7 text
f(x) → y
Slide 8
Slide 8 text
x → ✨ → y
Slide 9
Slide 9 text
{:users #{}}
Slide 10
Slide 10 text
{:name "John Doe" :email "john@example.com"}
Slide 11
Slide 11 text
✨ cadastro ✨
Slide 12
Slide 12 text
{:users #{{:name "John Doe" :email "john@example.com"}}}
Slide 13
Slide 13 text
DOMÍNIO
Slide 14
Slide 14 text
{:title "Programing is Fn!" :body "..." :date #inst "2016-05-14" :tags #{:tech :clojure}}
Slide 15
Slide 15 text
[{:title "How to Clojure"} {:title "Programing is Fn!"} {:title "Embracing Lisp"}]
Slide 16
Slide 16 text
{:tech #{{:title "A"} {:title "B"}} :clojure #{{:title "B"}} :web #{{:title "A"} {:title "C"}}}
Slide 17
Slide 17 text
N
Slide 18
Slide 18 text
(transform input-data)
Slide 19
Slide 19 text
(->> input-data (normalize) (transform) (serialize))
Slide 20
Slide 20 text
(->> input-data (data/normalize) (data/transform) (json/serialize))
Slide 21
Slide 21 text
No content
Slide 22
Slide 22 text
FUNÇÕES PURAS
Slide 23
Slide 23 text
aka, ✨
Slide 24
Slide 24 text
(calculate-total order) ;; => order com total
Slide 25
Slide 25 text
(deftest test-compute-order-total (let [order {:items [{:price 42.0} {:price 72.0}]}] (is (= (-> (calculate-total order) (:total)) 114.0))))
Slide 26
Slide 26 text
(defn process-order [order] (-> order (calculate-shipping) (calculate-total) (include-gift)))
Slide 27
Slide 27 text
No content
Slide 28
Slide 28 text
(defn handler [{:keys [params]}] (->> (find-order (:id params)) (process-order) (render-response)))
Slide 29
Slide 29 text
(defn subscriber [payload] (->> (parse-order payload) (process-order) (send-order-email)))
Slide 30
Slide 30 text
(defn worker [file] (->> (orders-from file) (pmap process-order) (update-cache)))
Slide 31
Slide 31 text
No content
Slide 32
Slide 32 text
No content
Slide 33
Slide 33 text
EFEITOS
Slide 34
Slide 34 text
DI & POLIMORFISMO
Slide 35
Slide 35 text
(send-welcome-mail customer)
Slide 36
Slide 36 text
(defn send-welcome-mail [{:keys [name email]}] (send-mail mailer-config email (str "Bem-vindo " name "!"))
Slide 37
Slide 37 text
(defn send-welcome-mail [{:keys [name email]}] (send-mail mailer-config email (str "Bem-vindo " name "!"))
Slide 38
Slide 38 text
(defn send-welcome-mail [mailer {:keys [name email]}] (send-mail mailer email (str "Bem-vindo " name "!"))
Slide 39
Slide 39 text
(defprotocol Mailer (send-mail [this address body])
Slide 40
Slide 40 text
(defrecord WebMailer [endpoint api-key] Mailer (send-mail [this address body] ;; envia através de serviço )
Slide 41
Slide 41 text
(defrecord StubMailer [sent] Mailer (send-mail [this address body] ;; armazena email em sent )
Slide 42
Slide 42 text
(deftest test-sign-up-email (let [user {:email "user@mail.com"} mailer (stub-mailer)] (sign-up-email mailer user) (is (= (:last-email mailer) {:to "user@mail.com" :body "Welcome!"}))
Slide 43
Slide 43 text
(deftest test-sign-up-email (let [user {:email "user@mail.com"} mailer (stub-mailer)] (sign-up-email mailer user) (is (= (:last-email mailer) {:to "user@mail.com" :body "Welcome!"}))
Slide 44
Slide 44 text
No content
Slide 45
Slide 45 text
No content
Slide 46
Slide 46 text
No content
Slide 47
Slide 47 text
(def server (start-server!))
Slide 48
Slide 48 text
java.net.BindException: Address already in use
Slide 49
Slide 49 text
RUNTIME
Slide 50
Slide 50 text
COMPONENT com.stuartsierra/component
Slide 51
Slide 51 text
(defrecord WebMailer [endpoint api-key]) ! (defn make-mailer [config] (map->WebMailer config))
Slide 52
Slide 52 text
(defrecord Database [db-spec] component/Lifecycle (start [component] (assoc component :conn (make-conn! db-spec)) (stop [component] (release! (:conn component)) component) ! (defn make-database [db-spec] (->Database db-spec))
Slide 53
Slide 53 text
(defrecord WebApp [db mailer] component/Lifecycle (start [component] (assoc component :handler (app-routes db mailer))) (stop [component] component)) ! (defn make-web-app [] (->WebApp))
Slide 54
Slide 54 text
No content
Slide 55
Slide 55 text
No content
Slide 56
Slide 56 text
(defn new-system [] (component/system-map :db (make-database {:url "..."}) :mailer (make-mailer {:endpoint "..." :api-key "..."} :web-app (component/using (make-web-app) [:db :mailer])))
Slide 57
Slide 57 text
(component/start (new-system))
Slide 58
Slide 58 text
No content
Slide 59
Slide 59 text
(defn new-system [] (merge (new-web-system) (new-worker-system)))
Slide 60
Slide 60 text
(defn new-system [] (let [evs (async/chan)] (merge (new-web-system evs) (new-worker-system evs))))
Slide 61
Slide 61 text
No content
Slide 62
Slide 62 text
(defn dev-system [] (-> (new-system) (assoc :mailer (stub-mailer)) (assoc :migrator (db-migrator))))
Slide 63
Slide 63 text
No content
Slide 64
Slide 64 text
DADOS E TRANSFORMAÇÕES
Slide 65
Slide 65 text
RUNTIME MÍNIMO! E GERENCIADO
Slide 66
Slide 66 text
ITERATIVO &! TESTÁVEL &! FLEXÍVEL
Slide 67
Slide 67 text
ANDREW ROSA @_andrewhr
Slide 68
Slide 68 text
OBRIGADO! @_andrewhr
Slide 69
Slide 69 text
REFERÊNCIAS • https://clojure.org • https://github.com/stuartsierra/component • https://github.com/clj-br • Clojure Brasil (Facebook)