From e875f5a180d7af7df34210d88189d16ab90d51e5 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 3 Aug 2020 22:42:40 +0100 Subject: random album: autoloads --- emms/jao-emms-random-album.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'emms') diff --git a/emms/jao-emms-random-album.el b/emms/jao-emms-random-album.el index 7aced29..9c3246d 100644 --- a/emms/jao-emms-random-album.el +++ b/emms/jao-emms-random-album.el @@ -71,22 +71,26 @@ ;; User interface +;;;###autoload (defun jao-emms-random-album-start () (interactive) (setq jao-emms-random-album-p t) (jao-emms-random-album-next)) +;;;###autoload (defun jao-emms-random-album-stop () (interactive) (setq jao-emms-random-album-p nil) (emms-stop)) +;;;###autoload (defun jao-emms-random-album-toggle () (interactive) (setq jao-emms-random-album-p (not jao-emms-random-album-p)) (message "Random album %s" (if jao-emms-random-album-p "enabled" "disabled"))) +;;;###autoload (defun jao-emms-random-album-next () (interactive) (save-excursion @@ -99,14 +103,13 @@ (jao-notify album "Next album" jao-emms-random-album-notify-icon))) (emms-browser-bury-buffer))) +;;;###autoload (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)) +(setq emms-player-next-function 'jao-emms-next-noerror) (provide 'jao-emms-random-album) -- cgit v1.2.3