aboutsummaryrefslogtreecommitdiff
path: root/lib/headlines.ml
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/headlines.ml3
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/headlines.ml b/lib/headlines.ml
index 90bad7d..38ff42d 100644
--- a/lib/headlines.ml
+++ b/lib/headlines.ml
@@ -44,7 +44,6 @@ let init ~goto_done_view ~goto_todos_view ~regexp =
let title = I.strf ~attr:A.(st bold) "%s" "Notes" |> I.pad ~l:0 ~t:0
-(* TODO: Add page title *)
let rec render
t
({ pos
@@ -80,7 +79,7 @@ let rec render
if i + 1 == y - scroll (* TODO: Should be reverse *)
then I.strf "%s" el |> I.pad ~l:2 ~t:(i + content_start)
else I.strf "%s" el |> I.pad ~l:2 ~t:(i + content_start))
- (Array.to_seq content_pretty |> Seq.drop scroll |> Array.of_seq)
+ (Basic.array_drop scroll content_pretty)
in
let open I in
Array.fold_left (fun sum el -> sum </> el) (title </> dot </> output_info) elements