add word wrap

jkitchin · Jul 10, 2024 · f1d4273 · f1d4273
1 parent 5566a5c
commit f1d4273
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/org-db-audio.el b/org-db-audio.el
@@ -75,7 +75,12 @@ inner join files on files.rowid = audio.filename_id%s"
 			     "")))))
 	 (candidates (cl-loop for (text fname position ofile) in db-candidates collect
 			      (list
-			       (s-join " " (s-split "\n" text))
+			       (concat
+				(format "%s in %s" fname ofile)
+				"\n"
+				(s-word-wrap
+				 80 
+				 (s-join " " (s-split "\n" text))))
 			       fname
 			       position
 			       ofile))))