+(defun squeeze-control-play-favorite (&optional favorite id)
+ (interactive "nFavourite: ")
+ (unless id
+ (setq id (get-text-property (point) 'squeeze-playerid)))
+ (comint-send-string (get-buffer-process "*squeeze*")
+ (format "%s favorites playlist play item_id:%d\n" id favorite)))
+