package oxbow

  1. Overview
  2. Docs
package oxbow
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file cmd_input_list.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
open! Oxbow_core
open! Oxbow_ipc

let role_arg =
  Ctl_cli.mk_enum "role" ~doc:"Filter to devices with this role." ~docv:"ROLE"
  @@ Ctl_cli.enum_of Input.Role.to_string [ Keyboard; Mouse; Touchpad; Touch; Tablet ]
;;

let command_term =
  let open Cmdliner.Term.Syntax in
  let+ pattern = Ctl_cli.device_pattern_flag
  and+ case = Ctl_cli.case_flag
  and+ role = role_arg in
  Query.Input_devices { pattern; case; role }
;;

let name = "list"
let doc = "List input devices matching the search pattern."

let cmd =
  Ctl_cli.cmd ~name ~doc @@ Ctl_cli.query_term ~render:Ctl_cli.render_lines command_term
;;