From 348c39d0d7f76fe2ec0d62e729e7e11e1e9ec073 Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 24 Jun 2020 02:58:59 +0100 Subject: lyrics tweaks --- emms/jao-emms-random-album.el | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) (limited to 'emms/jao-emms-random-album.el') diff --git a/emms/jao-emms-random-album.el b/emms/jao-emms-random-album.el index bda8213..7aced29 100644 --- a/emms/jao-emms-random-album.el +++ b/emms/jao-emms-random-album.el @@ -1,6 +1,6 @@ ;; jao-emms-random-album.el -- play random albums in emms -;; Copyright (C) 2009, 2010, 2017, 2018 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2017, 2018, 2020 Jose Antonio Ortega Ruiz ;; Author: Jose Antonio Ortega Ruiz ;; Start date: Sat Jul 04, 2009 13:06 @@ -89,23 +89,22 @@ (defun jao-emms-random-album-next () (interactive) - (let ((buffer (emms-browser-get-buffer))) - (save-excursion - (if buffer (set-buffer buffer) (emms-browser)) - (ignore-errors (emms-browser-clear-playlist)) - (emms-browse-by-album) - (jao-emms-goto-random-album) - (let ((album (substring-no-properties (thing-at-point 'line) 0 -1))) - (emms-browser-add-tracks-and-play) - (when jao-emms-random-album-notify-p - (jao-notify album "Next album" jao-emms-random-album-notify-icon))) - (emms-browser-bury-buffer)))) + (save-excursion + (ignore-errors (emms-browser-clear-playlist)) + (emms-browse-by-album) + (jao-emms-goto-random-album) + (let ((album (substring-no-properties (thing-at-point 'line) 0 -1))) + (emms-browser-add-tracks-and-play) + (when jao-emms-random-album-notify-p + (jao-notify album "Next album" jao-emms-random-album-notify-icon))) + (emms-browser-bury-buffer))) (defun jao-emms-random-album-reset () (interactive) (setq jao-emms-random-lines nil) (jao-emms-random-lines-save)) +;;;###autoload (defun jao-emms-random-album-setup () (setq emms-player-next-function 'jao-emms-next-noerror)) -- cgit v1.2.3