Source file `cmd_keymap_list.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open! Oxbow_ipc

let name = "list"
let doc = "List active keybindings"

let all_flag =
  Cmdliner.Arg.(value & flag & info [ "all" ] ~doc:"List keybindings for every seat")
;;

let cmd =
  let open Cmdliner.Term.Syntax in
  Ctl_cli.cmd ~name ~doc
  @@ Ctl_cli.query_term
  @@
  let+ all = all_flag in
  Query.Keymaps { all }
;;