;; Auth components (login, check email, choose username)

(defcomp ~federation-error-banner (&key error)
  (div :class "bg-red-50 border border-red-200 text-red-700 p-3 rounded mb-4" error))

(defcomp ~federation-login-form (&key error action csrf email)
  (div :class "py-8 max-w-md mx-auto"
    (h1 :class "text-2xl font-bold mb-6" "Sign in")
    error
    (form :method "post" :action action :class "space-y-4"
      (input :type "hidden" :name "csrf_token" :value csrf)
      (div
        (label :for "email" :class "block text-sm font-medium mb-1" "Email address")
        (input :type "email" :name "email" :id "email" :value email :required true :autofocus true
          :class "w-full border border-stone-300 rounded px-3 py-2 focus:outline-none focus:ring-2 focus:ring-stone-500"))
      (button :type "submit"
        :class "w-full bg-stone-800 text-white py-2 px-4 rounded hover:bg-stone-700 transition"
        "Send magic link"))))

(defcomp ~federation-check-email-error (&key error)
  (div :class "bg-yellow-50 border border-yellow-200 text-yellow-700 p-3 rounded mt-4" error))

(defcomp ~federation-check-email (&key email error)
  (div :class "py-8 max-w-md mx-auto text-center"
    (h1 :class "text-2xl font-bold mb-4" "Check your email")
    (p :class "text-stone-600 mb-2" "We sent a sign-in link to " (strong email) ".")
    (p :class "text-stone-500 text-sm" "Click the link in the email to sign in. The link expires in 15 minutes.")
    error))

(defcomp ~federation-choose-username (&key domain error csrf username check-url)
  (div :class "py-8 max-w-md mx-auto"
    (h1 :class "text-2xl font-bold mb-2" "Choose your username")
    (p :class "text-stone-600 mb-6" "This will be your identity on the fediverse: "
      (strong "@username@" domain))
    error
    (form :method "post" :class "space-y-4"
      (input :type "hidden" :name "csrf_token" :value csrf)
      (div
        (label :for "username" :class "block text-sm font-medium mb-1" "Username")
        (div :class "flex items-center"
          (span :class "text-stone-400 mr-1" "@")
          (input :type "text" :name "username" :id "username" :value username
            :pattern "[a-z][a-z0-9_]{2,31}" :minlength "3" :maxlength "32"
            :required true :autocomplete "off"
            :class "flex-1 border border-stone-300 rounded px-3 py-2 focus:outline-none focus:ring-2 focus:ring-stone-500"
            :sx-get check-url :sx-trigger "keyup changed delay:300ms" :sx-target "#username-status"
            :sx-include "[name='username']"))
        (div :id "username-status" :class "text-sm mt-1")
        (p :class "text-xs text-stone-400 mt-1" "3-32 characters. Lowercase letters, numbers, underscores. Must start with a letter."))
      (button :type "submit"
        :class "w-full bg-stone-800 text-white py-2 px-4 rounded hover:bg-stone-700 transition"
        "Claim username"))))