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
include struct
  open
    struct
      [@@@ocaml.warning "-60"]
      module Ppx_css_hoister_do_not_collide =
        struct
          let sheet_x__001___6d5b767a5a__0 =
            let sheet = Inline_css.Private.create_stylesheet () in
            Inline_css.Private.append_stylesheet sheet; sheet
          let () =
            Inline_css.Private.update_stylesheet sheet_x__001___6d5b767a5a__0
              {|
/* app.css */

@layer kado.app {
  .app_hash_6d5b767a5a.set-min-height-to-100vh_hash_6d5b767a5a {
    min-height: 100vh;
  }
  .app_hash_6d5b767a5a.dark_hash_6d5b767a5a {
    color-scheme: dark;
    background: var(--bg_hash_6d5b767a5a, #1a1d21);
  }
  .app_hash_6d5b767a5a.light_hash_6d5b767a5a {
    color-scheme: light;
    background: var(--bg_hash_6d5b767a5a, #e5e2de);
  }
}|}
        end
    end
  [@@@ocaml.warning "-32"]
  let __type_info_for_ppx_css :
    ?dont_hash:string list ->
      ?dont_hash_prefixes:string list -> string -> unit
    = fun ?dont_hash:_  ?dont_hash_prefixes:_  _ -> ()
  module type S  =
    sig
      module Variables :
      sig
        val set : ?bg:string -> unit -> Virtual_dom.Vdom.Attr.t
        val set_all : bg:string -> 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 ppx_css_variable_set__004_ ?bg () =
            let ppx_css_acc__002_ = [] in
            let ppx_css_acc__002_ =
              match bg with
              | None -> ppx_css_acc__002_
              | Some ppx_css_value__003_ ->
                  ({|--bg_hash_6d5b767a5a|}, ppx_css_value__003_) ::
                  ppx_css_acc__002_ in
            Virtual_dom.Vdom.Attr.__css_vars_no_kebabs ppx_css_acc__002_
          let set = ppx_css_variable_set__004_
          let set_all ~bg = ppx_css_variable_set__004_ () ~bg
        end
      module For_referencing =
        struct
          let app = {|app_hash_6d5b767a5a|}
          let bg = {|--bg_hash_6d5b767a5a|}
          let dark = {|dark_hash_6d5b767a5a|}
          let light = {|light_hash_6d5b767a5a|}
          let set_min_height_to_100vh =
            {|set-min-height-to-100vh_hash_6d5b767a5a|}
        end
      let app = Virtual_dom.Vdom.Attr.class_ {|app_hash_6d5b767a5a|}
      let dark = Virtual_dom.Vdom.Attr.class_ {|dark_hash_6d5b767a5a|}
      let light = Virtual_dom.Vdom.Attr.class_ {|light_hash_6d5b767a5a|}
      let set_min_height_to_100vh =
        Virtual_dom.Vdom.Attr.class_
          {|set-min-height-to-100vh_hash_6d5b767a5a|}
    end 
  include Default
  let default : t = (module Default) end