From 2e8de2c0ab51297b94055671360650097a71bea8 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 31 Oct 2022 15:28:17 -0500 Subject: Refactor: display of title and artist text in track listing --- playlist.lisp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'playlist.lisp') 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 -- cgit v1.2.3