(defmacro reg-label (label &key (id (str:downcase label)))
  `(:label :class "col-12 form-label fw-bold" :for ,id ,(str:concat (str:capitalize label) ":")))

(defmacro reg-input (name &rest attrs &key (class "") (placeholder (str:capitalize name)) (type "text") &allow-other-keys)
  `(:input.input :class ,(str:concat "col-12 form-control rounded-3 " class) :id ,name
                       :type ,type :required "t" :name ,name :placeholder ,placeholder
                       ,@attrs))

(defmacro reg-input-group ((&key (class "")) &body body)
  `(spinneret:with-html
     (:div :class ,(str:concat "input-group row mb-2 " class) :hx-target "this" :hx-swap "outerHTML"
          ,@(loop :for clause :in body
                  :collect (if (keywordp (car clause))
                               clause
                               (macroexpand-1 clause))))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defroute ("/register/email" :method :POST) (&key _parsed)
  ;; check if email is in db and respond with an error, if it's inside db
  ;; otherwise it's fine
  (with-params (email)
   (let ((email-in-db-p (email-in-db-p email)))
     (if email-in-db-p
         (spinneret:with-html-string
           (reg-input-group (:class "position-relative")
             (reg-label "email")
             (reg-input "email" :class "border-danger "
                                :type "email" :placeholder "Email-Addresse"
                                :hx-post "/register/email"
                                :hx-trigger "change"
                                :value email)
             (:span :class "text-danger fw-bold position-absolute top-0 right-0" "Email already in database")))
         (spinneret:with-html-string
           (reg-input-group ()
             (reg-label "email")
             (reg-input  "email" :type "email"
                                 :placeholder "Email-Addresse"
                                 :hx-post "/register/email"
                                 :hx-trigger "change"
                                 :value email)))))))

;;; ERROR WHEN COMPILING DEFROUTE FORM
register.lisp:28:10:
  warning: 
    Compile-time package lock violation:
      Lock on package COMMON-LISP violated when binding LET as a local macro while
      in package ZMA.WEB.
    --> LET SB-INT:DX-LET LET LET SPINNERET:WITH-HTML LET PROGN 
    --> ZMA.WEB::REG-INPUT-GROUP SPINNERET:WITH-HTML LET PROGN 
    --> SPINNERET::WITH-TAG PROG1 LET PROGN FLET #:<DIV>8 BLOCK 
    --> SPINNERET::CATCH-OUTPUT SPINNERET:HTML LOCALLY LET PROG1 LET PROGN 
    --> FLET SPINNERET.TAG::SPAN 
    ==>
      (MACROLET ((LET ((SPINNERET::*PRE* T))
                   (SPINNERET::FILL-TEXT (SPINNERET::S) T)
                   (SPINNERET::FILL-TEXT `(SPINNERET::ESCAPED-STRING ,SPINNERET::S)
                                         T)
                   NIL))
        (LIST :CLASS "\"text-danger fw-bold position-absolute top-0 right-0\""))
    
  error: 
    Lock on package COMMON-LISP violated when binding LET as a local macro while in
    package ZMA.WEB.
    See also:
      SBCL Manual, Package Locks [:node]
      Common Lisp Hyperspec, 11.1.2.1.2 [:section]
    --> LET SB-INT:DX-LET LET LET SPINNERET:WITH-HTML LET PROGN 
    --> ZMA.WEB::REG-INPUT-GROUP SPINNERET:WITH-HTML LET PROGN 
    --> SPINNERET::WITH-TAG PROG1 LET PROGN FLET #:<DIV>8 BLOCK 
    --> SPINNERET::CATCH-OUTPUT SPINNERET:HTML LOCALLY LET PROG1 LET PROGN 
    --> FLET SPINNERET.TAG::SPAN 
    ==>
      (MACROLET ((LET ((SPINNERET::*PRE* T))
                   (SPINNERET::FILL-TEXT (SPINNERET::S) T)
                   (SPINNERET::FILL-TEXT `(SPINNERET::ESCAPED-STRING ,SPINNERET::S)
                                         T)
                   NIL))
        (LIST :CLASS "\"text-danger fw-bold position-absolute top-0 right-0\""))