package oxbow

  1. Overview
  2. Docs

Source file focus_follows_policy.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
type t =
  | Never [@name "never"]
  | Always [@name "always"]
  | Not_scrolling [@name "not_scrolling"]
[@@deriving yojson]

let all = [ Never; Always; Not_scrolling ]

let to_string = function
  | Never -> "never"
  | Always -> "always"
  | Not_scrolling -> "not-scrolling"
;;

let cycle = function
  | Never -> Always
  | Always -> Not_scrolling
  | Not_scrolling -> Never
;;