package oxbow

  1. Overview
  2. Docs
Dynamic window manager for the river Wayland compositor

Install 

dune-project
 Dependency

github.com Readme Edit opam file Versions (1)

Authors

  1. 3
    3L0C

Maintainers

  1. 3
    3L0C

Sources

v0.1.0.tar.gz
md5=a637acaa0e19046cd65fff733874eb97
sha512=76230cbecd7510de7a05b5d1f335915ef7b6c4aa557d8dbfd23591606618d2cfa25082d17b93f2f4b53a118d1cbf6a80e4ad51cf0f099b4921fb83d6df0c9801

doc/src/oxbow.core/sticky.ml.html

Source file sticky.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
module Toggle = struct
  type t =
    | Occupied [@name "occupied"]
    | All [@name "all"]
  [@@deriving yojson]

  let all = [ Occupied; All ]

  let to_string = function
    | Occupied -> "occupied"
    | All -> "all"
  ;;
end

type t =
  | Off [@name "off"]
  | Occupied [@name "occupied"]
  | All [@name "all"]
[@@deriving yojson]

let all = [ Off; Occupied; All ]

let to_string = function
  | Off -> "off"
  | Occupied -> "occupied"
  | All -> "all"
;;

let of_toggle toggle =
  match toggle with
  | Toggle.Occupied -> Occupied
  | Toggle.All -> All
;;