package oxbow

  1. Overview
  2. Docs

Source file border_target.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type t =
  | Focused [@name "focused"]
  | Unfocused [@name "unfocused"]
  | Urgent [@name "urgent"]
  | Swallowing [@name "swallowing"]
  | Captured [@name "captured"]
[@@deriving yojson]

let all = [ Focused; Unfocused; Urgent; Swallowing; Captured ]

let to_string = function
  | Focused -> "focused"
  | Unfocused -> "unfocused"
  | Urgent -> "urgent"
  | Swallowing -> "swallowing"
  | Captured -> "captured"
;;