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