let target_for_menu t =
  let open Log in
  if_color bold_yellow (s (Target.name t)) % n
  % if_color greyish (s (Target.id t)) % n
  % short_status t