diff options
Diffstat (limited to 'emacs/.emacs.d/lisp/my/my-emms.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-emms.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/emacs/.emacs.d/lisp/my/my-emms.el b/emacs/.emacs.d/lisp/my/my-emms.el index 0a42efe..91065a2 100644 --- a/emacs/.emacs.d/lisp/my/my-emms.el +++ b/emacs/.emacs.d/lisp/my/my-emms.el @@ -157,7 +157,11 @@ either 'audio or 'video (let ((emms-track-initialize-functions nil)) (my-emms-add-url-lists from (alist-get type my-extension-types))) - (with-current-buffer to (emms-sort)))) + (with-current-buffer to + (goto-char (point-min)) + (let ((inhibit-read-only t)) + (flush-lines "/Music/Archived/")) + (emms-sort)))) (defun my-emms-players-preference (track players) "If audio, use first player, otherwise second." @@ -651,15 +655,15 @@ If the last command is `emms-playlist-mode-play-smart', then set (setq last-command nil)) ) -(defun my-emms-wrapped () +(defun my-emms-wrapped (&optional n) "Print top 10 scored tracks." - (interactive) + (interactive "p") (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 10: %s" (string-join (take 10 keys) "\n")))) + (message "Top %s: %s" (or n 10) (string-join (take (or n 10) keys) "\n")))) (defun my-emms-maybe-get-duration-for-current-track () "Get duration for the current track. |