Source file cmd_oxctl.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
open! Oxbow_core

let bind_group =
  Ctl_cli.group
    ~name:"bind"
    ~doc:"Bind a key or pointer button to a command"
    [ Cmd_border.bind_cmd
    ; Cmd_config.bind_cmd
    ; Cmd_exec.bind_cmd
    ; Cmd_gaps.bind_cmd
    ; Cmd_input.bind_cmd
    ; Cmd_keymap.bind_cmd
    ; Cmd_layout.bind_cmd
    ; Cmd_output.bind_cmd
    ; Cmd_scratchpad.bind_cmd
    ; Cmd_session.bind_cmd
    ; Cmd_spawn.bind_cmd
    ; Cmd_tag.bind_cmd
    ; Cmd_window.bind_cmd
    ; Cmd_wm.bind_cmd
    ]
;;

let cmd ~version =
  Ctl_cli.group
    ~version
    ~default:Cli.help_term
    ~name:"oxctl"
    ~doc:"command-line interface for controlling oxbow"
    [ Cmd_border.cmd
    ; Cmd_config.cmd
    ; Cmd_exec.cmd
    ; Cmd_gaps.cmd
    ; Cmd_input.cmd
    ; Cmd_keymap.cmd
    ; Cmd_layout.cmd
    ; Cmd_output.cmd
    ; Cmd_scratchpad.cmd
    ; Cmd_session.cmd
    ; Cmd_seat.cmd
    ; Cmd_spawn.cmd
    ; Cmd_subscribe.cmd
    ; Cmd_tag.cmd
    ; Cmd_unbind.cmd
    ; Cmd_window.cmd
    ; Cmd_wm.cmd
    ; bind_group
    ]
;;