[Racket] Ferti hydroponic nutrient solver, redux.

raco fmt.

Commit
80f52e08592f97195e708e4f76d16a70aaf7ac14
Author
Marius Peter <dev@marius-peter.com>
Author date
Committer
Marius Peter <dev@marius-peter.com>
Committer date
Changed files
main.rkt
index bc670e66..0eb1b3e6 100644..100644
@@ -9,7 +9,7 @@
9 9
10 10 (define-runtime-path development-db-path "storage/development.sqlite3")
11 11 (module+ main
12 Removed: (connect! #:path development-db-path)
13 Removed: (migrate-all!)
14 Removed: (seed-database!)
15 Removed: (serve/dispatch (secured-dispatch)))
12 Added: (connect! #:path development-db-path)
13 Added: (migrate-all!)
14 Added: (seed-database!)
15 Added: (serve/dispatch (secured-dispatch)))
views.rkt
index b61842d0..c852540b 100644..100644
@@ -100,23 +100,23 @@
100 100 `(p "La recette Ferti requiert au moins un relevé et une cible."))))
101 101
102 102 (define (ferti-targets latest-measurement-hash latest-target-hash)
103 Removed: `((h2 () "Dernière Cible")
104 Removed: (table ((class "table"))
105 Removed: (tr (th "Nutriment")
106 Removed: (th ((class "text-end")) "Dernier Relevé")
107 Removed: (th ((class "text-end")) "Dernière Cible"))
108 Removed: ,@(for/list ([n (get-nutrients)])
109 Removed: (define latest-measurement (hash-ref latest-measurement-hash n #f))
110 Removed: (define latest-target (hash-ref latest-target-hash n #f))
111 Removed: `(tr (td ,(nutrient-french-name n))
112 Removed: (td ((class "text-end font-monospace"))
113 Removed: ,(if latest-measurement
114 Removed: (round 2 latest-measurement)
115 Removed: "—"))
116 Removed: (td ((class "text-end font-monospace"))
117 Removed: ,(if latest-target
118 Removed: (round 2 latest-target)
119 Removed: "—")))))))
103 Added: `((h2 () "Dernière Cible") (table ((class "table"))
104 Added: (tr (th "Nutriment")
105 Added: (th ((class "text-end")) "Dernier Relevé")
106 Added: (th ((class "text-end")) "Dernière Cible"))
107 Added: ,@(for/list ([n (get-nutrients)])
108 Added: (define latest-measurement
109 Added: (hash-ref latest-measurement-hash n #f))
110 Added: (define latest-target (hash-ref latest-target-hash n #f))
111 Added: `(tr (td ,(nutrient-french-name n))
112 Added: (td ((class "text-end font-monospace"))
113 Added: ,(if latest-measurement
114 Added: (round 2 latest-measurement)
115 Added: "—"))
116 Added: (td ((class "text-end font-monospace"))
117 Added: ,(if latest-target
118 Added: (round 2 latest-target)
119 Added: "—")))))))
120 120
121 121 (define (ferti-measurements measurements)
122 122 `((h2 () "Relevés") (table ((class "table table-striped"))