Source file `cmd_window_toggle.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
let name = "toggle"
let doc = "Toggle window state"

let cmd, bind_cmd =
  Ctl_cli.group_pair ~name ~doc
  @@ [ Cmd_window_toggle_fake_fullscreen.(cmd, bind_cmd)
     ; Cmd_window_toggle_floating.(cmd, bind_cmd)
     ; Cmd_window_toggle_fullscreen.(cmd, bind_cmd)
     ; Cmd_window_toggle_maximize.(cmd, bind_cmd)
     ; Cmd_window_toggle_sticky.(cmd, bind_cmd)
     ; Cmd_window_toggle_swallow.(cmd, bind_cmd)
     ; Cmd_window_toggle_tag.(cmd, bind_cmd)
     ]
;;