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

Source file event.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
open! Ppx_yojson_conv_lib.Yojson_conv

module Subscribe = struct
  type t =
    { kinds : Record.t list
    ; output : string option
    }
  [@@deriving yojson]
end

type t =
  | Tags of Record.Tags.t
  | Window of Record.Window.t
  | Window_cleared of string
  | Layout of Record.Layout.t
  | Mode of Record.Mode.t
  | Focus of Record.Focus.t
  | Output of Record.Output.t

let kind = function
  | Tags _ -> Record.Tags
  | Window _ | Window_cleared _ -> Record.Window
  | Layout _ -> Record.Layout
  | Mode _ -> Record.Mode
  | Focus _ -> Record.Focus
  | Output _ -> Record.Output
;;

let source = function
  | Tags { output = s; _ }
  | Window { output = Some s; _ }
  | Layout { output = s; _ }
  | Mode { seat = s; _ }
  | Focus { seat = s; _ }
  | Output { name = Some s; _ } -> Ok s
  | Window_cleared s -> Ok s
  | Window { output = None; _ } -> Error "window without any output"
  | Output { name = None; _ } -> Error "output without a name"
;;

let to_line t =
  let json k = function
    | `Assoc fields -> `Assoc (("event", `String k) :: fields) |> Yojson.Safe.to_string
    | _ -> assert false
  in
  match t with
  | Tags p -> json (Record.to_string Record.Tags) (Record.Tags.yojson_of_t p)
  | Window p -> json (Record.to_string Record.Window) (Record.Window.yojson_of_t p)
  | Window_cleared output ->
    json (Record.to_string Record.Window) (`Assoc [ "output", `String output ])
  | Layout p -> json (Record.to_string Record.Layout) (Record.Layout.yojson_of_t p)
  | Mode p -> json (Record.to_string Record.Mode) (Record.Mode.yojson_of_t p)
  | Focus p -> json (Record.to_string Record.Focus) (Record.Focus.yojson_of_t p)
  | Output p -> json (Record.to_string Record.Output) (Record.Output.yojson_of_t p)
;;