mirror of
https://github.com/chshersh/github-tui.git
synced 2024-08-17 22:40:41 +03:00
Display current directory
This commit is contained in:
parent
af0b587d25
commit
c201f7b555
@ -61,6 +61,11 @@ let zip_it trees =
|
|||||||
current = { pos = 0; files = trees; }
|
current = { pos = 0; files = trees; }
|
||||||
}
|
}
|
||||||
|
|
||||||
|
let zipper_parents zipper =
|
||||||
|
List.filter_map
|
||||||
|
(fun cursor -> Option.map file_name (file_at cursor))
|
||||||
|
zipper.parents
|
||||||
|
|
||||||
let go_down zipper =
|
let go_down zipper =
|
||||||
let cursor = zipper.current in
|
let cursor = zipper.current in
|
||||||
let len = Array.length cursor.files in
|
let len = Array.length cursor.files in
|
||||||
|
@ -4,6 +4,9 @@ let style_repo =
|
|||||||
let style_selected =
|
let style_selected =
|
||||||
ANSITerminal.([Bold; green])
|
ANSITerminal.([Bold; green])
|
||||||
|
|
||||||
|
let style_directory =
|
||||||
|
ANSITerminal.([Bold; magenta])
|
||||||
|
|
||||||
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 =
|
||||||
@ -41,6 +44,19 @@ let tabs_section cur_tab =
|
|||||||
];
|
];
|
||||||
]
|
]
|
||||||
|
|
||||||
|
let current_path_to_doc root_path parents =
|
||||||
|
let nested_path =
|
||||||
|
match parents with
|
||||||
|
| [] -> ""
|
||||||
|
| last :: previous ->
|
||||||
|
List.fold_right
|
||||||
|
(fun cur acc -> Filename.concat acc cur)
|
||||||
|
(List.rev previous)
|
||||||
|
last
|
||||||
|
in
|
||||||
|
let full_path = Filename.concat root_path nested_path in
|
||||||
|
Pretty.fmt style_directory full_path
|
||||||
|
|
||||||
let current_level_to_doc (cursor: Fs.cursor) has_next =
|
let current_level_to_doc (cursor: Fs.cursor) has_next =
|
||||||
let open Pretty in
|
let open Pretty in
|
||||||
|
|
||||||
@ -183,7 +199,15 @@ let fs_doc (fs : Fs.zipper) =
|
|||||||
Pretty.row [ current_level_doc; next_level_doc]
|
Pretty.row [ current_level_doc; next_level_doc]
|
||||||
|
|
||||||
let code_section (code_tab: Model.code_tab) =
|
let code_section (code_tab: Model.code_tab) =
|
||||||
fs_doc code_tab.fs
|
let current_path_doc = current_path_to_doc
|
||||||
|
code_tab.dirname
|
||||||
|
(Fs.zipper_parents code_tab.fs)
|
||||||
|
in
|
||||||
|
Pretty.col
|
||||||
|
[
|
||||||
|
current_path_doc;
|
||||||
|
fs_doc code_tab.fs;
|
||||||
|
]
|
||||||
|
|
||||||
let tab_content_section (model: Model.t) =
|
let tab_content_section (model: Model.t) =
|
||||||
match model.current_tab with
|
match model.current_tab with
|
||||||
@ -204,8 +228,6 @@ let to_doc (model: Model.t) =
|
|||||||
empty;
|
empty;
|
||||||
|
|
||||||
tabs;
|
tabs;
|
||||||
empty;
|
|
||||||
|
|
||||||
content;
|
content;
|
||||||
empty;
|
empty;
|
||||||
]
|
]
|
||||||
|
Loading…
Reference in New Issue
Block a user