Source file `tabs_style__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
include struct
  [@@@ocaml.warning "-32"]
  let () =
    Inline_css.Private.append
      {|
/* _none_ */

@layer kado.tabs{
 *.tab_container_hash_175f2e8d1a {
  display:flex;
  gap:0.5em
 }
 
 *.tab_button_hash_175f2e8d1a {
  color:var(--fg_hash_175f2e8d1a);
  text-underline-offset:3px;
  opacity:0.5;
  cursor:pointer;
  user-select:none
 }
 
 *.tab_button_hash_175f2e8d1a.selected_hash_175f2e8d1a,*.tab_button_hash_175f2e8d1a.selected_hash_175f2e8d1a:hover {
  text-decoration:underline 1px
 }
 
 *.tab_button_hash_175f2e8d1a.selected_hash_175f2e8d1a,*.tab_button_hash_175f2e8d1a.selected_hash_175f2e8d1a:hover {
  opacity:1.0
 }
 
 *.tab_button_hash_175f2e8d1a:hover {
  opacity:0.9
 }
 
 *.tab_button_hash_175f2e8d1a:hover {
  text-decoration:underline;
  text-decoration-style:dashed
 }
 
}|}
  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 : ?fg:string -> unit -> Virtual_dom.Vdom.Attr.t end
      module For_referencing :
      sig
        val fg : string
        val selected : string
        val tab_button : string
        val tab_container : string
      end
      val selected : Virtual_dom.Vdom.Attr.t
      val tab_button : Virtual_dom.Vdom.Attr.t
      val tab_container : Virtual_dom.Vdom.Attr.t
    end
  type t = (module S)
  module Default : S =
    struct
      module Variables =
        struct
          let set ?fg  () =
            let ppx_css_acc__001_ = [] in
            let ppx_css_acc__001_ =
              match fg with
              | None -> ppx_css_acc__001_
              | Some ppx_css_value__002_ ->
                  ({|--fg_hash_175f2e8d1a|}, 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 tab_container = {|tab_container_hash_175f2e8d1a|}
          let tab_button = {|tab_button_hash_175f2e8d1a|}
          let selected = {|selected_hash_175f2e8d1a|}
          let fg = {|--fg_hash_175f2e8d1a|}
        end
      let tab_container =
        Virtual_dom.Vdom.Attr.class_ {|tab_container_hash_175f2e8d1a|}
      let tab_button =
        Virtual_dom.Vdom.Attr.class_ {|tab_button_hash_175f2e8d1a|}
      let selected =
        Virtual_dom.Vdom.Attr.class_ {|selected_hash_175f2e8d1a|}
    end 
  include Default
  let default : t = (module Default) end