package miaou-core

  1. Overview
  2. Docs
Miaou core/widgets (no drivers, no SDL)

Install 

dune-project
 Dependency

github.com Edit opam file Versions (1)

Authors

  1. N
    Nomadic Labs <contact@nomadic-labs.com>

Maintainers

  1. N
    Nomadic Labs <contact@nomadic-labs.com>

Sources

v0.5.2.tar.gz
md5=60a3b9f181f24572a06a9492532bfdda
sha512=fcc35a275066be2900e6201782faf47503076fa4640f08cf78067835a6f447b74613009e55b2ac799adb7ca46f1bffa261fc5971753f2cc3c6bef327511c7ef6

doc/src/miaou_widgets_layout/sidebar_widget.ml.html

Source file sidebar_widget.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
43
44
45
46
47
(*****************************************************************************)
(*                                                                           *)
(* SPDX-License-Identifier: MIT                                              *)
(* Copyright (c) 2025 Nomadic Labs <contact@nomadic-labs.com>                *)
(* Copyright (c) 2026 Mathias Bourgoin <mathias.bourgoin@atacama.tech>       *)
(*                                                                           *)
(*****************************************************************************)

[@@@warning "-32-34-37-69"]

type t = {
  sidebar : string;
  main : string;
  sidebar_open : bool;
  sidebar_width : int option;
}

let create ?sidebar_width ~sidebar ~main ~sidebar_open () =
  {sidebar; main; sidebar_open; sidebar_width}

let toggle t = {t with sidebar_open = not t.sidebar_open}

let with_main t main = {t with main}

let with_sidebar t sidebar = {t with sidebar}

let render t ~cols =
  let min_cols_for_split = 40 in
  if (not t.sidebar_open) || cols < min_cols_for_split then t.main
  else
    let left_width =
      match t.sidebar_width with
      | Some w -> max 10 (min w (cols / 2))
      | None -> max 16 (cols / 3)
    in
    Pane.split_vertical_with_left_width
      ~width:cols
      ~left_pad:1
      ~right_pad:1
      ~border:true
      ~wrap:false
      ~sep:""
      ~left:t.sidebar
      ~right:t.main
      ~left_width

[@@@enforce_exempt] (* non-widget module *)