···

       
412
       
412
       
 
       
            (* Use user's full name for all entries *)

     

       
413
       
413
       
 
       
            let author_name = user.fullname in

     

       
414
       
414
       
 
       
            let content_len = get_content_length entry in

     

       
415
       
415
       
-
       
            Fmt.pr "%a %a %a %a %a %a %a %a@."

     

       
415
       
415
       
+
       
            let entry_id = Uri.to_string entry.id in

     

       
416
       
416
       
+
       
            (* Shorten ID for display if it's too long *)

     

       
417
       
417
       
+
       
            let display_id =

     

       
418
       
418
       
+
       
              if String.length entry_id > 40 then

     

       
419
       
419
       
+
       
                String.sub entry_id 0 37 ^ "..."

     

       
420
       
420
       
+
       
              else

     

       
421
       
421
       
+
       
                entry_id

     

       
422
       
422
       
+
       
            in

     

       
423
       
423
       
+
       
            Fmt.pr "%a %a@."

     

       
416
       
424
       
 
       
              Fmt.(styled `Cyan string) (Printf.sprintf "[%d]" (i + 1))

     

       
417
       
417
       
-
       
              Fmt.(styled (`Fg `Blue) string) (format_text_construct entry.title)

     

       
418
       
418
       
-
       
              Fmt.(styled `Faint string) "-"

     

       
425
       
425
       
+
       
              Fmt.(styled (`Fg `Blue) string) (format_text_construct entry.title);

     

       
426
       
426
       
+
       
            Fmt.pr "    %a %a@."

     

       
427
       
427
       
+
       
              Fmt.(styled `Faint string) "ID:"

     

       
428
       
428
       
+
       
              Fmt.(styled `Faint string) display_id;

     

       
429
       
429
       
+
       
            Fmt.pr "    %a - %a - %a chars@."

     

       
419
       
430
       
 
       
              Fmt.(styled `Green string) author_name

     

       
420
       
420
       
-
       
              Fmt.(styled `Faint string) "-"

     

       
421
       
431
       
 
       
              Fmt.(styled `Magenta string) (format_date entry.updated)

     

       
422
       
422
       
-
       
              Fmt.(styled `Faint string) "-"

     

       
423
       
423
       
-
       
              Fmt.(styled `Yellow string) (Printf.sprintf "%d chars" content_len)

     

       
432
       
432
       
+
       
              Fmt.(styled `Yellow string) (string_of_int content_len)

     

       
424
       
433
       
 
       
          ) to_show;

     

       
425
       
434
       
 
       
          0

     

       
426
       
435
       
 
       
        end)

     
···

       
484
       
493
       
 
       
                  String.trim author.name

     

       
485
       
494
       
 
       
            in

     

       
486
       
495
       
 
       
            let content_len = get_content_length entry in

     

       
487
       
487
       
-
       
            Fmt.pr "%a %a %a %a %a %a %a %a@."

     

       
496
       
496
       
+
       
            let entry_id = Uri.to_string entry.id in

     

       
497
       
497
       
+
       
            (* Shorten ID for display if it's too long *)

     

       
498
       
498
       
+
       
            let display_id =

     

       
499
       
499
       
+
       
              if String.length entry_id > 40 then

     

       
500
       
500
       
+
       
                String.sub entry_id 0 37 ^ "..."

     

       
501
       
501
       
+
       
              else

     

       
502
       
502
       
+
       
                entry_id

     

       
503
       
503
       
+
       
            in

     

       
504
       
504
       
+
       
            Fmt.pr "%a %a@."

     

       
488
       
505
       
 
       
              Fmt.(styled `Cyan string) (Printf.sprintf "[%d]" (i + 1))

     

       
489
       
489
       
-
       
              Fmt.(styled (`Fg `Blue) string) (format_text_construct entry.title)

     

       
490
       
490
       
-
       
              Fmt.(styled `Faint string) "-"

     

       
506
       
506
       
+
       
              Fmt.(styled (`Fg `Blue) string) (format_text_construct entry.title);

     

       
507
       
507
       
+
       
            Fmt.pr "    %a %a@."

     

       
508
       
508
       
+
       
              Fmt.(styled `Faint string) "ID:"

     

       
509
       
509
       
+
       
              Fmt.(styled `Faint string) display_id;

     

       
510
       
510
       
+
       
            Fmt.pr "    %a - %a - %a chars@."

     

       
491
       
511
       
 
       
              Fmt.(styled `Green string) author_name

     

       
492
       
492
       
-
       
              Fmt.(styled `Faint string) "-"

     

       
493
       
512
       
 
       
              Fmt.(styled `Magenta string) (format_date entry.updated)

     

       
494
       
494
       
-
       
              Fmt.(styled `Faint string) "-"

     

       
495
       
495
       
-
       
              Fmt.(styled `Yellow string) (Printf.sprintf "%d chars" content_len)

     

       
513
       
513
       
+
       
              Fmt.(styled `Yellow string) (string_of_int content_len)

     

       
496
       
514
       
 
       
          ) to_show;

     

       
497
       
515
       
 
       
          0

     

       
498
       
516
       
 
       
        end