diff options
| -rw-r--r-- | playlist.lisp | 17 |
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 |