···

       
1
       
1
       
 
       
(executable

     

       
2
       
2
       
 
       
 (public_name river-cli)

     

       
3
       
3
       
 
       
 (name river_cli)

     

       
4
       
4
       
-
       
 (libraries river cmdliner yojson logs logs.fmt logs.cli fmt fmt.tty fmt.cli eio eio_main eiocmd unix ptime syndic xdge))

     

       
4
       
4
       
+
       
 (libraries river cmdliner yojson fmt fmt.tty fmt.cli eio eio_main eiocmd unix ptime syndic xdge))

     

···

       
663
       
663
       
 
       
  in

     

       
664
       
664
       
 
       
  let verbose_flag =

     

       
665
       
665
       
 
       
    let doc = "Show full content and all metadata" in

     

       
666
       
666
       
-
       
    Arg.(value & flag & info ["v"; "verbose"] ~doc)

     

       
666
       
666
       
+
       
    Arg.(value & flag & info ["full"; "f"] ~doc)

     

       
667
       
667
       
 
       
  in

     

       
668
       
668
       
 
       
  Eiocmd.run

     

       
669
       
669
       
 
       
    ~use_keyeio:false

     
···

       
736
       
736
       
 
       
            in

     

       
737
       
737
       
 
       
            Fmt.pr "%s@." preview;

     

       
738
       
738
       
 
       
            if String.length entry.content > 500 then

     

       
739
       
739
       
-
       
              Fmt.pr "@.%a@." Fmt.(styled `Faint string) "(Use --verbose to see full content)"

     

       
739
       
739
       
+
       
              Fmt.pr "@.%a@." Fmt.(styled `Faint string) "(Use --full to see full content)"

     

       
740
       
740
       
 
       
          end;

     

       
741
       
741
       
 
       


     

       
742
       
742
       
 
       
          Fmt.pr "@.";