Source file `app__generated.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
include struct
  [@@@ocaml.warning "-32"]
  let () =
    Inline_css.Private.append
      {|
/* _none_ */

@layer kado.app{
 *:root:has(.app_hash_3598a20e50) {
  font-family:"Inter",sans-serif;
  accent-color:#1ba1f2
 }
 
 *.app_hash_3598a20e50.set-min-height-to-100vh_hash_3598a20e50 {
  min-height:100vh
 }
 
 *:root:has(.app_hash_3598a20e50.dark_hash_3598a20e50),*.app_hash_3598a20e50.dark_hash_3598a20e50 {
  color-scheme:dark;
  background:var(--bg_hash_3598a20e50,#1a1d21)
 }
 
 *:root:has(.app_hash_3598a20e50.light_hash_3598a20e50),*.app_hash_3598a20e50.light_hash_3598a20e50 {
  color-scheme:light;
  background:var(--bg_hash_3598a20e50,#e5e2de)
 }
 
 *:root:has(.app_hash_3598a20e50) *::selection {
  background:#1ba1f2;
  color:white
 }
 
 *:root:has(.app_hash_3598a20e50) *,*:root:has(.app_hash_3598a20e50) *::before,*:root:has(.app_hash_3598a20e50) *::after {
  box-sizing:border-box
 }
 
}|}
  let (__type_info_for_ppx_css :
    ?rewrite:(string * string) list ->
      ?dont_hash:string list ->
        ?dont_hash_prefixes:string list -> string -> unit)
    =
    fun ?rewrite:_ ->
      fun ?dont_hash:_ -> fun ?dont_hash_prefixes:_ -> fun _ -> ()
  module type S  =
    sig
      module Variables :
      sig val set : ?bg:string -> unit -> Virtual_dom.Vdom.Attr.t end
      module For_referencing :
      sig
        val app : string
        val bg : string
        val dark : string
        val light : string
        val set_min_height_to_100vh : string
      end
      val app : Virtual_dom.Vdom.Attr.t
      val dark : Virtual_dom.Vdom.Attr.t
      val light : Virtual_dom.Vdom.Attr.t
      val set_min_height_to_100vh : Virtual_dom.Vdom.Attr.t
    end
  type t = (module S)
  module Default : S =
    struct
      module Variables =
        struct
          let set ?bg  () =
            let ppx_css_acc__001_ = [] in
            let ppx_css_acc__001_ =
              match bg with
              | None -> ppx_css_acc__001_
              | Some ppx_css_value__002_ ->
                  ({|--bg_hash_3598a20e50|}, ppx_css_value__002_) ::
                  ppx_css_acc__001_ in
            Virtual_dom.Vdom.Attr.__css_vars_no_kebabs ppx_css_acc__001_
        end
      module For_referencing =
        struct
          let light = {|light_hash_3598a20e50|}
          let app = {|app_hash_3598a20e50|}
          let dark = {|dark_hash_3598a20e50|}
          let set_min_height_to_100vh =
            {|set-min-height-to-100vh_hash_3598a20e50|}
          let bg = {|--bg_hash_3598a20e50|}
        end
      let light = Virtual_dom.Vdom.Attr.class_ {|light_hash_3598a20e50|}
      let app = Virtual_dom.Vdom.Attr.class_ {|app_hash_3598a20e50|}
      let dark = Virtual_dom.Vdom.Attr.class_ {|dark_hash_3598a20e50|}
      let set_min_height_to_100vh =
        Virtual_dom.Vdom.Attr.class_
          {|set-min-height-to-100vh_hash_3598a20e50|}
    end 
  include Default
  let default : t = (module Default) end