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

Source file palette.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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
(*****************************************************************************)
(*                                                                           *)
(* SPDX-License-Identifier: MIT                                              *)
(* Copyright (c) 2025 Nomadic Labs <contact@nomadic-labs.com>                *)
(* Copyright (c) 2026 Mathias Bourgoin <mathias.bourgoin@atacama.tech>       *)
(*                                                                           *)
(*****************************************************************************)

type gradient_dir = Miaou_interfaces.Palette.gradient_dir =
  | Up
  | Right
  | DownRight

let p () = Miaou_interfaces.Palette.require ()

let fg_primary s = (p ()).fg_primary s

let bg_primary s = (p ()).bg_primary s

let fg_stealth s = (p ()).fg_stealth s

let bg_stealth s = (p ()).bg_stealth s

let fg_slate s = (p ()).fg_slate s

let bg_slate s = (p ()).bg_slate s

let fg_steel s = (p ()).fg_steel s

let bg_steel s = (p ()).bg_steel s

let fg_white s = (p ()).fg_white s

let bg_white s = (p ()).bg_white s

let purple_gradient s = (p ()).purple_gradient s

let purple_gradient_at dir ~total_visible ~start_pos s =
  (p ()).purple_gradient_at dir ~total_visible ~start_pos s

let purple_gradient_line dir s = (p ()).purple_gradient_line dir s

let fg_success s = (p ()).fg_success s

let fg_error s = (p ()).fg_error s

(* Generic semantic aliases so the Palette adapter also exposes
	application-agnostic names. These mirror the helpers added to
	`Miaou_widgets_display.Widgets`. *)
let fg_secondary s = (p ()).fg_secondary s

let fg_muted s = (p ()).fg_muted s

let selection_bg s = (p ()).selection_bg s

let selection_fg s = (p ()).selection_fg s

let fixed_region_bg s = (p ()).fixed_region_bg s

let header_bg s = (p ()).header_bg s

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