Allow the call of multiple closures when getting the server response.

Each closure is called in turn with the parsed data as argument.

TODO

@@ -4,8 +4,9 @@
   CLOSED: [2011-07-28 Thu 14:28]
   Then add a vector that binds position to songid.
 
-* TODO Allow the call of multiple closures when receiving server responses.
-  Maybe use keywords as :before, :after and the likes.
+* DONE Allow the call of multiple closures when receiving server responses.
+  CLOSED: [2011-08-05 Fri 14:59]
+  Call all the closures specified in order.
 
 * TODO Rewrite with-updated-status.
   If disconnected when using the `pause' command, it reconnects but uses wrong

empc.el

@@ -198,14 +198,17 @@ songs order is kept into an avector `empc-current-playlist'."
 	  (empc-send-status)
 	  (empc-send-playlistinfo)))))))
 
-(defun empc-handle-response (closure msg)
+(defun empc-handle-response (closures msg)
   "Retrieve the response from the server.
-Check the error code and process it using CLOSURE."
+Check the error code and process it using CLOSURES."
   (let ((data (empc-response-parse-message msg)))
     (if (eq (car data) 'error)
 	(empc-echo-error (cdr data))
-      (if closure
-	  (funcall closure data))))
+      (when closures
+	(if (listp closures)
+	    (dolist (closure closures)
+	      (funcall closure data))
+	  (funcall closures data)))))
   (empc-maybe-enter-idle-state))
 
 (defun empc-initialize ()