package tw

  1. Overview
  2. Docs
Type-safe Tailwind CSS v4 in OCaml

Install 

dune-project
 Dependency

github.com Readme Changelog ISC License Edit opam file Versions (1)

Authors

  1. T
    Thomas Gazagnaire

Maintainers

  1. T
    Thomas Gazagnaire <thomas@gazagnaire.org>

Sources

tw-1.0.0.tbz
sha256=198a142b69828a53a0c8812b70f279be6c216b411b370c3433d5fe94be5d495e
sha512=fe0a94ef1ff22e19c669d4370c6b555bf323053e05a8cfc315196beb312703f68ec62966b2b7780b6a79c2e8db88e8aa816d7fe3cb3a2044e6f52ed4d839a3b4

doc/src/tw.dom/tw_dom.ml.html

Source file tw_dom.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
module Css = Cascade.Css
(* Client-side CSS injection.

   Maintains a <style> element in <head> containing CSS for all utilities
   registered via [use]. Each utility's class name is tracked to avoid
   re-injection. The <style> content is rebuilt when new utilities appear. *)

open Brr

let registered : (string, unit) Hashtbl.t = Hashtbl.create 128
let all_styles : Tw.t list ref = ref []
let style_el : El.t option ref = ref None
let include_base : bool ref = ref true

let ensure_style_el () =
  match !style_el with
  | Some el -> el
  | None ->
      let head = Document.head G.document in
      let el = El.v El.Name.style [] in
      El.set_at (Jstr.v "data-tw") (Some (Jstr.v "runtime")) el;
      El.append_children head [ el ];
      style_el := Some el;
      el

let set_text_content el s = El.set_children el [ El.txt (Jstr.v s) ]

let rebuild_css () =
  let el = ensure_style_el () in
  let styles = List.rev !all_styles in
  let css = Tw.to_css ~base:!include_base styles in
  let css_str = Css.to_string ~minify:true css in
  set_text_content el css_str

let init ?(base = true) () =
  include_base := base;
  ignore (ensure_style_el ())

let use styles =
  let new_found = ref false in
  List.iter
    (fun s ->
      let cls = Tw.pp s in
      if not (Hashtbl.mem registered cls) then (
        Hashtbl.add registered cls ();
        all_styles := s :: !all_styles;
        new_found := true))
    styles;
  if !new_found then rebuild_css ();
  Tw.to_classes styles

let use_str s =
  let styles = Tw.str s in
  ignore (use styles);
  s

let css () =
  let styles = List.rev !all_styles in
  let css = Tw.to_css ~base:!include_base styles in
  Css.to_string ~minify:true css