From b576c28293fc07406455398cc74619b02a424b0f Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 5 Sep 2026 17:36:36 +0100 Subject: using new user-lisp-dir for library files --- lib/media/jao-random-album.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'lib/media/jao-random-album.el') diff --git a/lib/media/jao-random-album.el b/lib/media/jao-random-album.el index cfe9080..07d04e8 100644 --- a/lib/media/jao-random-album.el +++ b/lib/media/jao-random-album.el @@ -52,22 +52,26 @@ (defvar jao-random-album-add-tracks-and-play) (defvar jao-random-album-stop) +;;;###autoload (defun jao-random-album-start () (interactive) (setq jao-random-album-active t) (jao-random-album-next)) +;;;###autoload (defun jao-random-album-stop () (interactive) (setq jao-random-album-active nil) (funcall jao-random-album-stop)) +;;;###autoload (defun jao-random-album-toggle () (interactive) (setq jao-random-album-active (not jao-random-album-active)) (message "Random album %s" (if jao-random-album-active "enabled" "disabled"))) +;;;###autoload (defun jao-random-album-next () (interactive) (with-current-buffer (get-buffer (funcall jao-random-album-buffer)) @@ -77,10 +81,12 @@ (when jao-random-album-notify (funcall jao-random-album-notify album))))) +;;;###autoload (defun jao-random-album-reset () (interactive) (jao-random-lines-save nil)) +;;;###autoload (defun jao-random-album-setup (album-buffer add-and-play stop) (setq jao-random-album-buffer album-buffer jao-random-album-add-tracks-and-play add-and-play -- cgit v1.2.3