diff options
| author | Yuchen Pei <id@ypei.org> | 2025-03-27 08:33:59 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2025-03-27 08:33:59 +1100 |
| commit | 32dd9dd3d3a0d00eaa71b1c6ecef2239f267564d (patch) | |
| tree | 1a228ec1bd05a1a8bcf603b9bada41e75986eebf /emacs/.emacs.d/lisp/my/my-emms.el | |
| parent | bc4b35a13d869f41d23e0506176e0a4b05f29825 (diff) | |
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-emms.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-emms.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-emms.el b/emacs/.emacs.d/lisp/my/my-emms.el index e77089d..799c5f3 100644 --- a/emacs/.emacs.d/lisp/my/my-emms.el +++ b/emacs/.emacs.d/lisp/my/my-emms.el @@ -581,14 +581,14 @@ If the last command is `emms-playlist-mode-play-smart', then set ) (defun my-emms-wrapped () - "Print top 5 scored tracks." + "Print top 10 scored tracks." (interactive) (let (keys) (maphash (lambda (k _) (push k keys)) emms-score-hash) (sort keys (lambda (k1 k2) (> (cl-second (gethash k1 emms-score-hash)) (cl-second (gethash k2 emms-score-hash))))) - (message "Top 5: %s" (string-join (take 5 keys) "\n")))) + (message "Top 10: %s" (string-join (take 10 keys) "\n")))) (provide 'my-emms) ;;; my-emms.el ends here |