let metadata ~full = function
| `String str ->
  let all_lines = String.split ~on:(`Character '\n') str in
  begin match all_lines with
  | [one] when String.length one < 70 -> Log.quote one
  | _ when full -> Log.verbatim str
  | _ ->
    Log.(parens (i (String.length str) % s " bytes; "
                 % i (List.length all_lines) % s " lines"))
  end