diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/headlines.ml | 3 |
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 |