[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Emms-patches] [PATCH] let emms-player-mpd support single track rep
From: |
Michael Olson |
Subject: |
Re: [Emms-patches] [PATCH] let emms-player-mpd support single track repeat. |
Date: |
Mon, 31 Aug 2009 10:11:20 -0700 |
Can you refactor this in such a way that this new functionality is
implemented in emms-player-mpd.el, instead of emms.el?
On Mon, Aug 31, 2009 at 4:12 AM, S.P.Tseng<address@hidden> wrote:
> ---
> lisp/emms.el | 7 ++++++-
> 1 files changed, 6 insertions(+), 1 deletions(-)
>
> diff --git a/lisp/emms.el b/lisp/emms.el
> index 3c5402d..5fc1ab7 100644
> --- a/lisp/emms.el
> +++ b/lisp/emms.el
> @@ -501,9 +501,14 @@ See `emms-repeat-playlist'."
> See `emms-repeat-track'."
> (interactive)
> (setq emms-repeat-track (not emms-repeat-track))
> + (when (equal (emms-player-for
> + (emms-playlist-current-selected-track)) 'emms-player-mpd)
> + (emms-player-mpd-send
> + (concat "single " (if emms-repeat-track "1" "0"))
> + nil #'ignore))
> (if emms-repeat-track
> (message "Will repeat the current track.")
> - (message "Will advance to the next track after this one.")))
> + (message "Will advance to the next track after this one.")))
>
> (defun emms-sort-track-name-less-p (a b)
> "Return non-nil if the track name of A sorts before B."
> --
> 1.6.4.2
>
>
>
> _______________________________________________
> Emms-patches mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emms-patches
>
--
Michael Olson || http://mwolson.org/
Projects: Emacs, Muse, ERC, EMMS