diff options
| -rw-r--r-- | attic/misc.el | 18 | ||||
| -rw-r--r-- | init.el | 17 |
2 files changed, 18 insertions, 17 deletions
diff --git a/attic/misc.el b/attic/misc.el index a720042..d448ae7 100644 --- a/attic/misc.el +++ b/attic/misc.el @@ -301,6 +301,24 @@ (goto-char (point-min)) (when (re-search-forward "^[Mm]essage-[Ii][Dd]: <?\\([^><]+\\)>?" nil t) (match-string 1)))) +;;; old volume controls +(defun jao-player-volume-delta (raise) + (jao-player-vol-delta (if raise 5 -5)) + (sit-for 0.05) + (jao-player-show-volume)) + +(defun jao-player-volume-raise () + (interactive) + (jao-player-volume-delta t)) + +(defun jao-player-volume-lower () + (interactive) + (jao-player-volume-delta nil)) + +(defun jao-player-show-volume () + (interactive) + (jao-notify "Volume" (format "%s%%" (jao-player-volume)))) + ;;; snippets (defun jao-sway-run-or-focus-tidal () (interactive) @@ -3219,23 +3219,6 @@ (require 'jao-lyrics) (setq jao-lyrics-info-function #'jao-player-info) -(defun jao-player-volume-delta (raise) - (jao-player-vol-delta (if raise 5 -5)) - (sit-for 0.05) - (jao-player-show-volume)) - -(defun jao-player-volume-raise () - (interactive) - (jao-player-volume-delta t)) - -(defun jao-player-volume-lower () - (interactive) - (jao-player-volume-delta nil)) - -(defun jao-player-show-volume () - (interactive) - (jao-notify "Volume" (format "%s%%" (jao-player-volume)))) - (defun jao-player-seek-10 () (interactive) (jao-player-seek 10)) (defun jao-player-seek--10 () (interactive) (jao-player-seek -10)) |