reynir/banawa-chat
1
0
Fork 0
mirror of https://github.com/reynir/banawa-chat.git synced 2024-11-27 15:28:00 +00:00
Code Issues 1 Packages Projects Releases Wiki Activity

Minor changes to Window

Browse source 
We don't use position, and we don't calculate width yet.
This commit is contained in:
Reynir Björnsson 2023-05-12 14:37:54 +02:00
parent fdbc198939
commit 1724e5c994
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
window.ml
View file

@ -1,7 +1,7 @@
open Nottui
open Notty
type t = { w : int; h : int; p : int }
type t = { w : int; h : int; }
let render_message ~width ~width_nicknames msg =
(* (* FIXME: split doesn't work *)
@ -9,6 +9,7 @@ let render_message ~width ~width_nicknames msg =
max 1 (width - width_nicknames - 1)
in
let message = Message.split_at ~len:width_message msg in *)
let _ = width in
let message = [Message.message msg] in
let color = A.white in
let rest =
@ -33,8 +34,8 @@ let width_nicknames msgs =
let f msg acc = max (String.length (Message.nickname msg)) acc in
Rb.iter ~f msgs 0
let render { w; h; p } msgs =
let idx = ref (Rb.length msgs - 1 - p) in
let render { w; h } msgs =
let idx = ref (Rb.length msgs - 1) in
let image = ref I.empty in
let message = ref I.empty in
let width_nicknames = width_nicknames msgs in