Welcome to the CHICKEN Scheme pasting service

mpd_playing.scm added by mario-goulart on Wed Dec 14 01:34:23 2011

(use (prefix mpd-client mpd:))

(define (nowplaying)
  (let* ((con (mpd:connect))
	 (status (mpd:get-status con)))
    (when (eqv? (alist-ref 'state status) 'play)
      (let ((title (alist-ref 'Title (mpd:get-current-song con))))
	(display (string-append "Playing: " title))))
    (mpd:disconnect con)))

(nowplaying)
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which procedure can be used to check whether its argument is a procedure?
Visually impaired? Let me spell it for you (wav file) download WAV