diff options
| author | jao <jao@gnu.org> | 2021-05-31 20:27:27 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-05-31 20:27:27 +0100 |
| commit | 08876c776d423cd0d5f651bdc054cb6d48aae7fc (patch) | |
| tree | e77a2f92fb1e783a91e25f2bdc7d00e9893a319e /lib/media | |
| parent | 83d492d36407588707e41098381328e8b1ebe26c (diff) | |
| download | elibs-08876c776d423cd0d5f651bdc054cb6d48aae7fc.tar.gz elibs-08876c776d423cd0d5f651bdc054cb6d48aae7fc.tar.bz2 | |
mpc seek
Diffstat (limited to 'lib/media')
| -rw-r--r-- | lib/media/jao-mpc.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/media/jao-mpc.el b/lib/media/jao-mpc.el index 9004920..6531a8d 100644 --- a/lib/media/jao-mpc.el +++ b/lib/media/jao-mpc.el @@ -29,7 +29,7 @@ (require 'jao-lyrics) (defvar jao-mpc--connection nil) -(defvar-local jao-mpc--local-connecton nil) +(defvar-local jao-mpc--local-connection nil) (defvar-local jao-mpc--local-port nil) (defvar jao-mpc-host "localhost") @@ -154,6 +154,8 @@ "Mode to display the list of playlist known by mpd." (read-only-mode -1) (delete-region (point-min) (point-max)) + (setq-local jao-mpc--local-connecton jao-mpc--connection + jao-mpc--local-port jao-mpc-port) (insert (shell-command-to-string (format "mpc -p %s playlist" jao-mpc-port))) (goto-char (point-min)) (display-line-numbers-mode) @@ -212,6 +214,11 @@ (jao-mpc--send "previous" nil)) ;;;###autoload +(defun jao-mpc-seek (delta) + (interactive "nDelta") + (jao-mpc--send (format "seekcur %s%s" (if (> delta 0) "+" "") delta) nil)) + +;;;###autoload (defun jao-mpc-clear () (interactive) (jao-mpc--send "clear" nil)) @@ -232,8 +239,6 @@ "Show current playlist." (interactive) (pop-to-buffer (jao-mpc--playlist-buffer)) - (setq-local jao-mpc--local-connecton jao-mpc--connection - jao-mpc--local-port jao-mpc-port) (jao-mpc--playlist-goto-current)) ;;;###autoload |