package oxbow

  1. Overview
  2. Docs
Dynamic window manager for the river Wayland compositor

Install 

dune-project
 Dependency

github.com Readme Edit opam file Versions (2)

Authors

  1. 3
    3L0C

Maintainers

  1. 3
    3L0C

Sources

v0.1.1.tar.gz
md5=a182e6d368a65e6752771e41e651713f
sha512=020d2c7f9f4e06966ca56695e24eb0b41dd12500aa65d2cd9b56e03068bbb6ea7770de0a33c04f0d054bd474bee8c2b36bb46af86266c9823490e1bd0810c027

doc/src/oxbow.ops/scratchpad.ml.html

Source file scratchpad.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
open! Oxbow_state

let set wm seat target name =
  Result.map (fun _ -> None)
  @@ Targets.transact_all_windows wm seat target ~plan:(fun w ->
    Ok (fun () -> Window.set_scratchpad w name))
;;

let clear wm seat target =
  Result.map (fun _ -> None)
  @@ Targets.transact_all_windows wm seat target ~plan:(fun w ->
    Ok
      (fun () ->
        Window.set_scratchpad w None;
        Window.set_stashed w false))
;;

let toggle (wm : Wm.t) (seat : Seat.t) name =
  let members =
    List.filter (fun (w : Window.t) -> w.scratchpad.name = Some name) wm.windows
  in
  let shown = List.exists Window.tag_visible members in
  With.focused_output seat
  @@ fun o ->
  match members with
  | [] -> Error (Printf.sprintf "no scratchpad named %S" name)
  | _ when shown ->
    List.iter (fun w -> Window.set_stashed w true) members;
    Schedule.manage ();
    Ok None
  | head :: _ ->
    List.iter
      (fun w ->
         Window.set_stashed w false;
         Placement.move_window w o;
         Window.set_tags w o.tags.selected;
         Window.float w)
      members;
    Focus.focus_window wm seat head;
    Schedule.manage ();
    Ok None
;;