commit bc13a003ae2e62ba55c51fdb3494a73bfa5d4125 · anil.recoil.org/ocaml-tailwind

+195

examples/colors_and_typography_02.ml

···

       1
       1
       +
       (* Example 02: Colors and Typography - Exploring the Type System *)

     

       2
       2
       +
       

     

       3
       3
       +
       open Htmlit

     

       4
       4
       +
       open Tailwind

     

       5
       5
       +
       

     

       6
       6
       +
       let classes_attr tailwind_classes = 

     

       7
       7
       +
         At.class' (Tailwind.to_string tailwind_classes)

     

       8
       8
       +
       

     

       9
       9
       +
       let create_color_demo () =

     

       10
       10
       +
         (* Color variants demonstration *)

     

       11
       11
       +
         let color_examples = [

     

       12
       12
       +
           ("Blue 400", Color.make `Blue ~variant:`V400 ());

     

       13
       13
       +
           ("Blue 600", Color.make `Blue ~variant:`V600 ());

     

       14
       14
       +
           ("Green 500", Color.make `Green ~variant:`V500 ());

     

       15
       15
       +
           ("Red 500", Color.make `Red ~variant:`V500 ());

     

       16
       16
       +
           ("Purple 600", Color.make `Purple ~variant:`V600 ());

     

       17
       17
       +
           ("Gray 700", Color.make `Gray ~variant:`V700 ());

     

       18
       18
       +
         ] in

     

       19
       19
       +
         

     

       20
       20
       +
         let typography_examples = [

     

       21
       21
       +
           ("Extra Small", Typography.(to_class (font_size `Xs)));

     

       22
       22
       +
           ("Small", Typography.(to_class (font_size `Sm)));

     

       23
       23
       +
           ("Base", Typography.(to_class (font_size `Base)));

     

       24
       24
       +
           ("Large", Typography.(to_class (font_size `Lg)));

     

       25
       25
       +
           ("Extra Large", Typography.(to_class (font_size `Xl)));

     

       26
       26
       +
           ("2X Large", Typography.(to_class (font_size `Xl2)));

     

       27
       27
       +
         ] in

     

       28
       28
       +
         

     

       29
       29
       +
         (* Create HTML demonstration *)

     

       30
       30
       +
         let html_doc = El.html [

     

       31
       31
       +
           El.head [

     

       32
       32
       +
             El.meta ~at:[At.charset "utf-8"] ();

     

       33
       33
       +
             El.meta ~at:[At.name "viewport"; At.content "width=device-width, initial-scale=1"] ();

     

       34
       34
       +
             El.title [El.txt "Colors and Typography"];

     

       35
       35
       +
             El.link ~at:[At.rel "stylesheet"; At.href "colors_and_typography_02.css"] ();

     

       36
       36
       +
           ];

     

       37
       37
       +
           El.body ~at:[At.class' "min-h-screen bg-gray-50 p-8"] [

     

       38
       38
       +
             El.div ~at:[At.class' "max-w-4xl mx-auto"] [

     

       39
       39
       +
               El.h1 ~at:[classes_attr (tw [

     

       40
       40
       +
                 Typography.(to_class (font_size `Xl2));

     

       41
       41
       +
                 Typography.(to_class (font_weight `Bold));

     

       42
       42
       +
                 Color.text (Color.make `Gray ~variant:`V800 ());

     

       43
       43
       +
               ]); At.class' "mb-8 text-center"] [El.txt "Colors and Typography Demo"];

     

       44
       44
       +
               

     

       45
       45
       +
               El.p ~at:[classes_attr (tw [

     

       46
       46
       +
                 Typography.(to_class (font_size `Lg));

     

       47
       47
       +
                 Color.text (Color.make `Gray ~variant:`V600 ());

     

       48
       48
       +
               ]); At.class' "text-center mb-12"] [

     

       49
       49
       +
                 El.txt "Explore the type-safe color system and typography utilities in Tailwind OCaml."

     

       50
       50
       +
               ];

     

       51
       51
       +
               

     

       52
       52
       +
               (* Color Palette Section *)

     

       53
       53
       +
               El.section ~at:[At.class' "mb-12"] [

     

       54
       54
       +
                 El.h2 ~at:[classes_attr (tw [

     

       55
       55
       +
                   Typography.(to_class (font_size `Xl));

     

       56
       56
       +
                   Typography.(to_class (font_weight `Semibold));

     

       57
       57
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       58
       58
       +
                 ]); At.class' "mb-8"] [El.txt "Color Palette"];

     

       59
       59
       +
                 

     

       60
       60
       +
                 El.div ~at:[classes_attr (tw [

     

       61
       61
       +
                   Display.grid;

     

       62
       62
       +
                   Grid.(to_class (template_cols (`Cols 1)));

     

       63
       63
       +
                   Responsive.(to_class (at_breakpoint `Md (Grid.(to_class (template_cols (`Cols 2))))));

     

       64
       64
       +
                   Responsive.(to_class (at_breakpoint `Lg (Grid.(to_class (template_cols (`Cols 3))))));

     

       65
       65
       +
                   Spacing.(to_class (gap `All (Size.rem 1.5)));

     

       66
       66
       +
                 ])] (List.map (fun (name, color) ->

     

       67
       67
       +
                   El.div ~at:[classes_attr (tw [

     

       68
       68
       +
                     Color.bg Color.white;

     

       69
       69
       +
                     Spacing.(to_class (p (Size.rem 1.5)));

     

       70
       70
       +
                     Effects.rounded_lg;

     

       71
       71
       +
                     Effects.shadow_sm;

     

       72
       72
       +
                   ]); At.class' "text-center"] [

     

       73
       73
       +
                     El.div ~at:[classes_attr (tw [

     

       74
       74
       +
                       Color.text color;

     

       75
       75
       +
                       Typography.(to_class (font_size `Xl2));

     

       76
       76
       +
                       Typography.(to_class (font_weight `Bold));

     

       77
       77
       +
                     ]); At.class' "mb-4"] [El.txt "Aa"];

     

       78
       78
       +
                     El.h3 ~at:[classes_attr (tw [

     

       79
       79
       +
                       Typography.(to_class (font_size `Lg));

     

       80
       80
       +
                       Typography.(to_class (font_weight `Semibold));

     

       81
       81
       +
                       Color.text (Color.make `Gray ~variant:`V800 ());

     

       82
       82
       +
                     ]); At.class' "mb-2"] [El.txt name];

     

       83
       83
       +
                     El.p ~at:[classes_attr (tw [

     

       84
       84
       +
                       Typography.(to_class (font_size `Sm));

     

       85
       85
       +
                       Color.text (Color.make `Gray ~variant:`V500 ());

     

       86
       86
       +
                     ]); At.class' "mb-3"] [El.txt (to_string (tw [Color.text color]))];

     

       87
       87
       +
                     El.p ~at:[classes_attr (tw [Color.text color])] [

     

       88
       88
       +
                       El.txt "The quick brown fox jumps over the lazy dog"

     

       89
       89
       +
                     ];

     

       90
       90
       +
                   ]

     

       91
       91
       +
                 ) color_examples);

     

       92
       92
       +
               ];

     

       93
       93
       +
               

     

       94
       94
       +
               (* Typography Scale Section *)

     

       95
       95
       +
               El.section ~at:[At.class' "mb-12"] [

     

       96
       96
       +
                 El.h2 ~at:[classes_attr (tw [

     

       97
       97
       +
                   Typography.(to_class (font_size `Xl));

     

       98
       98
       +
                   Typography.(to_class (font_weight `Semibold));

     

       99
       99
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       100
       100
       +
                 ]); At.class' "mb-8"] [El.txt "Typography Scale"];

     

       101
       101
       +
                 

     

       102
       102
       +
                 El.div ~at:[classes_attr (tw [

     

       103
       103
       +
                   Color.bg Color.white;

     

       104
       104
       +
                   Spacing.(to_class (p (Size.rem 2.0)));

     

       105
       105
       +
                   Effects.rounded_lg;

     

       106
       106
       +
                   Effects.shadow_sm;

     

       107
       107
       +
                 ]); At.class' "mb-8"] (List.map (fun (name, typ_class) ->

     

       108
       108
       +
                   El.div ~at:[At.class' "mb-6 last:mb-0"] [

     

       109
       109
       +
                     El.div ~at:[classes_attr (tw [

     

       110
       110
       +
                       Display.flex;

     

       111
       111
       +
                       Flexbox.(to_class (align_items `Center));

     

       112
       112
       +
                       Flexbox.(to_class (justify `Between));

     

       113
       113
       +
                       Spacing.(to_class (gap `All (Size.rem 1.0)));

     

       114
       114
       +
                     ]); At.class' "mb-2"] [

     

       115
       115
       +
                       El.span ~at:[classes_attr (tw [

     

       116
       116
       +
                         Typography.(to_class (font_size `Sm));

     

       117
       117
       +
                         Typography.(to_class (font_weight `Medium));

     

       118
       118
       +
                         Color.text (Color.make `Gray ~variant:`V500 ());

     

       119
       119
       +
                       ])] [El.txt name];

     

       120
       120
       +
                       El.code ~at:[classes_attr (tw [

     

       121
       121
       +
                         Typography.(to_class (font_size `Xs));

     

       122
       122
       +
                         Color.bg (Color.make `Gray ~variant:`V100 ());

     

       123
       123
       +
                         Spacing.(to_class (px (Size.rem 0.5)));

     

       124
       124
       +
                         Spacing.(to_class (py (Size.rem 0.25)));

     

       125
       125
       +
                         Effects.rounded_sm;

     

       126
       126
       +
                       ])] [El.txt (to_string (tw [typ_class]))];

     

       127
       127
       +
                     ];

     

       128
       128
       +
                     El.p ~at:[classes_attr (tw [typ_class])] [

     

       129
       129
       +
                       El.txt "The quick brown fox jumps over the lazy dog"

     

       130
       130
       +
                     ];

     

       131
       131
       +
                   ]

     

       132
       132
       +
                 ) typography_examples);

     

       133
       133
       +
               ];

     

       134
       134
       +
               

     

       135
       135
       +
               (* Font Weights Section *)

     

       136
       136
       +
               El.section [

     

       137
       137
       +
                 El.h2 ~at:[classes_attr (tw [

     

       138
       138
       +
                   Typography.(to_class (font_size `Xl));

     

       139
       139
       +
                   Typography.(to_class (font_weight `Semibold));

     

       140
       140
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       141
       141
       +
                 ]); At.class' "mb-8"] [El.txt "Font Weights"];

     

       142
       142
       +
                 

     

       143
       143
       +
                 let weight_examples = [

     

       144
       144
       +
                   ("Light", Typography.(to_class (font_weight `Light)));

     

       145
       145
       +
                   ("Normal", Typography.(to_class (font_weight `Normal)));

     

       146
       146
       +
                   ("Medium", Typography.(to_class (font_weight `Medium)));

     

       147
       147
       +
                   ("Semibold", Typography.(to_class (font_weight `Semibold)));

     

       148
       148
       +
                   ("Bold", Typography.(to_class (font_weight `Bold)));

     

       149
       149
       +
                   ("Extrabold", Typography.(to_class (font_weight `Extrabold)));

     

       150
       150
       +
                 ] in

     

       151
       151
       +
                 

     

       152
       152
       +
                 El.div ~at:[classes_attr (tw [

     

       153
       153
       +
                   Color.bg Color.white;

     

       154
       154
       +
                   Spacing.(to_class (p (Size.rem 2.0)));

     

       155
       155
       +
                   Effects.rounded_lg;

     

       156
       156
       +
                   Effects.shadow_sm;

     

       157
       157
       +
                 ])] (List.map (fun (name, weight_class) ->

     

       158
       158
       +
                   El.div ~at:[At.class' "mb-6 last:mb-0"] [

     

       159
       159
       +
                     El.div ~at:[classes_attr (tw [

     

       160
       160
       +
                       Display.flex;

     

       161
       161
       +
                       Flexbox.(to_class (align_items `Center));

     

       162
       162
       +
                       Flexbox.(to_class (justify `Between));

     

       163
       163
       +
                       Spacing.(to_class (gap `All (Size.rem 1.0)));

     

       164
       164
       +
                     ]); At.class' "mb-2"] [

     

       165
       165
       +
                       El.span ~at:[classes_attr (tw [

     

       166
       166
       +
                         Typography.(to_class (font_size `Sm));

     

       167
       167
       +
                         Typography.(to_class (font_weight `Medium));

     

       168
       168
       +
                         Color.text (Color.make `Gray ~variant:`V500 ());

     

       169
       169
       +
                       ])] [El.txt name];

     

       170
       170
       +
                       El.code ~at:[classes_attr (tw [

     

       171
       171
       +
                         Typography.(to_class (font_size `Xs));

     

       172
       172
       +
                         Color.bg (Color.make `Gray ~variant:`V100 ());

     

       173
       173
       +
                         Spacing.(to_class (px (Size.rem 0.5)));

     

       174
       174
       +
                         Spacing.(to_class (py (Size.rem 0.25)));

     

       175
       175
       +
                         Effects.rounded_sm;

     

       176
       176
       +
                       ])] [El.txt (to_string (tw [weight_class]))];

     

       177
       177
       +
                     ];

     

       178
       178
       +
                     El.p ~at:[classes_attr (tw [

     

       179
       179
       +
                       weight_class;

     

       180
       180
       +
                       Typography.(to_class (font_size `Lg));

     

       181
       181
       +
                     ])] [

     

       182
       182
       +
                       El.txt "The quick brown fox jumps over the lazy dog"

     

       183
       183
       +
                     ];

     

       184
       184
       +
                   ]

     

       185
       185
       +
                 ) weight_examples);

     

       186
       186
       +
               ];

     

       187
       187
       +
             ];

     

       188
       188
       +
           ];

     

       189
       189
       +
         ] in

     

       190
       190
       +
         html_doc

     

       191
       191
       +
       

     

       192
       192
       +
       let () =

     

       193
       193
       +
         (* Output HTML to stdout *)

     

       194
       194
       +
         let html_doc = create_color_demo () in

     

       195
       195
       +
         print_string (El.to_string ~doctype:true html_doc)

+166 -3

examples/dune

···

       1
       1
       +
       ;; Notebook-style examples - progressive learning path

     

       1
       2
        
       (executables

     

       2
       2
       -
        (public_names basic_usage module_usage advanced_features)

     

       3
       3
       -
        (names basic_usage module_usage advanced_features)

     

       3
       3
       +
        (public_names 

     

       4
       4
       +
         index

     

       5
       5
       +
         hello_tailwind 

     

       6
       6
       +
         colors_and_typography 

     

       7
       7
       +
         layout_and_spacing 

     

       8
       8
       +
         responsive_design 

     

       9
       9
       +
         effects_and_variants 

     

       10
       10
       +
         patterns_and_components 

     

       11
       11
       +
         comprehensive_showcase)

     

       12
       12
       +
        (names 

     

       13
       13
       +
         index_00

     

       14
       14
       +
         hello_tailwind_01

     

       15
       15
       +
         colors_and_typography_02

     

       16
       16
       +
         layout_and_spacing_03

     

       17
       17
       +
         responsive_design_04

     

       18
       18
       +
         effects_and_variants_05

     

       19
       19
       +
         patterns_and_components_06

     

       20
       20
       +
         comprehensive_showcase_07)

     

       21
       21
       +
        (package tailwind)

     

       22
       22
       +
        (libraries tailwind tailwind-html htmlit unix))

     

       23
       23
       +
       

     

       24
       24
       +
       ;; Legacy examples (maintained for compatibility)

     

       25
       25
       +
       (executables

     

       26
       26
       +
        (public_names basic_usage module_usage advanced_features simple_html_example complete_demo tailwind_html_example improved_api_demo)

     

       27
       27
       +
        (names basic_usage module_usage advanced_features simple_html_example complete_demo tailwind_html_example improved_api_demo)

     

       28
       28
       +
        (package tailwind)

     

       29
       29
       +
        (libraries tailwind htmlit unix))

     

       30
       30
       +
       

     

       31
       31
       +
       ;; Generate HTML files from examples

     

       32
       32
       +
       (rule

     

       33
       33
       +
        (target hello_tailwind_01.html)

     

       34
       34
       +
        (deps (:exe hello_tailwind_01.exe))

     

       35
       35
       +
        (action (with-stdout-to %{target} (run %{exe}))))

     

       36
       36
       +
       

     

       37
       37
       +
       (rule

     

       38
       38
       +
        (target colors_and_typography_02.html)

     

       39
       39
       +
        (deps (:exe colors_and_typography_02.exe))

     

       40
       40
       +
        (action (with-stdout-to %{target} (run %{exe}))))

     

       41
       41
       +
       

     

       42
       42
       +
       (rule

     

       43
       43
       +
        (target layout_and_spacing_03.html)

     

       44
       44
       +
        (deps (:exe layout_and_spacing_03.exe))

     

       45
       45
       +
        (action (with-stdout-to %{target} (run %{exe}))))

     

       46
       46
       +
       

     

       47
       47
       +
       (rule

     

       48
       48
       +
        (target responsive_design_04.html)

     

       49
       49
       +
        (deps (:exe responsive_design_04.exe))

     

       50
       50
       +
        (action (with-stdout-to %{target} (run %{exe}))))

     

       51
       51
       +
       

     

       52
       52
       +
       (rule

     

       53
       53
       +
        (target effects_and_variants_05.html)

     

       54
       54
       +
        (deps (:exe effects_and_variants_05.exe))

     

       55
       55
       +
        (action (with-stdout-to %{target} (run %{exe}))))

     

       56
       56
       +
       

     

       57
       57
       +
       (rule

     

       58
       58
       +
        (target patterns_and_components_06.html)

     

       59
       59
       +
        (deps (:exe patterns_and_components_06.exe))

     

       60
       60
       +
        (action (with-stdout-to %{target} (run %{exe}))))

     

       61
       61
       +
       

     

       62
       62
       +
       (rule

     

       63
       63
       +
        (target comprehensive_showcase_07.html)

     

       64
       64
       +
        (deps (:exe comprehensive_showcase_07.exe))

     

       65
       65
       +
        (action (with-stdout-to %{target} (run %{exe}))))

     

       66
       66
       +
       

     

       67
       67
       +
       ;; Generate CSS files using Tailwind CLI

     

       68
       68
       +
       (rule

     

       69
       69
       +
        (targets hello_tailwind_01.css)

     

       70
       70
       +
        (deps 

     

       71
       71
       +
         input.css

     

       72
       72
       +
         hello_tailwind_01.html)

     

       73
       73
       +
        (action 

     

       74
       74
       +
         (run npx @tailwindcss/cli --input input.css --output %{targets} --content hello_tailwind_01.html --minify)))

     

       75
       75
       +
       

     

       76
       76
       +
       (rule

     

       77
       77
       +
        (targets colors_and_typography_02.css)

     

       78
       78
       +
        (deps 

     

       79
       79
       +
         input.css

     

       80
       80
       +
         colors_and_typography_02.html)

     

       81
       81
       +
        (action 

     

       82
       82
       +
         (run npx @tailwindcss/cli --input input.css --output %{targets} --content colors_and_typography_02.html --minify)))

     

       83
       83
       +
       

     

       84
       84
       +
       (rule

     

       85
       85
       +
        (targets layout_and_spacing_03.css)

     

       86
       86
       +
        (deps 

     

       87
       87
       +
         input.css

     

       88
       88
       +
         layout_and_spacing_03.html)

     

       89
       89
       +
        (action 

     

       90
       90
       +
         (run npx @tailwindcss/cli --input input.css --output %{targets} --content layout_and_spacing_03.html --minify)))

     

       91
       91
       +
       

     

       92
       92
       +
       (rule

     

       93
       93
       +
        (targets responsive_design_04.css)

     

       94
       94
       +
        (deps 

     

       95
       95
       +
         input.css

     

       96
       96
       +
         responsive_design_04.html)

     

       97
       97
       +
        (action 

     

       98
       98
       +
         (run npx @tailwindcss/cli --input input.css --output %{targets} --content responsive_design_04.html --minify)))

     

       99
       99
       +
       

     

       100
       100
       +
       (rule

     

       101
       101
       +
        (targets effects_and_variants_05.css)

     

       102
       102
       +
        (deps 

     

       103
       103
       +
         input.css

     

       104
       104
       +
         effects_and_variants_05.html)

     

       105
       105
       +
        (action 

     

       106
       106
       +
         (run npx @tailwindcss/cli --input input.css --output %{targets} --content effects_and_variants_05.html --minify)))

     

       107
       107
       +
       

     

       108
       108
       +
       (rule

     

       109
       109
       +
        (targets patterns_and_components_06.css)

     

       110
       110
       +
        (deps 

     

       111
       111
       +
         input.css

     

       112
       112
       +
         patterns_and_components_06.html)

     

       113
       113
       +
        (action 

     

       114
       114
       +
         (run npx @tailwindcss/cli --input input.css --output %{targets} --content patterns_and_components_06.html --minify)))

     

       115
       115
       +
       

     

       116
       116
       +
       (rule

     

       117
       117
       +
        (targets comprehensive_showcase_07.css)

     

       118
       118
       +
        (deps 

     

       119
       119
       +
         input.css

     

       120
       120
       +
         comprehensive_showcase_07.html)

     

       121
       121
       +
        (action 

     

       122
       122
       +
         (run npx @tailwindcss/cli --input input.css --output %{targets} --content comprehensive_showcase_07.html --minify)))

     

       123
       123
       +
       

     

       124
       124
       +
       ;; Alias to build all HTML files

     

       125
       125
       +
       (alias

     

       126
       126
       +
        (name examples-html)

     

       127
       127
       +
        (deps

     

       128
       128
       +
         hello_tailwind_01.html

     

       129
       129
       +
         colors_and_typography_02.html

     

       130
       130
       +
         layout_and_spacing_03.html

     

       131
       131
       +
         responsive_design_04.html

     

       132
       132
       +
         effects_and_variants_05.html

     

       133
       133
       +
         patterns_and_components_06.html

     

       134
       134
       +
         comprehensive_showcase_07.html))

     

       135
       135
       +
       

     

       136
       136
       +
       ;; Alias to build all CSS files (requires Tailwind CLI)

     

       137
       137
       +
       ;; Run: npm install -D @tailwindcss/cli

     

       138
       138
       +
       (alias

     

       139
       139
       +
        (name examples-css)

     

       140
       140
       +
        (deps

     

       141
       141
       +
         (alias_rec examples-html)

     

       142
       142
       +
         hello_tailwind_01.css

     

       143
       143
       +
         colors_and_typography_02.css

     

       144
       144
       +
         layout_and_spacing_03.css

     

       145
       145
       +
         responsive_design_04.css

     

       146
       146
       +
         effects_and_variants_05.css

     

       147
       147
       +
         patterns_and_components_06.css

     

       148
       148
       +
         comprehensive_showcase_07.css))

     

       149
       149
       +
       

     

       150
       150
       +
       ;; Install generated files

     

       151
       151
       +
       (install

     

       152
       152
       +
        (section doc)

     

       4
       153
        
        (package tailwind)

     

       5
       5
       -
        (libraries tailwind))
     

       154
       154
       +
        (files

     

       155
       155
       +
         (hello_tailwind_01.html as examples/hello_tailwind_01.html)

     

       156
       156
       +
         (hello_tailwind_01.css as examples/hello_tailwind_01.css)

     

       157
       157
       +
         (colors_and_typography_02.html as examples/colors_and_typography_02.html)

     

       158
       158
       +
         (colors_and_typography_02.css as examples/colors_and_typography_02.css)

     

       159
       159
       +
         (layout_and_spacing_03.html as examples/layout_and_spacing_03.html)

     

       160
       160
       +
         (layout_and_spacing_03.css as examples/layout_and_spacing_03.css)

     

       161
       161
       +
         (responsive_design_04.html as examples/responsive_design_04.html)

     

       162
       162
       +
         (responsive_design_04.css as examples/responsive_design_04.css)

     

       163
       163
       +
         (effects_and_variants_05.html as examples/effects_and_variants_05.html)

     

       164
       164
       +
         (effects_and_variants_05.css as examples/effects_and_variants_05.css)

     

       165
       165
       +
         (patterns_and_components_06.html as examples/patterns_and_components_06.html)

     

       166
       166
       +
         (patterns_and_components_06.css as examples/patterns_and_components_06.css)

     

       167
       167
       +
         (comprehensive_showcase_07.html as examples/comprehensive_showcase_07.html)

     

       168
       168
       +
         (comprehensive_showcase_07.css as examples/comprehensive_showcase_07.css)))

+326

examples/effects_and_variants_05.ml

···

       1
       1
       +
       (* Example 05: Effects and Variants - Interactive Elements and Visual Effects *)

     

       2
       2
       +
       

     

       3
       3
       +
       open Htmlit

     

       4
       4
       +
       open Tailwind

     

       5
       5
       +
       

     

       6
       6
       +
       let classes_attr tailwind_classes = 

     

       7
       7
       +
         At.class' (Tailwind.to_string tailwind_classes)

     

       8
       8
       +
       

     

       9
       9
       +
       let create_effects_demo () =

     

       10
       10
       +
         

     

       11
       11
       +
         (* Create comprehensive effects demonstration *)

     

       12
       12
       +
         let html_doc = El.html [

     

       13
       13
       +
           El.head [

     

       14
       14
       +
             El.meta ~at:[At.charset "utf-8"] ();

     

       15
       15
       +
             El.meta ~at:[At.name "viewport"; At.content "width=device-width, initial-scale=1"] ();

     

       16
       16
       +
             El.title [El.txt "Effects and Variants"];

     

       17
       17
       +
             El.link ~at:[At.rel "stylesheet"; At.href "effects_and_variants_05.css"] ();

     

       18
       18
       +
           ];

     

       19
       19
       +
           El.body ~at:[At.class' "min-h-screen bg-gray-50 p-8"] [

     

       20
       20
       +
             El.div ~at:[At.class' "max-w-6xl mx-auto"] [

     

       21
       21
       +
               El.h1 ~at:[classes_attr (tw [

     

       22
       22
       +
                 Typography.(to_class (font_size `Xl2));

     

       23
       23
       +
                 Typography.(to_class (font_weight `Bold));

     

       24
       24
       +
                 Color.text (Color.make `Gray ~variant:`V800 ());

     

       25
       25
       +
               ]); At.class' "mb-8 text-center"] [El.txt "Effects and Variants Demo"];

     

       26
       26
       +
               

     

       27
       27
       +
               (* Shadow Effects *)

     

       28
       28
       +
               El.section ~at:[At.class' "mb-8"] [

     

       29
       29
       +
                 El.h2 ~at:[classes_attr (tw [

     

       30
       30
       +
                   Typography.(to_class (font_size `Xl));

     

       31
       31
       +
                   Typography.(to_class (font_weight `Semibold));

     

       32
       32
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       33
       33
       +
                 ]); At.class' "mb-6"] [El.txt "Shadow Effects"];

     

       34
       34
       +
                 

     

       35
       35
       +
                 El.div ~at:[classes_attr (tw [

     

       36
       36
       +
                   Display.grid;

     

       37
       37
       +
                   Grid.(to_class (template_cols (`Cols 1)));

     

       38
       38
       +
                   Responsive.(to_class (at_breakpoint `Md (Grid.(to_class (template_cols (`Cols 3))))));

     

       39
       39
       +
                   Spacing.(to_class (gap `All (Size.rem 1.5)));

     

       40
       40
       +
                 ])] [

     

       41
       41
       +
                   El.div ~at:[classes_attr (tw [

     

       42
       42
       +
                     Color.bg Color.white;

     

       43
       43
       +
                     Spacing.(to_class (p (Size.rem 1.5)));

     

       44
       44
       +
                     Effects.shadow_sm;

     

       45
       45
       +
                     Effects.rounded_lg;

     

       46
       46
       +
                   ]); At.class' "text-center"] [

     

       47
       47
       +
                     El.h3 ~at:[classes_attr (tw [

     

       48
       48
       +
                       Typography.(to_class (font_weight `Semibold));

     

       49
       49
       +
                       Color.text (Color.make `Gray ~variant:`V700 ());

     

       50
       50
       +
                     ]); At.class' "mb-2"] [El.txt "Small Shadow"];

     

       51
       51
       +
                     El.p ~at:[classes_attr (tw [

     

       52
       52
       +
                       Typography.(to_class (font_size `Sm));

     

       53
       53
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       54
       54
       +
                     ])] [El.txt "shadow-sm"];

     

       55
       55
       +
                   ];

     

       56
       56
       +
                   

     

       57
       57
       +
                   El.div ~at:[classes_attr (tw [

     

       58
       58
       +
                     Color.bg Color.white;

     

       59
       59
       +
                     Spacing.(to_class (p (Size.rem 1.5)));

     

       60
       60
       +
                     Effects.shadow_md;

     

       61
       61
       +
                     Effects.rounded_lg;

     

       62
       62
       +
                   ]); At.class' "text-center"] [

     

       63
       63
       +
                     El.h3 ~at:[classes_attr (tw [

     

       64
       64
       +
                       Typography.(to_class (font_weight `Semibold));

     

       65
       65
       +
                       Color.text (Color.make `Gray ~variant:`V700 ());

     

       66
       66
       +
                     ]); At.class' "mb-2"] [El.txt "Medium Shadow"];

     

       67
       67
       +
                     El.p ~at:[classes_attr (tw [

     

       68
       68
       +
                       Typography.(to_class (font_size `Sm));

     

       69
       69
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       70
       70
       +
                     ])] [El.txt "shadow-md"];

     

       71
       71
       +
                   ];

     

       72
       72
       +
                   

     

       73
       73
       +
                   El.div ~at:[classes_attr (tw [

     

       74
       74
       +
                     Color.bg Color.white;

     

       75
       75
       +
                     Spacing.(to_class (p (Size.rem 1.5)));

     

       76
       76
       +
                     Effects.shadow_lg;

     

       77
       77
       +
                     Effects.rounded_lg;

     

       78
       78
       +
                   ]); At.class' "text-center"] [

     

       79
       79
       +
                     El.h3 ~at:[classes_attr (tw [

     

       80
       80
       +
                       Typography.(to_class (font_weight `Semibold));

     

       81
       81
       +
                       Color.text (Color.make `Gray ~variant:`V700 ());

     

       82
       82
       +
                     ]); At.class' "mb-2"] [El.txt "Large Shadow"];

     

       83
       83
       +
                     El.p ~at:[classes_attr (tw [

     

       84
       84
       +
                       Typography.(to_class (font_size `Sm));

     

       85
       85
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       86
       86
       +
                     ])] [El.txt "shadow-lg"];

     

       87
       87
       +
                   ];

     

       88
       88
       +
                 ];

     

       89
       89
       +
               ];

     

       90
       90
       +
               

     

       91
       91
       +
               (* Rounded Corners *)

     

       92
       92
       +
               El.section ~at:[At.class' "mb-8"] [

     

       93
       93
       +
                 El.h2 ~at:[classes_attr (tw [

     

       94
       94
       +
                   Typography.(to_class (font_size `Xl));

     

       95
       95
       +
                   Typography.(to_class (font_weight `Semibold));

     

       96
       96
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       97
       97
       +
                 ]); At.class' "mb-6"] [El.txt "Border Radius"];

     

       98
       98
       +
                 

     

       99
       99
       +
                 El.div ~at:[classes_attr (tw [

     

       100
       100
       +
                   Display.flex;

     

       101
       101
       +
                   Flexbox.(to_class (wrap `Wrap));

     

       102
       102
       +
                   Spacing.(to_class (gap `All (Size.rem 1.0)));

     

       103
       103
       +
                   Flexbox.(to_class (justify `Center));

     

       104
       104
       +
                 ])] [

     

       105
       105
       +
                   El.div ~at:[classes_attr (tw [

     

       106
       106
       +
                     Color.bg (Color.make `Blue ~variant:`V100 ());

     

       107
       107
       +
                     Spacing.(to_class (p (Size.rem 1.0)));

     

       108
       108
       +
                     (* No rounded corners *)

     

       109
       109
       +
                   ]); At.class' "text-center"] [El.txt "No Radius"];

     

       110
       110
       +
                   

     

       111
       111
       +
                   El.div ~at:[classes_attr (tw [

     

       112
       112
       +
                     Color.bg (Color.make `Green ~variant:`V100 ());

     

       113
       113
       +
                     Spacing.(to_class (p (Size.rem 1.0)));

     

       114
       114
       +
                     Effects.rounded_sm;

     

       115
       115
       +
                   ]); At.class' "text-center"] [El.txt "Small"];

     

       116
       116
       +
                   

     

       117
       117
       +
                   El.div ~at:[classes_attr (tw [

     

       118
       118
       +
                     Color.bg (Color.make `Purple ~variant:`V100 ());

     

       119
       119
       +
                     Spacing.(to_class (p (Size.rem 1.0)));

     

       120
       120
       +
                     Effects.rounded_md;

     

       121
       121
       +
                   ]); At.class' "text-center"] [El.txt "Medium"];

     

       122
       122
       +
                   

     

       123
       123
       +
                   El.div ~at:[classes_attr (tw [

     

       124
       124
       +
                     Color.bg (Color.make `Red ~variant:`V100 ());

     

       125
       125
       +
                     Spacing.(to_class (p (Size.rem 1.0)));

     

       126
       126
       +
                     Effects.rounded_lg;

     

       127
       127
       +
                   ]); At.class' "text-center"] [El.txt "Large"];

     

       128
       128
       +
                   

     

       129
       129
       +
                   El.div ~at:[classes_attr (tw [

     

       130
       130
       +
                     Color.bg (Color.make `Yellow ~variant:`V100 ());

     

       131
       131
       +
                     Spacing.(to_class (p (Size.rem 1.0)));

     

       132
       132
       +
                     Effects.rounded_full;

     

       133
       133
       +
                   ]); At.class' "text-center"] [El.txt "Full"];

     

       134
       134
       +
                 ];

     

       135
       135
       +
               ];

     

       136
       136
       +
               

     

       137
       137
       +
               (* Interactive Buttons *)

     

       138
       138
       +
               El.section ~at:[At.class' "mb-8"] [

     

       139
       139
       +
                 El.h2 ~at:[classes_attr (tw [

     

       140
       140
       +
                   Typography.(to_class (font_size `Xl));

     

       141
       141
       +
                   Typography.(to_class (font_weight `Semibold));

     

       142
       142
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       143
       143
       +
                 ]); At.class' "mb-6"] [El.txt "Interactive Buttons"];

     

       144
       144
       +
                 

     

       145
       145
       +
                 El.div ~at:[classes_attr (tw [

     

       146
       146
       +
                   Display.flex;

     

       147
       147
       +
                   Flexbox.(to_class (wrap `Wrap));

     

       148
       148
       +
                   Spacing.(to_class (gap `All (Size.rem 1.0)));

     

       149
       149
       +
                   Flexbox.(to_class (justify `Center));

     

       150
       150
       +
                 ])] [

     

       151
       151
       +
                   (* Hover color change *)

     

       152
       152
       +
                   El.button ~at:[classes_attr (tw [

     

       153
       153
       +
                     Color.bg (Color.make `Blue ~variant:`V500 ());

     

       154
       154
       +
                     Color.text Color.white;

     

       155
       155
       +
                     Spacing.(to_class (px (Size.rem 1.5)));

     

       156
       156
       +
                     Spacing.(to_class (py (Size.rem 0.75)));

     

       157
       157
       +
                     Effects.rounded_md;

     

       158
       158
       +
                     Typography.(to_class (font_weight `Medium));

     

       159
       159
       +
                     Effects.transition `All;

     

       160
       160
       +
                     Variants.hover (Color.bg (Color.make `Blue ~variant:`V600 ()));

     

       161
       161
       +
                   ])] [El.txt "Hover Color"];

     

       162
       162
       +
                   

     

       163
       163
       +
                   (* Hover shadow *)

     

       164
       164
       +
                   El.button ~at:[classes_attr (tw [

     

       165
       165
       +
                     Color.bg (Color.make `Green ~variant:`V500 ());

     

       166
       166
       +
                     Color.text Color.white;

     

       167
       167
       +
                     Spacing.(to_class (px (Size.rem 1.5)));

     

       168
       168
       +
                     Spacing.(to_class (py (Size.rem 0.75)));

     

       169
       169
       +
                     Effects.rounded_md;

     

       170
       170
       +
                     Typography.(to_class (font_weight `Medium));

     

       171
       171
       +
                     Effects.shadow_md;

     

       172
       172
       +
                     Effects.transition `All;

     

       173
       173
       +
                     Variants.hover Effects.shadow_lg;

     

       174
       174
       +
                   ])] [El.txt "Hover Shadow"];

     

       175
       175
       +
                   

     

       176
       176
       +
                   (* Scale effect *)

     

       177
       177
       +
                   El.button ~at:[classes_attr (tw [

     

       178
       178
       +
                     Color.bg (Color.make `Purple ~variant:`V500 ());

     

       179
       179
       +
                     Color.text Color.white;

     

       180
       180
       +
                     Spacing.(to_class (px (Size.rem 1.5)));

     

       181
       181
       +
                     Spacing.(to_class (py (Size.rem 0.75)));

     

       182
       182
       +
                     Effects.rounded_md;

     

       183
       183
       +
                     Typography.(to_class (font_weight `Medium));

     

       184
       184
       +
                     Effects.transition `All;

     

       185
       185
       +
                   ]); At.class' "hover:scale-105 active:scale-95"] [El.txt "Scale Effect"];

     

       186
       186
       +
                   

     

       187
       187
       +
                   (* Focus ring *)

     

       188
       188
       +
                   El.button ~at:[classes_attr (tw [

     

       189
       189
       +
                     Color.bg (Color.make `Red ~variant:`V500 ());

     

       190
       190
       +
                     Color.text Color.white;

     

       191
       191
       +
                     Spacing.(to_class (px (Size.rem 1.5)));

     

       192
       192
       +
                     Spacing.(to_class (py (Size.rem 0.75)));

     

       193
       193
       +
                     Effects.rounded_md;

     

       194
       194
       +
                     Typography.(to_class (font_weight `Medium));

     

       195
       195
       +
                     Effects.transition `All;

     

       196
       196
       +
                     Variants.focus Effects.shadow_md;

     

       197
       197
       +
                   ])] [El.txt "Focus Ring"];

     

       198
       198
       +
                 ];

     

       199
       199
       +
               ];

     

       200
       200
       +
               

     

       201
       201
       +
               (* Card Hover Effects *)

     

       202
       202
       +
               El.section ~at:[At.class' "mb-8"] [

     

       203
       203
       +
                 El.h2 ~at:[classes_attr (tw [

     

       204
       204
       +
                   Typography.(to_class (font_size `Xl));

     

       205
       205
       +
                   Typography.(to_class (font_weight `Semibold));

     

       206
       206
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       207
       207
       +
                 ]); At.class' "mb-6"] [El.txt "Card Hover Effects"];

     

       208
       208
       +
                 

     

       209
       209
       +
                 El.div ~at:[classes_attr (tw [

     

       210
       210
       +
                   Display.grid;

     

       211
       211
       +
                   Grid.(to_class (template_cols (`Cols 1)));

     

       212
       212
       +
                   Responsive.(to_class (at_breakpoint `Md (Grid.(to_class (template_cols (`Cols 2))))));

     

       213
       213
       +
                   Spacing.(to_class (gap `All (Size.rem 1.5)));

     

       214
       214
       +
                 ])] [

     

       215
       215
       +
                   (* Hover shadow card *)

     

       216
       216
       +
                   El.div ~at:[classes_attr (tw [

     

       217
       217
       +
                     Color.bg Color.white;

     

       218
       218
       +
                     Spacing.(to_class (p (Size.rem 1.5)));

     

       219
       219
       +
                     Effects.rounded_lg;

     

       220
       220
       +
                     Effects.shadow_md;

     

       221
       221
       +
                     Effects.transition `All;

     

       222
       222
       +
                     Variants.hover Effects.shadow_lg;

     

       223
       223
       +
                   ]); At.class' "cursor-pointer"] [

     

       224
       224
       +
                     El.h3 ~at:[classes_attr (tw [

     

       225
       225
       +
                       Typography.(to_class (font_size `Lg));

     

       226
       226
       +
                       Typography.(to_class (font_weight `Semibold));

     

       227
       227
       +
                       Color.text (Color.make `Gray ~variant:`V800 ());

     

       228
       228
       +
                     ]); At.class' "mb-2"] [El.txt "Shadow Lift"];

     

       229
       229
       +
                     El.p ~at:[classes_attr (tw [

     

       230
       230
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       231
       231
       +
                     ])] [El.txt "Hover to see the shadow increase. This creates a lifting effect."];

     

       232
       232
       +
                   ];

     

       233
       233
       +
                   

     

       234
       234
       +
                   (* Scale and shadow card *)

     

       235
       235
       +
                   El.div ~at:[classes_attr (tw [

     

       236
       236
       +
                     Color.bg Color.white;

     

       237
       237
       +
                     Spacing.(to_class (p (Size.rem 1.5)));

     

       238
       238
       +
                     Effects.rounded_lg;

     

       239
       239
       +
                     Effects.shadow_md;

     

       240
       240
       +
                     Effects.transition `All;

     

       241
       241
       +
                   ]); At.class' "cursor-pointer hover:scale-105 hover:shadow-xl"] [

     

       242
       242
       +
                     El.h3 ~at:[classes_attr (tw [

     

       243
       243
       +
                       Typography.(to_class (font_size `Lg));

     

       244
       244
       +
                       Typography.(to_class (font_weight `Semibold));

     

       245
       245
       +
                       Color.text (Color.make `Gray ~variant:`V800 ());

     

       246
       246
       +
                     ]); At.class' "mb-2"] [El.txt "Scale + Shadow"];

     

       247
       247
       +
                     El.p ~at:[classes_attr (tw [

     

       248
       248
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       249
       249
       +
                     ])] [El.txt "This card both scales up and increases shadow on hover."];

     

       250
       250
       +
                   ];

     

       251
       251
       +
                 ];

     

       252
       252
       +
               ];

     

       253
       253
       +
               

     

       254
       254
       +
               (* Border Effects *)

     

       255
       255
       +
               El.section [

     

       256
       256
       +
                 El.h2 ~at:[classes_attr (tw [

     

       257
       257
       +
                   Typography.(to_class (font_size `Xl));

     

       258
       258
       +
                   Typography.(to_class (font_weight `Semibold));

     

       259
       259
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       260
       260
       +
                 ]); At.class' "mb-6"] [El.txt "Border Effects"];

     

       261
       261
       +
                 

     

       262
       262
       +
                 El.div ~at:[classes_attr (tw [

     

       263
       263
       +
                   Display.grid;

     

       264
       264
       +
                   Grid.(to_class (template_cols (`Cols 1)));

     

       265
       265
       +
                   Responsive.(to_class (at_breakpoint `Md (Grid.(to_class (template_cols (`Cols 3))))));

     

       266
       266
       +
                   Spacing.(to_class (gap `All (Size.rem 1.5)));

     

       267
       267
       +
                 ])] [

     

       268
       268
       +
                   (* Regular border *)

     

       269
       269
       +
                   El.div ~at:[classes_attr (tw [

     

       270
       270
       +
                     Color.bg Color.white;

     

       271
       271
       +
                     Spacing.(to_class (p (Size.rem 1.5)));

     

       272
       272
       +
                     Effects.border;

     

       273
       273
       +
                     Color.border (Color.make `Gray ~variant:`V200 ());

     

       274
       274
       +
                     Effects.rounded_lg;

     

       275
       275
       +
                   ]); At.class' "text-center"] [

     

       276
       276
       +
                     El.h3 ~at:[classes_attr (tw [

     

       277
       277
       +
                       Typography.(to_class (font_weight `Semibold));

     

       278
       278
       +
                       Color.text (Color.make `Gray ~variant:`V700 ());

     

       279
       279
       +
                     ]); At.class' "mb-2"] [El.txt "Regular Border"];

     

       280
       280
       +
                     El.p ~at:[classes_attr (tw [

     

       281
       281
       +
                       Typography.(to_class (font_size `Sm));

     

       282
       282
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       283
       283
       +
                     ])] [El.txt "border border-gray-200"];

     

       284
       284
       +
                   ];

     

       285
       285
       +
                   

     

       286
       286
       +
                   (* Colored border *)

     

       287
       287
       +
                   El.div ~at:[classes_attr (tw [

     

       288
       288
       +
                     Color.bg Color.white;

     

       289
       289
       +
                     Spacing.(to_class (p (Size.rem 1.5)));

     

       290
       290
       +
                     Effects.border;

     

       291
       291
       +
                     Color.border (Color.make `Blue ~variant:`V300 ());

     

       292
       292
       +
                     Effects.rounded_lg;

     

       293
       293
       +
                   ]); At.class' "text-center"] [

     

       294
       294
       +
                     El.h3 ~at:[classes_attr (tw [

     

       295
       295
       +
                       Typography.(to_class (font_weight `Semibold));

     

       296
       296
       +
                       Color.text (Color.make `Blue ~variant:`V600 ());

     

       297
       297
       +
                     ]); At.class' "mb-2"] [El.txt "Colored Border"];

     

       298
       298
       +
                     El.p ~at:[classes_attr (tw [

     

       299
       299
       +
                       Typography.(to_class (font_size `Sm));

     

       300
       300
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       301
       301
       +
                     ])] [El.txt "border border-blue-300"];

     

       302
       302
       +
                   ];

     

       303
       303
       +
                   

     

       304
       304
       +
                   (* Thick border *)

     

       305
       305
       +
                   El.div ~at:[At.class' "bg-white p-6 border-2 border-purple-300 rounded-lg text-center"] [

     

       306
       306
       +
                     El.h3 ~at:[classes_attr (tw [

     

       307
       307
       +
                       Typography.(to_class (font_weight `Semibold));

     

       308
       308
       +
                       Color.text (Color.make `Purple ~variant:`V600 ());

     

       309
       309
       +
                     ]); At.class' "mb-2"] [El.txt "Thick Border"];

     

       310
       310
       +
                     El.p ~at:[classes_attr (tw [

     

       311
       311
       +
                       Typography.(to_class (font_size `Sm));

     

       312
       312
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       313
       313
       +
                     ])] [El.txt "border-2 border-purple-300"];

     

       314
       314
       +
                   ];

     

       315
       315
       +
                 ];

     

       316
       316
       +
               ];

     

       317
       317
       +
             ];

     

       318
       318
       +
           ];

     

       319
       319
       +
         ] in

     

       320
       320
       +
         html_doc

     

       321
       321
       +
       

     

       322
       322
       +
       let () =

     

       323
       323
       +
         (* Output HTML to stdout *)

     

       324
       324
       +
         let html_doc = create_effects_demo () in

     

       325
       325
       +
         let html_string = El.to_string ~doctype:true html_doc in

     

       326
       326
       +
         print_string html_string

+142

examples/hello_tailwind_01.ml

···

       1
       1
       +
       (* Example 01: Hello Tailwind - Your First Tailwind OCaml Program *)

     

       2
       2
       +
       

     

       3
       3
       +
       open Htmlit

     

       4
       4
       +
       open Tailwind

     

       5
       5
       +
       

     

       6
       6
       +
       let classes_attr tailwind_classes = 

     

       7
       7
       +
         At.class' (Tailwind.to_string tailwind_classes)

     

       8
       8
       +
       

     

       9
       9
       +
       let create_page () =

     

       10
       10
       +
         let hello_classes = tw [

     

       11
       11
       +
           Color.text (Color.make `Blue ~variant:`V600 ());

     

       12
       12
       +
           Typography.(to_class (font_size `Xl2));

     

       13
       13
       +
           Typography.(to_class (font_weight `Bold));

     

       14
       14
       +
           Spacing.(to_class (mb (Size.rem 1.0)));

     

       15
       15
       +
         ] in

     

       16
       16
       +
         

     

       17
       17
       +
         let body_classes = tw [

     

       18
       18
       +
           Layout.(to_class (min_height Size.screen));

     

       19
       19
       +
           Color.bg (Color.make `Gray ~variant:`V50 ());

     

       20
       20
       +
           Display.flex;

     

       21
       21
       +
           Flexbox.(to_class (align_items `Center));

     

       22
       22
       +
           Flexbox.(to_class (justify `Center));

     

       23
       23
       +
           Spacing.(to_class (p (Size.rem 2.0)));

     

       24
       24
       +
         ] in

     

       25
       25
       +
         

     

       26
       26
       +
         let container_classes = tw [

     

       27
       27
       +
           Layout.(to_class (max_width (Size.rem 42.0))); (* max-w-2xl is ~42rem *)

     

       28
       28
       +
           Spacing.(to_class (mx `Auto));

     

       29
       29
       +
           Typography.(to_class (text_align `Center));

     

       30
       30
       +
         ] in

     

       31
       31
       +
         

     

       32
       32
       +
         let paragraph_classes = tw [

     

       33
       33
       +
           Color.text (Color.make `Gray ~variant:`V600 ());

     

       34
       34
       +
           Spacing.(to_class (mb (Size.rem 1.5)));

     

       35
       35
       +
         ] in

     

       36
       36
       +
         

     

       37
       37
       +
         let card_classes = tw [

     

       38
       38
       +
           Color.bg Color.white;

     

       39
       39
       +
           Effects.rounded_lg;

     

       40
       40
       +
           Effects.shadow_sm;

     

       41
       41
       +
           Spacing.(to_class (p (Size.rem 1.5)));

     

       42
       42
       +
           Typography.(to_class (text_align `Left));

     

       43
       43
       +
         ] in

     

       44
       44
       +
         

     

       45
       45
       +
         let subheading_classes = tw [

     

       46
       46
       +
           Typography.(to_class (font_size `Lg));

     

       47
       47
       +
           Typography.(to_class (font_weight `Semibold));

     

       48
       48
       +
           Color.text (Color.make `Gray ~variant:`V800 ());

     

       49
       49
       +
           Spacing.(to_class (mb (Size.rem 0.75)));

     

       50
       50
       +
         ] in

     

       51
       51
       +
         

     

       52
       52
       +
         let code_block_classes = tw [

     

       53
       53
       +
           Color.bg (Color.make `Gray ~variant:`V100 ());

     

       54
       54
       +
           Spacing.(to_class (p (Size.rem 0.75)));

     

       55
       55
       +
           Effects.rounded_sm;

     

       56
       56
       +
           Typography.(to_class (font_size `Sm));

     

       57
       57
       +
           Layout.(to_class (overflow `X `Auto));

     

       58
       58
       +
         ] in

     

       59
       59
       +
         

     

       60
       60
       +
         let code_classes = tw [

     

       61
       61
       +
           Color.text (Color.make `Blue ~variant:`V600 ());

     

       62
       62
       +
         ] in

     

       63
       63
       +
         

     

       64
       64
       +
         let section_classes = tw [

     

       65
       65
       +
           Spacing.(to_class (mt (Size.rem 2.0)));

     

       66
       66
       +
           Spacing.(to_class (gap `Y (Size.rem 1.0)));

     

       67
       67
       +
         ] in

     

       68
       68
       +
         

     

       69
       69
       +
         let list_classes = tw [

     

       70
       70
       +
           Typography.(to_class (text_align `Left));

     

       71
       71
       +
           Spacing.(to_class (gap `Y (Size.rem 0.5)));

     

       72
       72
       +
           Color.text (Color.make `Gray ~variant:`V600 ());

     

       73
       73
       +
         ] in

     

       74
       74
       +
         

     

       75
       75
       +
         let list_item_classes = tw [

     

       76
       76
       +
           Display.flex;

     

       77
       77
       +
           Flexbox.(to_class (align_items `Start));

     

       78
       78
       +
         ] in

     

       79
       79
       +
         

     

       80
       80
       +
         let checkmark_classes = tw [

     

       81
       81
       +
           Color.text (Color.make `Green ~variant:`V500 ());

     

       82
       82
       +
           Spacing.(to_class (mr (Size.rem 0.5)));

     

       83
       83
       +
         ] in

     

       84
       84
       +
         

     

       85
       85
       +
         let html = El.html [

     

       86
       86
       +
           El.head [

     

       87
       87
       +
             El.meta ~at:[At.charset "utf-8"] ();

     

       88
       88
       +
             El.meta ~at:[At.name "viewport"; At.content "width=device-width, initial-scale=1"] ();

     

       89
       89
       +
             El.title [El.txt "Hello Tailwind"];

     

       90
       90
       +
             El.link ~at:[At.rel "stylesheet"; At.href "hello_tailwind_01.css"] ();

     

       91
       91
       +
           ];

     

       92
       92
       +
           El.body ~at:[classes_attr body_classes] [

     

       93
       93
       +
             El.div ~at:[classes_attr container_classes] [

     

       94
       94
       +
               El.h1 ~at:[classes_attr hello_classes] [

     

       95
       95
       +
                 El.txt "Hello, Tailwind OCaml!"

     

       96
       96
       +
               ];

     

       97
       97
       +
               El.p ~at:[classes_attr paragraph_classes] [

     

       98
       98
       +
                 El.txt "This is your first Tailwind OCaml program. ";

     

       99
       99
       +
                 El.txt "The heading above uses type-safe Tailwind classes."

     

       100
       100
       +
               ];

     

       101
       101
       +
               El.div ~at:[classes_attr card_classes] [

     

       102
       102
       +
                 El.h2 ~at:[classes_attr subheading_classes] [

     

       103
       103
       +
                   El.txt "Generated Classes:"

     

       104
       104
       +
                 ];

     

       105
       105
       +
                 El.pre ~at:[classes_attr code_block_classes] [

     

       106
       106
       +
                   El.code ~at:[classes_attr code_classes] [

     

       107
       107
       +
                     El.txt (to_string hello_classes)

     

       108
       108
       +
                   ];

     

       109
       109
       +
                 ];

     

       110
       110
       +
               ];

     

       111
       111
       +
               El.div ~at:[classes_attr section_classes] [

     

       112
       112
       +
                 El.h3 ~at:[classes_attr subheading_classes] [

     

       113
       113
       +
                   El.txt "What you're learning:"

     

       114
       114
       +
                 ];

     

       115
       115
       +
                 El.ul ~at:[classes_attr list_classes] [

     

       116
       116
       +
                   El.li ~at:[classes_attr list_item_classes] [

     

       117
       117
       +
                     El.span ~at:[classes_attr checkmark_classes] [El.txt "✓"];

     

       118
       118
       +
                     El.txt "Using the `tw` function to compose Tailwind classes"

     

       119
       119
       +
                   ];

     

       120
       120
       +
                   El.li ~at:[classes_attr list_item_classes] [

     

       121
       121
       +
                     El.span ~at:[classes_attr checkmark_classes] [El.txt "✓"];

     

       122
       122
       +
                     El.txt "Type-safe color creation with variants"

     

       123
       123
       +
                   ];

     

       124
       124
       +
                   El.li ~at:[classes_attr list_item_classes] [

     

       125
       125
       +
                     El.span ~at:[classes_attr checkmark_classes] [El.txt "✓"];

     

       126
       126
       +
                     El.txt "Typography utilities for font size and weight"

     

       127
       127
       +
                   ];

     

       128
       128
       +
                   El.li ~at:[classes_attr list_item_classes] [

     

       129
       129
       +
                     El.span ~at:[classes_attr checkmark_classes] [El.txt "✓"];

     

       130
       130
       +
                     El.txt "Converting Tailwind classes to HTML attributes"

     

       131
       131
       +
                   ];

     

       132
       132
       +
                 ];

     

       133
       133
       +
               ];

     

       134
       134
       +
             ];

     

       135
       135
       +
           ];

     

       136
       136
       +
         ] in

     

       137
       137
       +
         html

     

       138
       138
       +
       

     

       139
       139
       +
       let () =

     

       140
       140
       +
         (* Output HTML to stdout *)

     

       141
       141
       +
         let html = create_page () in

     

       142
       142
       +
         print_string (El.to_string ~doctype:true html)

examples/input.css

···

       1
       1
       +
       /* Tailwind CSS configuration for examples */

     

       2
       2
       +
       @tailwind base;

     

       3
       3
       +
       @tailwind components;

     

       4
       4
       +
       @tailwind utilities;

+176

examples/patterns_and_components_06.ml

···

       1
       1
       +
       (* Example 06: Patterns and Components - Reusable Layout Patterns *)

     

       2
       2
       +
       

     

       3
       3
       +
       open Htmlit

     

       4
       4
       +
       open Tailwind

     

       5
       5
       +
       

     

       6
       6
       +
       let classes_attr tailwind_classes = 

     

       7
       7
       +
         At.class' (Tailwind.to_string tailwind_classes)

     

       8
       8
       +
       

     

       9
       9
       +
       let create_patterns_demo () =

     

       10
       10
       +
         (* Create comprehensive patterns demonstration *)

     

       11
       11
       +
         let html_doc = El.html [

     

       12
       12
       +
           El.head [

     

       13
       13
       +
             El.meta ~at:[At.charset "utf-8"] ();

     

       14
       14
       +
             El.meta ~at:[At.name "viewport"; At.content "width=device-width, initial-scale=1"] ();

     

       15
       15
       +
             El.title [El.txt "Patterns and Components"];

     

       16
       16
       +
             El.link ~at:[At.rel "stylesheet"; At.href "patterns_and_components_06.css"] ();

     

       17
       17
       +
           ];

     

       18
       18
       +
           El.body ~at:[At.class' "min-h-screen bg-gray-50 p-8"] [

     

       19
       19
       +
             El.div ~at:[At.class' "max-w-6xl mx-auto"] [

     

       20
       20
       +
               El.h1 ~at:[classes_attr (tw [

     

       21
       21
       +
                 Typography.(to_class (font_size `Xl2));

     

       22
       22
       +
                 Typography.(to_class (font_weight `Bold));

     

       23
       23
       +
                 Color.text (Color.make `Gray ~variant:`V800 ());

     

       24
       24
       +
               ]); At.class' "mb-8 text-center"] [El.txt "Patterns and Components Demo"];

     

       25
       25
       +
               

     

       26
       26
       +
               (* Container Pattern *)

     

       27
       27
       +
               El.section ~at:[At.class' "mb-12"] [

     

       28
       28
       +
                 El.h2 ~at:[classes_attr (tw [

     

       29
       29
       +
                   Typography.(to_class (font_size `Xl));

     

       30
       30
       +
                   Typography.(to_class (font_weight `Semibold));

     

       31
       31
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       32
       32
       +
                 ]); At.class' "mb-6"] [El.txt "Container Pattern"];

     

       33
       33
       +
                 

     

       34
       34
       +
                 El.div ~at:[classes_attr (tw [Patterns.container ()]); At.class' "bg-white rounded-lg shadow-sm p-6"] [

     

       35
       35
       +
                   El.p ~at:[classes_attr (tw [

     

       36
       36
       +
                     Color.text (Color.make `Gray ~variant:`V600 ());

     

       37
       37
       +
                   ])] [El.txt "This content is inside a container pattern that centers content and provides responsive padding."];

     

       38
       38
       +
                 ];

     

       39
       39
       +
               ];

     

       40
       40
       +
               

     

       41
       41
       +
               (* Card Pattern *)

     

       42
       42
       +
               El.section ~at:[At.class' "mb-12"] [

     

       43
       43
       +
                 El.h2 ~at:[classes_attr (tw [

     

       44
       44
       +
                   Typography.(to_class (font_size `Xl));

     

       45
       45
       +
                   Typography.(to_class (font_weight `Semibold));

     

       46
       46
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       47
       47
       +
                 ]); At.class' "mb-6"] [El.txt "Card Pattern"];

     

       48
       48
       +
                 

     

       49
       49
       +
                 El.div ~at:[At.class' "grid grid-cols-1 md:grid-cols-3 gap-6"] [

     

       50
       50
       +
                   El.div ~at:[classes_attr (tw [Patterns.card]); At.class' "p-6"] [

     

       51
       51
       +
                     El.h3 ~at:[classes_attr (tw [

     

       52
       52
       +
                       Typography.(to_class (font_size `Lg));

     

       53
       53
       +
                       Typography.(to_class (font_weight `Semibold));

     

       54
       54
       +
                       Color.text (Color.make `Gray ~variant:`V800 ());

     

       55
       55
       +
                     ]); At.class' "mb-2"] [El.txt "Card One"];

     

       56
       56
       +
                     El.p ~at:[classes_attr (tw [

     

       57
       57
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       58
       58
       +
                     ])] [El.txt "This is a card using the built-in card pattern."];

     

       59
       59
       +
                   ];

     

       60
       60
       +
                   

     

       61
       61
       +
                   El.div ~at:[classes_attr (tw [Patterns.card]); At.class' "p-6"] [

     

       62
       62
       +
                     El.h3 ~at:[classes_attr (tw [

     

       63
       63
       +
                       Typography.(to_class (font_size `Lg));

     

       64
       64
       +
                       Typography.(to_class (font_weight `Semibold));

     

       65
       65
       +
                       Color.text (Color.make `Gray ~variant:`V800 ());

     

       66
       66
       +
                     ]); At.class' "mb-2"] [El.txt "Card Two"];

     

       67
       67
       +
                     El.p ~at:[classes_attr (tw [

     

       68
       68
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       69
       69
       +
                     ])] [El.txt "Another card with the same styling pattern applied."];

     

       70
       70
       +
                   ];

     

       71
       71
       +
                   

     

       72
       72
       +
                   El.div ~at:[classes_attr (tw [Patterns.card]); At.class' "p-6"] [

     

       73
       73
       +
                     El.h3 ~at:[classes_attr (tw [

     

       74
       74
       +
                       Typography.(to_class (font_size `Lg));

     

       75
       75
       +
                       Typography.(to_class (font_weight `Semibold));

     

       76
       76
       +
                       Color.text (Color.make `Gray ~variant:`V800 ());

     

       77
       77
       +
                     ]); At.class' "mb-2"] [El.txt "Card Three"];

     

       78
       78
       +
                     El.p ~at:[classes_attr (tw [

     

       79
       79
       +
                       Color.text (Color.make `Gray ~variant:`V600 ());

     

       80
       80
       +
                     ])] [El.txt "A third card demonstrating consistent styling."];

     

       81
       81
       +
                   ];

     

       82
       82
       +
                 ];

     

       83
       83
       +
               ];

     

       84
       84
       +
               

     

       85
       85
       +
               (* Flex Center Pattern *)

     

       86
       86
       +
               El.section ~at:[At.class' "mb-12"] [

     

       87
       87
       +
                 El.h2 ~at:[classes_attr (tw [

     

       88
       88
       +
                   Typography.(to_class (font_size `Xl));

     

       89
       89
       +
                   Typography.(to_class (font_weight `Semibold));

     

       90
       90
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       91
       91
       +
                 ]); At.class' "mb-6"] [El.txt "Flex Center Pattern"];

     

       92
       92
       +
                 

     

       93
       93
       +
                 El.div ~at:[classes_attr (tw [Patterns.flex_center]); At.class' "bg-blue-50 rounded-lg h-32"] [

     

       94
       94
       +
                   El.p ~at:[classes_attr (tw [

     

       95
       95
       +
                     Color.text (Color.make `Blue ~variant:`V600 ());

     

       96
       96
       +
                     Typography.(to_class (font_weight `Medium));

     

       97
       97
       +
                   ])] [El.txt "This content is perfectly centered using flex_center pattern"];

     

       98
       98
       +
                 ];

     

       99
       99
       +
               ];

     

       100
       100
       +
               

     

       101
       101
       +
               (* Stack Pattern *)

     

       102
       102
       +
               El.section ~at:[At.class' "mb-12"] [

     

       103
       103
       +
                 El.h2 ~at:[classes_attr (tw [

     

       104
       104
       +
                   Typography.(to_class (font_size `Xl));

     

       105
       105
       +
                   Typography.(to_class (font_weight `Semibold));

     

       106
       106
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       107
       107
       +
                 ]); At.class' "mb-6"] [El.txt "Stack Pattern"];

     

       108
       108
       +
                 

     

       109
       109
       +
                 El.div ~at:[classes_attr (tw [Patterns.stack ~gap:(Size.rem 1.0) ()]); At.class' "bg-white rounded-lg shadow-sm p-6"] [

     

       110
       110
       +
                   El.div ~at:[classes_attr (tw [

     

       111
       111
       +
                     Color.bg (Color.make `Green ~variant:`V50 ());

     

       112
       112
       +
                     Spacing.(to_class (p (Size.rem 1.0)));

     

       113
       113
       +
                     Effects.rounded_md;

     

       114
       114
       +
                   ])] [El.txt "Stack Item 1"];

     

       115
       115
       +
                   

     

       116
       116
       +
                   El.div ~at:[classes_attr (tw [

     

       117
       117
       +
                     Color.bg (Color.make `Blue ~variant:`V50 ());

     

       118
       118
       +
                     Spacing.(to_class (p (Size.rem 1.0)));

     

       119
       119
       +
                     Effects.rounded_md;

     

       120
       120
       +
                   ])] [El.txt "Stack Item 2"];

     

       121
       121
       +
                   

     

       122
       122
       +
                   El.div ~at:[classes_attr (tw [

     

       123
       123
       +
                     Color.bg (Color.make `Purple ~variant:`V50 ());

     

       124
       124
       +
                     Spacing.(to_class (p (Size.rem 1.0)));

     

       125
       125
       +
                     Effects.rounded_md;

     

       126
       126
       +
                   ])] [El.txt "Stack Item 3"];

     

       127
       127
       +
                 ];

     

       128
       128
       +
               ];

     

       129
       129
       +
               

     

       130
       130
       +
               (* Inline Stack Pattern *)

     

       131
       131
       +
               El.section [

     

       132
       132
       +
                 El.h2 ~at:[classes_attr (tw [

     

       133
       133
       +
                   Typography.(to_class (font_size `Xl));

     

       134
       134
       +
                   Typography.(to_class (font_weight `Semibold));

     

       135
       135
       +
                   Color.text (Color.make `Gray ~variant:`V700 ());

     

       136
       136
       +
                 ]); At.class' "mb-6"] [El.txt "Inline Stack Pattern"];

     

       137
       137
       +
                 

     

       138
       138
       +
                 El.div ~at:[classes_attr (tw [Patterns.inline_stack ~gap:(Size.rem 1.0) ()]); At.class' "bg-white rounded-lg shadow-sm p-6"] [

     

       139
       139
       +
                   El.span ~at:[classes_attr (tw [

     

       140
       140
       +
                     Color.bg (Color.make `Red ~variant:`V50 ());

     

       141
       141
       +
                     Color.text (Color.make `Red ~variant:`V600 ());

     

       142
       142
       +
                     Spacing.(to_class (px (Size.rem 0.75)));

     

       143
       143
       +
                     Spacing.(to_class (py (Size.rem 0.5)));

     

       144
       144
       +
                     Effects.rounded_full;

     

       145
       145
       +
                     Typography.(to_class (font_size `Sm));

     

       146
       146
       +
                   ])] [El.txt "Tag 1"];

     

       147
       147
       +
                   

     

       148
       148
       +
                   El.span ~at:[classes_attr (tw [

     

       149
       149
       +
                     Color.bg (Color.make `Yellow ~variant:`V50 ());

     

       150
       150
       +
                     Color.text (Color.make `Yellow ~variant:`V600 ());

     

       151
       151
       +
                     Spacing.(to_class (px (Size.rem 0.75)));

     

       152
       152
       +
                     Spacing.(to_class (py (Size.rem 0.5)));

     

       153
       153
       +
                     Effects.rounded_full;

     

       154
       154
       +
                     Typography.(to_class (font_size `Sm));

     

       155
       155
       +
                   ])] [El.txt "Tag 2"];

     

       156
       156
       +
                   

     

       157
       157
       +
                   El.span ~at:[classes_attr (tw [

     

       158
       158
       +
                     Color.bg (Color.make `Indigo ~variant:`V50 ());

     

       159
       159
       +
                     Color.text (Color.make `Indigo ~variant:`V600 ());

     

       160
       160
       +
                     Spacing.(to_class (px (Size.rem 0.75)));

     

       161
       161
       +
                     Spacing.(to_class (py (Size.rem 0.5)));

     

       162
       162
       +
                     Effects.rounded_full;

     

       163
       163
       +
                     Typography.(to_class (font_size `Sm));

     

       164
       164
       +
                   ])] [El.txt "Tag 3"];

     

       165
       165
       +
                 ];

     

       166
       166
       +
               ];

     

       167
       167
       +
             ];

     

       168
       168
       +
           ];

     

       169
       169
       +
         ] in

     

       170
       170
       +
         html_doc

     

       171
       171
       +
       

     

       172
       172
       +
       let () =

     

       173
       173
       +
         (* Output HTML to stdout *)

     

       174
       174
       +
         let html_doc = create_patterns_demo () in

     

       175
       175
       +
         let html_string = El.to_string ~doctype:true html_doc in

     

       176
       176
       +
         print_string html_string

+80

lib/tailwind-html/cli.ml

···

       1
       1
       +
       (** Tailwind CLI integration for CSS processing *)

     

       2
       2
       +
       

     

       3
       3
       +
       open Unix

     

       4
       4
       +
       

     

       5
       5
       +
       type config = {

     

       6
       6
       +
         input_css: string;  (** Path to input CSS file with Tailwind directives *)

     

       7
       7
       +
         output_css: string; (** Path to output CSS file *)

     

       8
       8
       +
         content: string list; (** List of content paths to scan for classes *)

     

       9
       9
       +
         minify: bool; (** Whether to minify the output *)

     

       10
       10
       +
       }

     

       11
       11
       +
       

     

       12
       12
       +
       let default_config = {

     

       13
       13
       +
         input_css = "input.css";

     

       14
       14
       +
         output_css = "output.css";

     

       15
       15
       +
         content = ["*.html"; "*.ml"];

     

       16
       16
       +
         minify = true;

     

       17
       17
       +
       }

     

       18
       18
       +
       

     

       19
       19
       +
       (** Check if Tailwind CLI is available *)

     

       20
       20
       +
       let check_tailwind_cli () =

     

       21
       21
       +
         try

     

       22
       22
       +
           let ic = open_process_in "npx @tailwindcss/cli --help 2>/dev/null" in

     

       23
       23
       +
           let _ = input_line ic in

     

       24
       24
       +
           let status = close_process_in ic in

     

       25
       25
       +
           status = WEXITED 0

     

       26
       26
       +
         with _ -> false

     

       27
       27
       +
       

     

       28
       28
       +
       (** Generate Tailwind CSS from input file *)

     

       29
       29
       +
       let process_css config =

     

       30
       30
       +
         if not (check_tailwind_cli ()) then

     

       31
       31
       +
           failwith "Tailwind CLI not found. Install with: npm install -D @tailwindcss/cli"

     

       32
       32
       +
         else

     

       33
       33
       +
           let content_args = String.concat " " (List.map (fun p -> Printf.sprintf "--content '%s'" p) config.content) in

     

       34
       34
       +
           let minify_flag = if config.minify then "--minify" else "" in

     

       35
       35
       +
           let cmd = Printf.sprintf "npx @tailwindcss/cli -i %s -o %s %s %s 2>&1"

     

       36
       36
       +
             config.input_css

     

       37
       37
       +
             config.output_css

     

       38
       38
       +
             content_args

     

       39
       39
       +
             minify_flag

     

       40
       40
       +
           in

     

       41
       41
       +
           let ic = open_process_in cmd in

     

       42
       42
       +
           let rec read_output acc =

     

       43
       43
       +
             try

     

       44
       44
       +
               let line = input_line ic in

     

       45
       45
       +
               read_output (line :: acc)

     

       46
       46
       +
             with End_of_file ->

     

       47
       47
       +
               List.rev acc

     

       48
       48
       +
           in

     

       49
       49
       +
           let output = read_output [] in

     

       50
       50
       +
           let status = close_process_in ic in

     

       51
       51
       +
           match status with

     

       52
       52
       +
           | WEXITED 0 -> Ok output

     

       53
       53
       +
           | WEXITED n -> Error (Printf.sprintf "Tailwind CLI exited with code %d:\n%s" n (String.concat "\n" output))

     

       54
       54
       +
           | _ -> Error "Tailwind CLI terminated abnormally"

     

       55
       55
       +
       

     

       56
       56
       +
       (** Process CSS for a specific HTML file *)

     

       57
       57
       +
       let process_for_html ~input_css ~html_file ~output_css ?(minify=true) () =

     

       58
       58
       +
         let config = {

     

       59
       59
       +
           input_css;

     

       60
       60
       +
           output_css;

     

       61
       61
       +
           content = [html_file];

     

       62
       62
       +
           minify;

     

       63
       63
       +
         } in

     

       64
       64
       +
         process_css config

     

       65
       65
       +
       

     

       66
       66
       +
       (** Write HTML to file and process CSS *)

     

       67
       67
       +
       let write_and_process ~html_content ~html_file ~input_css ~output_css () =

     

       68
       68
       +
         (* Write HTML to file *)

     

       69
       69
       +
         let oc = open_out html_file in

     

       70
       70
       +
         output_string oc html_content;

     

       71
       71
       +
         close_out oc;

     

       72
       72
       +
         

     

       73
       73
       +
         (* Process CSS *)

     

       74
       74
       +
         match process_for_html ~input_css ~html_file ~output_css () with

     

       75
       75
       +
         | Ok _ -> 

     

       76
       76
       +
           Printf.eprintf "✅ Generated %s and %s\n" html_file output_css;

     

       77
       77
       +
           Ok ()

     

       78
       78
       +
         | Error msg ->

     

       79
       79
       +
           Printf.eprintf "❌ CSS processing failed: %s\n" msg;

     

       80
       80
       +
           Error msg

+34

lib/tailwind-html/cli.mli

···

       1
       1
       +
       (** Tailwind CLI integration for CSS processing *)

     

       2
       2
       +
       

     

       3
       3
       +
       type config = {

     

       4
       4
       +
         input_css: string;  (** Path to input CSS file with Tailwind directives *)

     

       5
       5
       +
         output_css: string; (** Path to output CSS file *)

     

       6
       6
       +
         content: string list; (** List of content paths to scan for classes *)

     

       7
       7
       +
         minify: bool; (** Whether to minify the output *)

     

       8
       8
       +
       }

     

       9
       9
       +
       

     

       10
       10
       +
       val default_config : config

     

       11
       11
       +
       

     

       12
       12
       +
       (** Check if Tailwind CLI is available *)

     

       13
       13
       +
       val check_tailwind_cli : unit -> bool

     

       14
       14
       +
       

     

       15
       15
       +
       (** Generate Tailwind CSS from input file *)

     

       16
       16
       +
       val process_css : config -> (string list, string) result

     

       17
       17
       +
       

     

       18
       18
       +
       (** Process CSS for a specific HTML file *)

     

       19
       19
       +
       val process_for_html :

     

       20
       20
       +
         input_css:string ->

     

       21
       21
       +
         html_file:string ->

     

       22
       22
       +
         output_css:string ->

     

       23
       23
       +
         ?minify:bool ->

     

       24
       24
       +
         unit ->

     

       25
       25
       +
         (string list, string) result

     

       26
       26
       +
       

     

       27
       27
       +
       (** Write HTML to file and process CSS *)

     

       28
       28
       +
       val write_and_process :

     

       29
       29
       +
         html_content:string ->

     

       30
       30
       +
         html_file:string ->

     

       31
       31
       +
         input_css:string ->

     

       32
       32
       +
         output_css:string ->

     

       33
       33
       +
         unit ->

     

       34
       34
       +
         (unit, string) result