Compondo um Sistema

Estado é difícil. Não à toa vemos em linguagens funcionais uma panacea para nossos problemas, já que tratam da separação do domínio de negócio daquilo que é incidental ao problema. É inevitável porém manter estas variantes, logo devemos aprender a trabalhar efetivamente com elas afim de construir qualquer aplicação não trivial. Vamos estudar como estruturar estas variáveis e compor nossa arquitetura em cima de camadas funcionais, promovendo a iteratividade e agilidade de nosso fluxo de trabalho.

Transcript

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