[emms-help] Re: Now-playing message

[Michael Olson]

Michael Olson <address@hidden> writes:

> (defun np-maybe ()
>   (emms-player-mpd-show
>    nil
>    (lambda (buffer desc)
>      (when (stringp desc)
>        (unless (and (stringp np-last)
>                     (string= np-last desc))
>          (setq np-last desc)
>          (message desc))))))

Oops, that should be:

(defun np-maybe ()
  (emms-player-mpd-show
   nil
   (lambda (buffer desc)
     (when (and (stringp desc)
                (not (string= desc "")))
       (unless (and (stringp np-last)
                    (string= np-last desc))
         (setq np-last desc)
         (message "%s" desc))))))

-- 
Michael Olson -- FSF Associate Member #652 -- http://www.mwolson.org/
Interests: Lisp, text markup, protocols -- Jabber: mwolson_at_hcoop.net
  /` |\ | | | Projects: Emacs, Muse, ERC, EMMS, Planner, ErBot, DVC
 |_] | \| |_| Reclaim your digital rights by eliminating DRM.
      See http://www.defectivebydesign.org/what_is_drm for details.

pgplSpjMU660A.pgp
Description: PGP signature