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/direction.ml.html

Source file direction.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
module Logical = struct
  type t =
    | Next [@name "next"]
    | Prev [@name "prev"]
  [@@deriving yojson]

  let to_string = function
    | Next -> "next"
    | Prev -> "prev"
  ;;

  let of_string s =
    match String.lowercase_ascii s |> String.trim with
    | "next" -> Some Next
    | "prev" -> Some Prev
    | _ -> None
  ;;
end

module Spatial = struct
  type t =
    | Up [@name "up"]
    | Down [@name "down"]
    | Left [@name "left"]
    | Right [@name "right"]
  [@@deriving yojson]

  let to_string = function
    | Up -> "up"
    | Down -> "down"
    | Left -> "left"
    | Right -> "right"
  ;;

  let of_string s =
    match String.lowercase_ascii s |> String.trim with
    | "up" -> Some Up
    | "down" -> Some Down
    | "left" -> Some Left
    | "right" -> Some Right
    | _ -> None
  ;;
end

type t =
  | Logical of Logical.t [@name "logical"]
  | Spatial of Spatial.t [@name "spatial"]
[@@deriving yojson]

let to_string = function
  | Logical d -> Logical.to_string d
  | Spatial d -> Spatial.to_string d
;;

let of_string s =
  match Logical.of_string s with
  | Some d -> Some (Logical d)
  | None ->
    (match Spatial.of_string s with
     | Some d -> Some (Spatial d)
     | None -> None)
;;