chshersh/github-tui
1
1
Fork 0
mirror of https://github.com/chshersh/github-tui.git synced 2024-09-11 10:35:35 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use styled library in main view

Browse Source
This commit is contained in:
Dmitrii Kovanikov 2024-02-04 16:18:52 +00:00
parent 65e041b606
commit e6215030cf
1 changed files with 34 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
lib/tui/view.ml
View File

@ -6,7 +6,7 @@ let style_selected =
let tabs_section cur_tab = let tabs_section cur_tab =
let open Pretty in let open Pretty in
let p_tab tab txt = let p_tab tab txt =
if cur_tab = tab if cur_tab = tab
then fmt style_selected txt then fmt style_selected txt
else str txt else str txt
@ -18,7 +18,7 @@ let tabs_section cur_tab =
str "─"; str "─";
] ]
in in
render @@ row row
[ col [ col
[ [
p_tab Model.Code "╭──────╮"; p_tab Model.Code "╭──────╮";
@ -42,15 +42,23 @@ let tabs_section cur_tab =
] ]
let file_widget ~max_name_len ~selected files = let file_widget ~max_name_len ~selected files =
let open Pretty in
(* Add two spaces for padding before and end of the file name *) (* Add two spaces for padding before and end of the file name *)
let max_len = max_name_len + 4 in let max_len = max_name_len + 4 in
(* Frame *)
let top = "╭" ^ String_extra.repeat_txt (max_len - 2) "─" ^ "╮" in let top = "╭" ^ String_extra.repeat_txt (max_len - 2) "─" ^ "╮" in
let mid = "├" ^ String_extra.repeat_txt (max_len - 2) "─" ^ "┤" in let mid = "├" ^ String_extra.repeat_txt (max_len - 2) "─" ^ "┤" in
let bot = "╰" ^ String_extra.repeat_txt (max_len - 2) "─" ^ "╯" in let bot = "╰" ^ String_extra.repeat_txt (max_len - 2) "─" ^ "╯" in
let fmt_line line =
(* Line *)
let fmt_line line =
"│ " ^ String_extra.fill_right max_name_len line ^ " │" "│ " ^ String_extra.fill_right max_name_len line ^ " │"
in in
let hi_pos = 2 * selected + 1 in let hi_pos = 2 * selected + 1 in
(* Combine *)
files files
|> Array.to_list |> Array.to_list
|> List.map fmt_line |> List.map fmt_line
@ -58,16 +66,16 @@ let file_widget ~max_name_len ~selected files =
|> (fun lines -> [top] @ lines @ [bot]) |> (fun lines -> [top] @ lines @ [bot])
|> List.mapi (fun i s -> |> List.mapi (fun i s ->
if i = hi_pos - 1 || i = hi_pos || i = hi_pos + 1 if i = hi_pos - 1 || i = hi_pos || i = hi_pos + 1
then ANSITerminal.sprintf style_selected "%s" s then fmt style_selected s
else s else str s
) )
|> String_extra.unlines |> col
let code_section (code_tab: Model.code_tab) = let code_section (code_tab: Model.code_tab) =
let cursor = code_tab.fs.current in let cursor = code_tab.fs.current in
let files = Array.map Fs.file_name cursor.files in let files = Array.map Fs.file_name cursor.files in
let max_name_len = let max_name_len =
files files
|> Array.map String_extra.graphemes_len |> Array.map String_extra.graphemes_len
|> Array.fold_left max 0 in |> Array.fold_left max 0 in
file_widget ~max_name_len ~selected:cursor.pos files file_widget ~max_name_len ~selected:cursor.pos files
@ -75,17 +83,27 @@ let code_section (code_tab: Model.code_tab) =
let tab_content_section (model: Model.t) = let tab_content_section (model: Model.t) =
match model.current_tab with match model.current_tab with
| Code -> code_section model.code_tab | Code -> code_section model.code_tab
| Issues | PullRequests -> "" | Issues | PullRequests -> Pretty.str ""
let view (model: Model.t) = let to_doc (model: Model.t) =
let repo = ANSITerminal.sprintf style_repo "%s" model.repo in let open Pretty in
let empty = str "" in
let repo = fmt style_repo model.repo in
let tabs = tabs_section model.current_tab in let tabs = tabs_section model.current_tab in
let content = tab_content_section model in let content = tab_content_section model in
Format.sprintf
{|%s
%s col
[
repo;
empty;
%s tabs;
empty;
|} repo tabs content content;
empty;
]
let view (model: Model.t) =
model |> to_doc |> Pretty.render