From a35f2a7ccabb764beeb841196c7d2a13ce093f81 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 19 Apr 2021 04:12:34 +0100 Subject: clean-up emms echo when it's a title-less url --- lib/media/jao-emms-info-track.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'lib/media') diff --git a/lib/media/jao-emms-info-track.el b/lib/media/jao-emms-info-track.el index ac9fa74..d848145 100644 --- a/lib/media/jao-emms-info-track.el +++ b/lib/media/jao-emms-info-track.el @@ -54,11 +54,14 @@ (defun jao-emms-info-track-stream (track) "Return track info for streams" - (let ((name (emms-track-name track)) - (title (or (emms-track-get track 'title nil) - (car (emms-track-get track 'metadata nil)) - (car (split-string (shell-command-to-string "mpc status") - "\n"))))) + (let* ((name (emms-track-name track)) + (title (or (emms-track-get track 'title nil) + (car (emms-track-get track 'metadata nil)) + (car (split-string (shell-command-to-string "mpc status") + "\n")))) + (title (if (string-match "https?://\\([^/]+\\)/.+" (or title "")) + (match-string 1 title) + title))) (format " %s (%s)" (or title "") (if title (emms-track-type track) name)))) (defsubst jao--put-face (str face) -- cgit v1.2.3