(* Example showcasing the advanced features that were implemented from placeholders *)

let () =
  Printf.printf "=== Advanced Tailwind Features ===\n";
  
  (* V4 Container Queries *)
  let container_responsive = Tailwind.V4.container_query Tailwind.Responsive.Lg 
    (Tailwind.Css.make "text-2xl") in
  Printf.printf "Container Query (V4): %s\n" (Tailwind.to_string container_responsive);
  
  (* V4 Starting Style *)
  let starting_animation = Tailwind.V4.starting_style
    (Tailwind.Css.make "opacity-0") in
  Printf.printf "Starting Style (V4): %s\n" (Tailwind.to_string starting_animation);
  
  (* V4 Text Shadow *)
  let text_shadow = Tailwind.V4.text_shadow `Lg in
  Printf.printf "Text Shadow (V4): %s\n" (Tailwind.to_string text_shadow);
  
  (* Advanced Variants - Pseudo-classes *)
  let hover_effect = Tailwind.Variants.hover (Tailwind.Css.make "bg-blue-600") in
  Printf.printf "Hover Effect: %s\n" (Tailwind.to_string hover_effect);
  
  let focus_visible = Tailwind.Variants.apply 
    (Tailwind.Variants.pseudo Focus_visible (Tailwind.Css.make "ring-2")) 
    (Tailwind.Css.make "input") in
  Printf.printf "Focus Visible: %s\n" (Tailwind.to_string focus_visible);
  
  (* Responsive with Media Features *)
  let dark_mode = Tailwind.Responsive.(apply 
    (media Dark (Tailwind.Css.make "bg-gray-900")) 
    (Tailwind.Css.make "bg-white")) in
  Printf.printf "Dark Mode: %s\n" (Tailwind.to_string dark_mode);
  
  let motion_safe = Tailwind.Responsive.(apply
    (media Motion_safe (Tailwind.Css.make "transition-all"))
    (Tailwind.Css.make "transform")) in
  Printf.printf "Motion Safe: %s\n" (Tailwind.to_string motion_safe);
  
  (* Advanced Effects *)
  let backdrop_blur = Tailwind.Effects.(to_class (backdrop_blur `Lg)) in
  Printf.printf "Backdrop Blur: %s\n" (Tailwind.to_string backdrop_blur);
  
  let transform_origin = Tailwind.Effects.(to_class (transform_origin Top_right)) in
  Printf.printf "Transform Origin: %s\n" (Tailwind.to_string transform_origin);
  
  let scale_transform = Tailwind.Effects.(to_class (scale `X 125)) in
  Printf.printf "Scale Transform: %s\n" (Tailwind.to_string scale_transform);
  
  let rotate_transform = Tailwind.Effects.(to_class (rotate 45)) in
  Printf.printf "Rotate Transform: %s\n" (Tailwind.to_string rotate_transform);
  
  let translate_transform = Tailwind.Effects.(to_class (translate `Y (Tailwind.Size.rem 2.0))) in
  Printf.printf "Translate Transform: %s\n" (Tailwind.to_string translate_transform);
  
  (* Complex Combination *)
  let complex_card = Tailwind.tw [
    Tailwind.Color.bg (Tailwind.Color.make White ());
    Tailwind.Effects.rounded_lg;
    Tailwind.Effects.shadow_md;
    backdrop_blur;
    Tailwind.Spacing.(to_class (p (Tailwind.Size.rem 1.5)));
    Tailwind.Effects.(to_class (transform `Gpu));
    Tailwind.transition `All;
    hover_effect;
  ] in
  Printf.printf "Complex Card: %s\n" (Tailwind.to_string complex_card)