diff --git a/cli/listing.ml b/cli/listing.ml
index 19b232c..6e435ba 100644
--- a/cli/listing.ml
+++ b/cli/listing.ml
@@ -6,7 +6,7 @@ let listing r order_opt reverse_opt number_opt paths_opt authors_opt topics_opt
 	let dir = if dir = "" then FS.txtdir () else dir in
 	let predicates = A.predicate A.authored authors_opt @ A.predicate A.topics topics_opt in
 	let predicate text = List.fold_left (fun a e -> a && e text) true predicates in
-	let list_text (t, fnames) = Printf.printf "%s %s %s 𐄁 %s%s\n"
+	let list_text (t, fnames) = Printf.printf "%s | %s | %s | %s %s\n"
 		(Text.short_id t) Date.(pretty_date @@ listing t.Text.date)
 		(Person.Set.to_string ~names_only:true t.Text.authors)
 		t.Text.title (if paths_opt then (List.fold_left (Printf.sprintf "%s\n@ %s") "" fnames) else "")