Source file `cmd_output_swap_visible.ml`

1
2
3
4
5
6
7
8
9
10
open! Oxbow_ipc

let command_term, bind_command_term =
  Ctl_cli.swap_terms (fun ~target ~policy ~follow ->
    Command.Output (Swap (Visible { target; policy; follow })))
;;

let name = "visible"
let doc = "Swap all visible windows between two outputs"
let cmd, bind_cmd = Ctl_cli.cmd_pair ~name ~doc ~bind:bind_command_term command_term