Source file `cmd_window_drag_retile.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 (Drag_retile b)

let retile_targets =
  [ "enabled", "Retile a dragged tiled window on release", true
  ; "disabled", "Do not retile a dragged tiled window on release; becomes floating", false
  ]
;;

let mk_leaf (name, doc, b) = Ctl_cli.cmd_pair ~name ~doc @@ command_term b
let name = "retile"
let doc = "Configure the drag behavior for tiled windows"
let cmd, bind_cmd = Ctl_cli.group_pair ~name ~doc @@ List.map mk_leaf retile_targets