Something went wrong. Try again.
objective categorical abstract machine language personal data server
Something went wrong. Try again.
1.9 kB · 49 lines
at main
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950let base_classes = "py-1 px-4 text-lg rounded-lg w-full flex items-center justify-center \ transition duration-300 focus-visible:outline-none disabled:text-mist-80"type kind = [`Primary | `Secondary | `Tertiary | `Danger]let classes = function | `Primary -> base_classes ^ " bg-white font-serif text-mana-200 shadow-whisper \ hover:shadow-shimmer hover:bg-mist-20 hover:text-mist-100 \ focus-visible:shadow-shimmer focus-visible:bg-mist-20 \ focus-visible:text-mist-100 active:shadow-glow active:text-mana-100 \ disabled:bg-mist-60 disabled:shadow-none" | `Secondary -> base_classes ^ " bg-feather font-serif underline text-mana-100 hover:no-underline \ focus-visible:shadow-whisper active:shadow-whisper \ disabled:no-underline disabled:bg-mist-60 disabled:shadow-none" | `Tertiary -> base_classes ^ " font-sans underline text-mana-100 hover:no-underline \ focus-visible:text-mana-200 active:text-mana-200" | `Danger -> base_classes ^ " bg-white font-serif text-phoenix-100 shadow-bleed hover:bg-mist-20 \ focus:bg-mist-20 focus:text-phoenix-40 focus-visible:outline-none \ active:bg-phoenix-40 active:text-mist-20 disabled:bg-mist-60 \ disabled:shadow-none" | `Danger_secondary -> base_classes ^ " bg-feather font-serif underline text-phoenix-100 hover:no-underline \ focus-visible:shadow-bleed active:shadow-bleed disabled:no-underline \ disabled:text-mist-80"let[@react.component] make ?id ?name ?(kind = `Primary) ?(type_ = "button") ?formMethod ?onClick ?value ?disabled ?(className = "") ?ref ~children () = <button ?id ?name type_ ?formMethod ?onClick ?value ?disabled className=(classes kind ^ " " ^ className) ?ref> children </button>