Source file `cmd_window_spawn_focus.ml`

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

let command_term b = Cmdliner.Term.const @@ Command.Window (Spawn_focus b)

let focus_targets =
  [ "enabled", "Focus windows on spawn", true
  ; "disabled", "Do not focus windows on spawn", false
  ]
;;

let mk_leaf (name, doc, b) = Ctl_cli.cmd_pair ~name ~doc @@ command_term b
let name = "focus"
let doc = "Focus configuration for newly spawned windows"
let cmd, bind_cmd = Ctl_cli.group_pair ~name ~doc @@ List.map mk_leaf focus_targets