diff options
| author | mlang <mlang> | 2006-09-29 22:15:00 +0000 |
|---|---|---|
| committer | mlang <mwolson@gnu.org> | 2006-09-29 22:15:00 +0000 |
| commit | 2e8093272bef16a36d8e0164fe6e7ebb00a9e775 (patch) | |
| tree | 292e455dec7935aabab34eae71be4b80be21cd4e | |
| parent | 3e77f17447d5094f3b3711ed391dceb71639fad5 (diff) | |
seek-for-alsaplayer
Add relative seek support for alsaplayer
darcs-hash:20060929221527-08870-4f515bbd69389f261ffefdef0a295c54594c194d.gz
| -rw-r--r-- | emms-player-simple.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/emms-player-simple.el b/emms-player-simple.el index 244f701..de3edad 100644 --- a/emms-player-simple.el +++ b/emms-player-simple.el @@ -194,8 +194,15 @@ PLAYER is the name of the current player." 'resume nil) +(emms-player-set emms-player-alsaplayer + 'seek + 'emms-player-alsaplayer-seek) + (defun emms-player-alsaplayer-pause () (call-process "alsaplayer" nil nil nil "--pause")) +(defun emms-player-alsaplayer-seek (sec) + (call-process "alsaplayer" nil nil nil "--relative" (format "%d" sec))) + (provide 'emms-player-simple) ;;; emms-player-simple.el ends here |