aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-10-31 15:28:17 -0500
committerColin Okay <colin@cicadas.surf>2022-10-31 15:28:17 -0500
commit2e8de2c0ab51297b94055671360650097a71bea8 (patch)
treeb046b516d77f2c8990fe745aae83946a53869c01
parent4950979ae27caf7b248b1084195abc5d283be27c (diff)
Refactor: display of title and artist text in track listing
-rw-r--r--playlist.lisp17
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