diff options
| -rw-r--r-- | emms/jao-emms-random-album.el | 9 |
1 files changed, 6 insertions, 3 deletions
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) |