diff options
Diffstat (limited to 'views.rkt')
| -rw-r--r-- | views.rkt | 23 |
1 files changed, 0 insertions, 23 deletions
@@ -134,29 +134,6 @@ "Ajouter un relevé")) ,table))) -#; -(define (ferti-targets-page latest-measurement-hash latest-target-hash) - (define table - `(table ((class "table")) - (thead (tr (th "Nutriment") - (th ((class "text-end")) "Dernier Relevé") - (th ((class "text-end")) "Dernière Cible"))) - (tbody ,@(for/list ([n (get-nutrients)]) - (define latest-measurement (hash-ref latest-measurement-hash n #f)) - (define latest-target (hash-ref latest-target-hash n #f)) - `(tr (td ,(nutrient-french-name n)) - (td ((class "text-end font-monospace")) - ,(if latest-measurement - (round 2 latest-measurement) - "—")) - (td ((class "text-end font-monospace")) - ,(if latest-target - (round 2 latest-target) - "—"))))))) - (ferti-template `((h2 () "Dernière Cible") - (a ((class "btn btn-primary mb-3") [href "/ferti/target/new"]) "Créer une cible") - ,table))) - (define (ferti-recipe-page recipe-date fertilizer-recipe) (define table `(table ((class "table")) |