[emacs] emms show current playing score and show lat three component in mode line

1 files changed, 39 insertions, 0 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-emms.el b/emacs/.emacs.d/lisp/my/my-emms.el
index cdd9567..c2200c0 100644
--- a/emacs/.emacs.d/lisp/my/my-emms.el
+++ b/emacs/.emacs.d/lisp/my/my-emms.el
@@ -491,6 +491,35 @@ arrow at the end of the track group."
                      "x" 'display
                      `(left-fringe down-arrow emms-playlist-selected-face)))))
 
+(defun my-emms-mode-line-playlist-current ()
+  "Format the currently playing song.
+
+Override `emms-mode-line-playlist-current' to incorporate wide chars."
+  (let ((track-desc (my-emms-get-display-name-1
+                     (emms-track-description
+		                  (emms-playlist-current-selected-track)))))
+    (format emms-mode-line-format
+	          (if (< (string-width track-desc) emms-mode-line-length-limit)
+		            track-desc
+	            (concat
+	             (seq-subseq
+                track-desc 0
+                (- (length track-desc)
+                   (- (string-width track-desc) emms-mode-line-length-limit)))
+	             "...")))))
+
+
+;; (defun my-emms-playing-time-mode-line ()
+;;   "Add playing time to the mode line.
+
+;; Override `emms-playing-time-mode-line': prepend instead of append."
+;;   (or global-mode-string (setq global-mode-string '("")))
+;;   (unless (member 'emms-playing-time-string
+;; 		              global-mode-string)
+;;     (setq global-mode-string
+;; 	        (append '(emms-playing-time-string) global-mode-string))))
+
+
 (defun my-emms-playlist-random-group ()
   (interactive)
   (with-current-emms-playlist
@@ -600,6 +629,16 @@ character."
    (my-emms-get-display-name-1 (emms-score-current-selected-track-filename)))
   (setq my-emms-score-delta 1))
 
+(defun my-emms-score-show-playing ()
+  "Show score for current playing track in minibuf.
+
+Override `emms-score-show-playing' - using last three components in the name..."
+  (interactive)
+  (message "track/tolerance score: %d/%d"
+           (emms-score-get-score (my-emms-get-display-name-1
+                                  (emms-score-current-selected-track-filename)))
+	         emms-score-min-score))
+
 (defun my-emms-score-up-chosen-bonus ()
   "Bonus score up if the track is started intentionally.