Refactor: display of title and artist text in track listing

1 files changed, 9 insertions, 8 deletions

diff --git a/playlist.lisp b/playlist.lisp
index 051afde..c2adf97 100644
--- a/playlist.lisp
+++ b/playlist.lisp
@@ -267,14 +267,15 @@
 (defun track-listing-line (track &optional (timep t))
   (with-slots (artist title duration) track
     (if timep
-        (format nil "~50<~a~;~a~;~a~>"
-                (subseq* title 0 30)
-                (if artist (concatenate 'string "by "
-                                        artist) "")
-                (secs-to-hms (or duration 0)))
-        (format nil "~45<~a~;~a~>"
-                (subseq* title 0 30)
-                (if artist (concatenate 'string "by " artist) "")))))
+        (format nil "~50<~a~;~a~>~%~a"
+                (subseq* title 0 40)
+                (secs-to-hms (or duration 0))
+                (if artist (concatenate 'string " by "
+                                        (subseq* artist 0 40)) ""))
+        (format nil "~a~%~a"
+                (subseq* title 0 40)
+                (if artist (concatenate 'string " by "
+                                        (subseq* artist 0 40)) "")))))
 
 (defun create-track-list-item (list track ctl)
   (with-clog-create list