diff options
Diffstat (limited to 'lib/media/jao-random-album.el')
-rw-r--r-- | lib/media/jao-random-album.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/media/jao-random-album.el b/lib/media/jao-random-album.el index 2800115..5b10308 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, 2021 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2017-2019, 2021-2022, 2024 Jose Antonio Ortega Ruiz ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;; Start date: Sat Jul 04, 2009 13:06 @@ -20,10 +20,10 @@ (require 'jao-notify) -(defvar jao-random-album-p t) +(defvar jao-random-album-active t) (defvar jao-random-lines nil) (defvar jao-random-lines-file (expand-file-name "~/.emacs.d/random-lines")) -(defvar jao-random-album-notify-p t) +(defvar jao-random-album-notify t) (defvar jao-random-album-notify-icon jao-notify-audio-icon) (defvar jao-random-album-skip-lines 2) @@ -60,19 +60,19 @@ (defun jao-random-album-start () (interactive) - (setq jao-random-album-p t) + (setq jao-random-album-active t) (jao-random-album-next)) (defun jao-random-album-stop () (interactive) - (setq jao-random-album-p nil) + (setq jao-random-album-active nil) (funcall jao-random-album-stop)) (defun jao-random-album-toggle () (interactive) - (setq jao-random-album-p (not jao-random-album-p)) + (setq jao-random-album-active (not jao-random-album-active)) (message "Random album %s" - (if jao-random-album-p "enabled" "disabled"))) + (if jao-random-album-active "enabled" "disabled"))) (defun jao-random-album-next () (interactive) @@ -80,7 +80,7 @@ (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 + (when jao-random-album-notify (jao-notify album "Next album" jao-random-album-notify-icon))))) (defun jao-random-album-reset () |