diff options
| author | Yuchen Pei <id@ypei.org> | 2025-01-12 19:54:55 +1100 |
|---|---|---|
| committer | Yuchen Pei <id@ypei.org> | 2025-01-12 19:54:55 +1100 |
| commit | 672458a898250389444a4a41a8384b9a8e3ec942 (patch) | |
| tree | 082c649a576e687f5dd20a4ca27b55186455b905 /emacs/.emacs.d/lisp/my/my-emms.el | |
| parent | 264fae53a90395463f65561c2a6ac6f194521abd (diff) | |
[emacs] Add more infobox commands
info box support for exiftool, pacman, calibredb, github
also fix a bug in my-emms-wrapped
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 03392be..fd3c73d 100644 --- a/emacs/.emacs.d/lisp/my/my-emms.el +++ b/emacs/.emacs.d/lisp/my/my-emms.el @@ -517,8 +517,8 @@ If the last command is `emms-playlist-mode-play-smart', then set (let (keys) (maphash (lambda (k _) (push k keys)) emms-score-hash) (sort keys (lambda (k1 k2) - (< (second (gethash k1 emms-score-hash)) - (second (gethash k2 emms-score-hash))))) + (> (cl-second (gethash k1 emms-score-hash)) + (cl-second (gethash k2 emms-score-hash))))) (message "Top 5: %s" (string-join (take 5 keys) "\n")))) (provide 'my-emms) |