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

Source file record.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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
open! Ppx_yojson_conv_lib.Yojson_conv

module Tags = struct
  type t =
    { output : string
    ; viewed : int list
    ; occupied : int list
    ; urgent : int list
    ; focused : int list
    }
  [@@deriving yojson]
end

module Window = struct
  type t =
    { id : int
    ; identifier : string option
    ; title : string option
    ; app_id : string option
    ; output : string option
    ; tags : int list
    ; focused : bool
    ; urgent : bool
    ; captured : bool
    ; hidden : bool
    ; presentation : string
    ; sticky : string
    ; scratchpad : string option
    ; stashed : bool
    ; swallowing : bool
    ; labels : string list
    }
  [@@deriving yojson]
end

module Output = struct
  type t =
    { name : string option
    ; labels : string list
    ; focused : bool
    ; captured : bool
    }
  [@@deriving yojson]
end

module Layout = struct
  type t =
    { output : string
    ; layout : string
    ; scheme : string option
    ; symbol : string
    }
  [@@deriving yojson]
end

module Mode = struct
  type t =
    { seat : string
    ; mode : string
    }
  [@@deriving yojson]
end

module Focus = struct
  type t =
    { seat : string
    ; output : string option
    ; title : string option
    ; app_id : string option
    ; tags : int list option
    }
  [@@deriving yojson]
end

type t =
  | Tags
  | Window
  | Layout
  | Mode
  | Focus
  | Output

let all = [ Tags; Window; Layout; Mode; Focus; Output ]
let equal (a : t) (b : t) = a = b

let of_string = function
  | "tags" -> Ok Tags
  | "window" -> Ok Window
  | "layout" -> Ok Layout
  | "mode" -> Ok Mode
  | "focus" -> Ok Focus
  | "output" -> Ok Output
  | s -> Error (Printf.sprintf "unrecognized event kind: %s" s)
;;

let to_string = function
  | Tags -> "tags"
  | Window -> "window"
  | Layout -> "layout"
  | Mode -> "mode"
  | Focus -> "focus"
  | Output -> "output"
;;

let t_of_yojson = function
  | `String s ->
    (match of_string s with
     | Ok t -> t
     | Error msg -> failwith msg)
  | j -> of_yojson_error "Record.t_of_yojson: string expected" j
;;

let yojson_of_t t = `String (to_string t)