package styled-ppx

  1. Overview
  2. Docs

Source file Rule.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
type rule =
  | Declaration of string * string
  | Selector of string array * rule array

let camel_case_to_kebab_case str =
  let len = String.length str in
  let extra_space_for_dashes = 10 in
  let buffer = Buffer.create (len + extra_space_for_dashes) in
  for i = 0 to len - 1 do
    let c = str.[i] in
    match c with
    | 'A' .. 'Z' ->
      Buffer.add_char buffer '-';
      Buffer.add_char buffer (Char.lowercase_ascii c)
    | _ -> Buffer.add_char buffer c
  done;
  Buffer.contents buffer

let declaration (property, value) =
  Declaration (camel_case_to_kebab_case property, value)

let selector selector rules = Selector ([| selector |], rules)
let selectorMany selector_list rules = Selector (selector_list, rules)
let media query rules = Selector ([| {|@media |} ^ query |], rules)

let important v =
  match v with
  | Declaration (name, value) -> Declaration (name, value ^ {js| !important|js})
  | Selector (_, _) -> v