package oxbow

  1. Overview
  2. Docs

Source file reset.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open! Oxbow_core
open! Oxbow_state

let config wm ~all =
  Config.reset wm ~all;
  if all
  then
    List.iter
      (fun s ->
         Seat.clear_bindings s;
         Result.iter_error (fun msg -> Log.err @@ fun m -> m "%s" msg)
         @@ Seat.set_mode s Mode.normal;
         Bind.install_defaults wm s)
      wm.seats;
  Schedule.manage ();
  Ok None
;;