|
|
|
@ -1,43 +1,178 @@ |
|
|
|
open Notty |
|
|
|
|
|
|
|
(** |
|
|
|
Nottui augments Notty with primitives for laying out user interfaces (in the |
|
|
|
terminal) and reacting to input events. |
|
|
|
*) |
|
|
|
|
|
|
|
(** {1 Focus (defining and managing active objects)} *) |
|
|
|
|
|
|
|
module Focus : |
|
|
|
sig |
|
|
|
|
|
|
|
type handle |
|
|
|
(** A [handle] represents a primitive area that can request, receive and lose |
|
|
|
the focus. A visible UI is made of many handles, of which at most one can |
|
|
|
be active. *) |
|
|
|
|
|
|
|
val make : unit -> handle |
|
|
|
(** Create a new handle *) |
|
|
|
|
|
|
|
val request : handle -> unit |
|
|
|
(** Request the focus *) |
|
|
|
|
|
|
|
val release : handle -> unit |
|
|
|
(** Release the focus (if the handle has it) *) |
|
|
|
|
|
|
|
type status |
|
|
|
(** [status] represents the state in which a handle can be. |
|
|
|
Externally we care about having or not the focus, which can be queried |
|
|
|
with the [has_focus] function. Internally, [status] also keeps track of |
|
|
|
conflicts (if multiple handles [request]ed the focus). |
|
|
|
*) |
|
|
|
|
|
|
|
val empty : status |
|
|
|
(** A status that has no focus and no conflicts *) |
|
|
|
|
|
|
|
val status : handle -> status Lwd.t |
|
|
|
(** Get the status of a focus [handle]. The [status] is a reactive value: |
|
|
|
it will evolve over time, as focus is received or lost. *) |
|
|
|
|
|
|
|
val has_focus : status -> bool |
|
|
|
(** Check if this [status] corresponds to an active focus *) |
|
|
|
|
|
|
|
(** TODO |
|
|
|
This implements a more general concept of "reactive auction": |
|
|
|
|
|
|
|
- multiple parties are competing for a single resource (focus here, but |
|
|
|
for instance a tab component can only display a single tab among many). |
|
|
|
|
|
|
|
- the result can evolve over time, parties can join or leave, or bid |
|
|
|
"more". |
|
|
|
*) |
|
|
|
end |
|
|
|
|
|
|
|
(** {1 Gravity (horizontal and vertical alignments)} *) |
|
|
|
|
|
|
|
module Gravity : |
|
|
|
sig |
|
|
|
|
|
|
|
type direction = [ |
|
|
|
| `Negative |
|
|
|
| `Neutral |
|
|
|
| `Positive |
|
|
|
] |
|
|
|
(** A gravity is a pair of directions along the horizontal and vertical |
|
|
|
axis. |
|
|
|
|
|
|
|
Horizontal axis goes from left to right and vertical axis from top to |
|
|
|
bottom. |
|
|
|
|
|
|
|
[`Negative] direction means left / top bounds, [`Neutral] means center |
|
|
|
and [`Positive] means right / bottom. |
|
|
|
*) |
|
|
|
|
|
|
|
val pp_direction : Format.formatter -> direction -> unit |
|
|
|
(** Printing directions *) |
|
|
|
|
|
|
|
type t |
|
|
|
(** The gravity type is a pair of an horizontal and a vertical gravity *) |
|
|
|
|
|
|
|
val pp : Format.formatter -> t -> unit |
|
|
|
(** Printing gravities *) |
|
|
|
|
|
|
|
val make : h:direction -> v:direction -> t |
|
|
|
(** Make a gravity value from an [h]orizontal and a [v]ertical directions. *) |
|
|
|
|
|
|
|
val default : t |
|
|
|
(** Default (negative, aligning to the top-left) gravity. *) |
|
|
|
|
|
|
|
val h : t -> direction |
|
|
|
(** Get the horizontal direction *) |
|
|
|
|
|
|
|
val v : t -> direction |
|
|
|
(** Get the vertical direction *) |
|
|
|
|
|
|
|
end |
|
|
|
|
|
|
|
type gravity = Gravity.t |
|
|
|
|
|
|
|
(** {1 Primitive combinators for making user interfaces} *) |
|
|
|
|
|
|
|
module Ui : |
|
|
|
sig |
|
|
|
|
|
|
|
type t |
|
|
|
(* Type of UI elements *) |
|
|
|
|
|
|
|
val pp : Format.formatter -> t -> unit |
|
|
|
(** Printing UI element *) |
|
|
|
|
|
|
|
(** {1 Layout specifications} *) |
|
|
|
|
|
|
|
type layout_spec = { w : int; h : int; sw : int; sh : int; } |
|
|
|
(** The type of layout specifications. |
|
|
|
|
|
|
|
For each axis, layout is specified as a pair of integers: |
|
|
|
- a fixed part that is expressed as a number of columns or rows |
|
|
|
- a stretchable part that represents a strength used to share the |
|
|
|
remaining space (or 0 if the UI doesn't extend over free space) |
|
|
|
*) |
|
|
|
|
|
|
|
val pp_layout_spec : Format.formatter -> layout_spec -> unit |
|
|
|
(** Printing layout specification *) |
|
|
|
|
|
|
|
val layout_spec : t -> layout_spec |
|
|
|
(** Get the layout spec for an UI element *) |
|
|
|
|
|
|
|
val layout_width : t -> int |
|
|
|
(** Get the layout width component of an UI element *) |
|
|
|
|
|
|
|
val layout_stretch_width : t -> int |
|
|
|
(** Get the layout stretch width strength of an UI element *) |
|
|
|
|
|
|
|
val layout_height : t -> int |
|
|
|
(** Get the layout height component of an UI element *) |
|
|
|
|
|
|
|
val layout_stretch_height : t -> int |
|
|
|
(** Get the layout height strength of an UI element *) |
|
|
|
|
|
|
|
(** {1 Primitive images} *) |
|
|
|
|
|
|
|
val empty : t |
|
|
|
(** The empty surface: it occupies no space and does not do anything *) |
|
|
|
|
|
|
|
val atom : image -> t |
|
|
|
(** Primitive surface that displays a Notty image *) |
|
|
|
|
|
|
|
val space : int -> int -> t |
|
|
|
(** Void space of dimensions [x,y]. Useful for padding and interstitial |
|
|
|
space. *) |
|
|
|
|
|
|
|
(** {1 Event handles} *) |
|
|
|
|
|
|
|
type may_handle = [ `Unhandled | `Handled ] |
|
|
|
(** An event is propagated until it gets handled. |
|
|
|
Handler functions return a value of type [may_handle] to indicate |
|
|
|
whether the event was handled or not. *) |
|
|
|
|
|
|
|
type mouse_handler = x:int -> y:int -> Unescape.button -> [ |
|
|
|
| may_handle |
|
|
|
| `Grab of (x:int -> y:int -> unit) * (x:int -> y:int -> unit) |
|
|
|
] |
|
|
|
(** The type of handlers for mouse events. They receive the (absolute) |
|
|
|
coordinates of the mouse, the button that was clicked. |
|
|
|
|
|
|
|
In return they indicate whether the event was handled or if the mouse is |
|
|
|
"grabbed". |
|
|
|
|
|
|
|
When grabbed, two functions [on_move] and [on_release] should be |
|
|
|
provided. The [on_move] function will be called when the mouse move while |
|
|
|
the button is pressed and the [on_release] function is called when the |
|
|
|
button is released. |
|
|
|
|
|
|
|
During that time, no other mouse input events can be dispatched. |
|
|
|
*) |
|
|
|
|
|
|
|
type semantic_key = [ |
|
|
|
(* Clipboard *) |
|
|
|
@ -46,86 +181,184 @@ sig |
|
|
|
(* Focus management *) |
|
|
|
| `Focus of [`Next | `Prev | `Left | `Right | `Up | `Down] |
|
|
|
] |
|
|
|
(** Key handlers normally reacts to keyboard input but a few special keys are |
|
|
|
defined to represent higher-level actions. |
|
|
|
Copy and paste, as well as focus movements. *) |
|
|
|
|
|
|
|
type key = [ |
|
|
|
| Unescape.special | `Uchar of Uchar.t | `ASCII of char | semantic_key |
|
|
|
] * Unescape.mods |
|
|
|
(** A key is the pair of a main key and a list of modifiers *) |
|
|
|
|
|
|
|
type mouse = Unescape.mouse |
|
|
|
(** Specification of mouse inputs, taken from Notty *) |
|
|
|
|
|
|
|
type event = [ `Key of key | `Mouse of mouse | `Paste of Unescape.paste ] |
|
|
|
(* The type of input events. *) |
|
|
|
|
|
|
|
type layout_spec = { w : int; h : int; sw : int; sh : int; } |
|
|
|
val pp_layout_spec : Format.formatter -> layout_spec -> unit |
|
|
|
val mouse_area : mouse_handler -> t -> t |
|
|
|
(** Handle mouse events that happens over an ui. *) |
|
|
|
|
|
|
|
type t |
|
|
|
val pp : Format.formatter -> t -> unit |
|
|
|
val keyboard_area : ?focus:Focus.status -> (key -> may_handle) -> t -> t |
|
|
|
(** Define a focus receiver, handle keyboard events over the focused area *) |
|
|
|
|
|
|
|
val empty : t |
|
|
|
val atom : image -> t |
|
|
|
val mouse_area : mouse_handler -> t -> t |
|
|
|
val has_focus : t -> bool |
|
|
|
val keyboard_area : ?focus:Focus.status -> (key -> may_handle) -> t -> t |
|
|
|
val scroll_area : int -> int -> t -> t |
|
|
|
(** Check if this UI has focus, either directly (it is a focused |
|
|
|
[keyboard_area]), or inherited (one of the child is a focused |
|
|
|
[keyboard_area]). *) |
|
|
|
|
|
|
|
val event_filter : |
|
|
|
?focus:Focus.status -> |
|
|
|
([`Key of key | `Mouse of mouse] -> may_handle) -> t -> t |
|
|
|
(** A hook that intercepts and can interrupt events when they reach a |
|
|
|
sub-part of the UI. *) |
|
|
|
|
|
|
|
(** {1 Sensors} |
|
|
|
|
|
|
|
Sensors are used to observe the physical dimensions after layout has been |
|
|
|
resolved. |
|
|
|
*) |
|
|
|
|
|
|
|
type size_sensor = w:int -> h:int -> unit |
|
|
|
(** The size sensor callback tells you the [w]idth and [h]eight of UI. |
|
|
|
The sensor is invoked only when the UI is visible. *) |
|
|
|
|
|
|
|
val size_sensor : size_sensor -> t -> t |
|
|
|
(** Attach a size sensor to an image *) |
|
|
|
|
|
|
|
type frame_sensor = x:int -> y:int -> w:int -> h:int -> unit -> unit |
|
|
|
(** The frame sensor callback gives you the whole rectangle where the widget |
|
|
|
is displayed. |
|
|
|
|
|
|
|
The first for components are applied during before visiting children, |
|
|
|
the last unit is applied after visiting children. |
|
|
|
*) |
|
|
|
|
|
|
|
val transient_sensor : frame_sensor -> t -> t |
|
|
|
(** Attach a transient frame sensor: the callback will be invoked only once, |
|
|
|
on next frame. *) |
|
|
|
|
|
|
|
val permanent_sensor : frame_sensor -> t -> t |
|
|
|
(** Attach a permanent sensor: the callback will be invoked on every frame. |
|
|
|
Note that this can have a significant impact on performance. *) |
|
|
|
|
|
|
|
(** {1 Composite images} *) |
|
|
|
|
|
|
|
val resize : |
|
|
|
?w:int -> ?h:int -> ?sw:int -> ?sh:int -> |
|
|
|
?fill:Gravity.t -> ?crop:Gravity.t -> ?bg:attr -> t -> t |
|
|
|
val event_filter : |
|
|
|
?focus:Focus.status -> |
|
|
|
([`Key of key | `Mouse of mouse] -> may_handle) -> t -> t |
|
|
|
?pad:Gravity.t -> ?crop:Gravity.t -> ?bg:attr -> t -> t |
|
|
|
(** Override the layout specification of an image with provided [w], [h], |
|
|
|
[sw] or [sh]. |
|
|
|
|
|
|
|
[pad] and [crop] are used to determine how to align the UI when there is |
|
|
|
too much or not enough space. |
|
|
|
|
|
|
|
[bg] is used to fill the padded background. |
|
|
|
*) |
|
|
|
|
|
|
|
val shift_area : int -> int -> t -> t |
|
|
|
(** Shift the contents of a UI by a certain amount. |
|
|
|
Positive values crop the image while negative values pad. |
|
|
|
|
|
|
|
This primitive is used to implement scrolling. |
|
|
|
*) |
|
|
|
|
|
|
|
val join_x : t -> t -> t |
|
|
|
(** Horizontally join two images *) |
|
|
|
|
|
|
|
val join_y : t -> t -> t |
|
|
|
(** Vertically join two images *) |
|
|
|
|
|
|
|
val join_z : t -> t -> t |
|
|
|
(** Superpose two images. The right one will be on top. *) |
|
|
|
|
|
|
|
val pack_x : t Lwd_utils.monoid |
|
|
|
(** Horizontal concatenation monoid *) |
|
|
|
|
|
|
|
val pack_y : t Lwd_utils.monoid |
|
|
|
(** Vertical concatenation monoid *) |
|
|
|
|
|
|
|
val pack_z : t Lwd_utils.monoid |
|
|
|
(** Superposition monoid *) |
|
|
|
|
|
|
|
val hcat : t list -> t |
|
|
|
val vcat : t list -> t |
|
|
|
val zcat : t list -> t |
|
|
|
(** Short-hand for horizontally joining a list of images *) |
|
|
|
|
|
|
|
val void : int -> int -> t |
|
|
|
(** Void space of dimensions [x,y]. Useful for padding and interstitial |
|
|
|
space. *) |
|
|
|
val vcat : t list -> t |
|
|
|
(** Short-hand for vertically joining a list of images *) |
|
|
|
|
|
|
|
val layout_spec : t -> layout_spec |
|
|
|
val layout_width : t -> int |
|
|
|
val layout_stretch_width : t -> int |
|
|
|
val layout_height : t -> int |
|
|
|
val layout_stretch_height : t -> int |
|
|
|
val zcat : t list -> t |
|
|
|
(** Short-hand for superposing a list of images *) |
|
|
|
end |
|
|
|
|
|
|
|
type ui = Ui.t |
|
|
|
|
|
|
|
(** {1 Rendering user interfaces and dispatching input events} *) |
|
|
|
|
|
|
|
module Renderer : |
|
|
|
sig |
|
|
|
type size = int * int |
|
|
|
|
|
|
|
type t |
|
|
|
(** The type of a renderer *) |
|
|
|
|
|
|
|
type size = int * int |
|
|
|
(** Size of a rendering surface, as a pair of width and height *) |
|
|
|
|
|
|
|
val make : unit -> t |
|
|
|
val size : t -> size |
|
|
|
(** Create a new renderer. |
|
|
|
|
|
|
|
It maintains state to update output image and to dispatch events. *) |
|
|
|
|
|
|
|
val update : t -> size -> Ui.t -> unit |
|
|
|
(** Update the contents to be rendered to the given UI at a specific size *) |
|
|
|
|
|
|
|
val size : t -> size |
|
|
|
(** Get the size of the last update *) |
|
|
|
|
|
|
|
val image : t -> image |
|
|
|
(** Render and return actual image *) |
|
|
|
|
|
|
|
val dispatch_mouse : t -> Ui.mouse -> Ui.may_handle |
|
|
|
val dispatch_key : t -> Ui.key -> Ui.may_handle |
|
|
|
(** Dispatch a mouse event *) |
|
|
|
|
|
|
|
val dispatch_key : t -> Ui.key -> Ui.may_handle |
|
|
|
(** Dispatch a keyboard event *) |
|
|
|
|
|
|
|
val dispatch_event : t -> Ui.event -> Ui.may_handle |
|
|
|
(** Dispatch an event *) |
|
|
|
|
|
|
|
end |
|
|
|
|
|
|
|
(** {1 Main loop} |
|
|
|
|
|
|
|
Outputting an interface to a TTY and interacting with it |
|
|
|
*) |
|
|
|
|
|
|
|
module Ui_loop : |
|
|
|
sig |
|
|
|
open Notty_unix |
|
|
|
|
|
|
|
val step : ?process_event:bool -> ?timeout:float -> renderer:Renderer.t -> |
|
|
|
Term.t -> ui Lwd.root -> unit |
|
|
|
(** Run one step of the main loop. |
|
|
|
|
|
|
|
Update output image describe by the provided [root]. |
|
|
|
If [process_event], wait up to [timeout] seconds for an input event, then |
|
|
|
consume and dispatch it. *) |
|
|
|
|
|
|
|
val run : |
|
|
|
?tick_period:float -> ?tick:(unit -> unit) -> |
|
|
|
?term:Term.t -> ?renderer:Renderer.t -> |
|
|
|
?quit:bool Lwd.var -> ui Lwd.t -> unit |
|
|
|
(** Repeatedly run steps of the main loop, until either: |
|
|
|
- [quit] becomes true, |
|
|
|
- the ui computation raises an exception, |
|
|
|
- if [quit] was not provided, wait for Ctrl-Q event |
|
|
|
|
|
|
|
Specific [term] or [renderer] instances can be provided, otherwise new |
|
|
|
ones will be allocated and released. |
|
|
|
|
|
|
|
To simulate concurrency in a polling fashion, tick function and period |
|
|
|
can be provided. Use the [Lwt] backend for real concurrency. |
|
|
|
*) |
|
|
|
end |
Frédéric Bour
7 months ago