#lang racket

(provide measurements-formlet
         targets-formlet
         fertilizer-formlet)

(require gregor
         web-server/http
         web-server/formlets
         "models/nutrient.rkt"
         "models/crop.rkt"
         "models/crop-requirement.rkt")

(define date-formlet
  (to-string (required (input #:type "date"
                              #:value (date->iso8601 (today))
                              #:attributes '((class "form-control") [required "required"])))))

(define (nutrient-value-formlet nutrient)
  (define id (nutrient-id nutrient))
  (define number-input
    (input #:type "number"
           #:attributes `((class "form-control") [id ,(number->string id)]
                                                 [step "0.1"]
                                                 [placeholder ,(nutrient-name nutrient)])))
  (define input-label
    `(label ((for ,(number->string id)
               ))
            ,(nutrient-name nutrient)))
  (formlet (#%# (div ((class "form-floating mb-3")) ,{=> number-input nutrient-value-b} ,input-label))
           (let ([nutrient-value (string->number (bytes->string/utf-8
                                                  (binding:form-value nutrient-value-b)))])
             (and nutrient-value (cons nutrient nutrient-value)))))

(define (measurements-formlet)
  (formlet* (#%# `(div ((class "mb-3")) (h5 "Date du relevé") ,{=>* date-formlet measured-on*})
                 `(div ((class "mb-3"))
                       (h5 "Valeurs du relevé")
                       ,@(for/list ([nutrient (get-nutrients)])
                           {=>* (nutrient-value-formlet nutrient) measurements*}))
                 {=>* (submit "Enregistrer le relevé" #:attributes '((class "btn btn-primary"))) _})
            (let ([measured-on (first measured-on*)]
                  [nutrient-values (for/hash ([nv (in-list (filter pair? measurements*))])
                                     (values (car nv) (cdr nv)))])
              (values measured-on nutrient-values))))

(define (crop-requirement-formlet requirement)
  (define id (crop-requirement-id requirement))
  (define profile (crop-requirement-profile requirement))
  (define maybe-crop (crop-requirement-crop-id requirement))
  (define crop
    (if maybe-crop
        (crop-name (get-crop #:id maybe-crop))
        #f))
  (define number-input
    (input #:type "number"
           #:attributes `((class "form-control") [id ,(number->string id)]
                                                 [min "0"]
                                                 [max "100"]
                                                 [step "1"]
                                                 [placeholder ,profile])))
  (define input-label
    `(label ((for ,(number->string id)
               ))
            ,(if crop
                 (format "~a (~a)" crop profile)
                 (format "~a" profile))))
  (formlet
   (#%# (div ((class "form-floating mb-3")) ,{=> number-input requirement-percentage-b} ,input-label))
   (let ([requirement-percentage
          (string->number (bytes->string/utf-8 (binding:form-value requirement-percentage-b)))])
     (and requirement-percentage (cons requirement requirement-percentage)))))

(define (targets-formlet)
  (formlet* (#%# `(div ((class "mb-3")) (h5 "Date ciblée") ,{=>* date-formlet effective-on*})
                 `(div ((class "mb-3"))
                       (h5 "Valeurs cibles")
                       ,@(for/list ([requirement (get-crop-requirements)])
                           {=>* (crop-requirement-formlet requirement) requirements*}))
                 {=>* (submit "Enregistrer la cible" #:attributes '((class "btn btn-primary"))) _})
            (let ([effective-on (first effective-on*)]
                  [nutrient-values (average-crop-requirement-nutrient-values (filter pair?
                                                                                     requirements*))])
              (values effective-on nutrient-values))))

(define string-input
  (to-string (required (text-input #:attributes '((class "form-control") [required "required"])))))

(define (fertilizer-formlet)
  (formlet* (#%# `(div ((class "mb-3")) (h5 "Nom de référence") ,{=>* string-input canonical-name*})
                 `(div ((class "mb-3")) (h5 "Nom de marque") ,{=>* string-input brand-name*})
                 `(div ((class "mb-3"))
                       (h5 "Valeurs de l'intrant")
                       ,@(for/list ([nutrient (get-nutrients)])
                           {=>* (nutrient-value-formlet nutrient) nutrient-values*}))
                 {=>* (submit "Enregistrer l'intrant" #:attributes '((class "btn btn-primary"))) _})
            (let ([canonical-name (first canonical-name*)]
                  [nutrient-values (for/hash ([nv (filter pair? nutrient-values*)])
                                     (values (car nv) (cdr nv)))]
                  [brand-name (first brand-name*)])
              (values canonical-name brand-name nutrient-values))))