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/list_nav.ml.html

Source file list_nav.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(*****************************************************************************)
(*                                                                           *)
(* SPDX-License-Identifier: MIT                                              *)
(* Copyright (c) 2025 Nomadic Labs <contact@nomadic-labs.com>                *)
(* Copyright (c) 2026 Mathias Bourgoin <mathias.bourgoin@atacama.tech>       *)
(*                                                                           *)
(*****************************************************************************)
let clamp lo hi x = max lo (min hi x)

let move_cursor ~total ~cursor ~delta =
  let max_idx = max 0 (total - 1) in
  clamp 0 max_idx (cursor + delta)

let page_move ~total ~cursor ~page_size ~dir =
  let delta = match dir with `Up -> -page_size | `Down -> page_size in
  move_cursor ~total ~cursor ~delta

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