Source file cmd_window_move_drag.ml

1
2
3
4
5
6
7
8
open! Oxbow_ipc

let name = "drag"
let doc = "Begin an interactive move operation on the focused window"

let cmd, bind_cmd =
  Ctl_cli.cmd_pair ~name ~doc @@ Cmdliner.Term.const @@ Command.Window Move_drag
;;