summaryrefslogtreecommitdiffhomepage
path: root/lib/media/jao-random-album.el
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2021-05-31 04:43:10 +0100
committerjao <jao@gnu.org>2021-05-31 04:43:10 +0100
commitd5fa86062b31179c268cb914266f0e646a244229 (patch)
tree76a9ef5f01ba5fc56a9d39334d92a25c17ad24fa /lib/media/jao-random-album.el
parente353321f6fe69846ab2345a36510ddcc8727e6b7 (diff)
downloadelibs-d5fa86062b31179c268cb914266f0e646a244229.tar.gz
elibs-d5fa86062b31179c268cb914266f0e646a244229.tar.bz2
losing weight: elmpd instead of emms
not only simpler, but also asynchronous
Diffstat (limited to 'lib/media/jao-random-album.el')
-rw-r--r--lib/media/jao-random-album.el14
1 files changed, 6 insertions, 8 deletions
diff --git a/lib/media/jao-random-album.el b/lib/media/jao-random-album.el
index 7158417..791b241 100644
--- a/lib/media/jao-random-album.el
+++ b/lib/media/jao-random-album.el
@@ -1,6 +1,6 @@
;; jao-random-album.el -- play random albums
-;; Copyright (C) 2009, 2010, 2017, 2018, 2019 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2017, 2018, 2019, 2021 Jose Antonio Ortega Ruiz
;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
;; Start date: Sat Jul 04, 2009 13:06
@@ -77,13 +77,11 @@
(defun jao-random-album-next ()
(interactive)
(with-current-buffer (get-buffer (funcall jao-random-album-buffer))
- (save-excursion
- (jao-goto-random-album)
- (let ((album (string-trim
- (substring-no-properties (thing-at-point 'line) 0 -1))))
- (funcall jao-random-album-add-tracks-and-play)
- (when jao-random-album-notify-p
- (jao-notify album "Next album" jao-random-album-notify-icon))))))
+ (jao-goto-random-album)
+ (let ((album (string-trim (thing-at-point 'line))))
+ (funcall jao-random-album-add-tracks-and-play album)
+ (when jao-random-album-notify-p
+ (jao-notify album "Next album" jao-random-album-notify-icon)))))
(defun jao-random-album-reset ()
(interactive)