1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
let name = "input"
let doc = "Configure input devices"
let cmd, bind_cmd =
Ctl_cli.group_pair
~name
~doc
~extra:[ Cmd_input_list.cmd ]
[ Cmd_input_cursor.(cmd, bind_cmd)
; Cmd_input_keyboard.(cmd, bind_cmd)
; Cmd_input_mouse.(cmd, bind_cmd)
; Cmd_input_pointer.(cmd, bind_cmd)
; Cmd_input_rule.(cmd, bind_cmd)
; Cmd_input_touchpad.(cmd, bind_cmd)
]
;;