X-Git-Url: http://christophe.rhodes.io/gitweb/?p=squeeze-el.git;a=blobdiff_plain;f=squeeze.el;h=c3430946074110addd69f88c5c01a3bb90406a36;hp=2b0e4b8e080cc649a8bff77e1ae6c6103cc2c7db;hb=abf91c38a4422821c03c56f295e1a865ed13812d;hpb=35e9f983ea6d8779a18eaacdece6e57342a810db

diff --git a/squeeze.el b/squeeze.el
index 2b0e4b8..c343094 100644
--- a/squeeze.el
+++ b/squeeze.el
@@ -24,6 +24,7 @@
 (defvar squeeze-control-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "SPC") 'squeeze-control-toggle-power)
+    (define-key map (kbd "f") 'squeeze-control-play-favorite)
     (define-key map (kbd "g") 'squeeze-control-refresh)
     (define-key map (kbd "+") 'squeeze-control-volume-up)
     (define-key map (kbd "-") 'squeeze-control-volume-down)
@@ -179,6 +180,13 @@
     (setq id (get-text-property (point) 'squeeze-playerid)))
   (comint-send-string (get-buffer-process "*squeeze*") (format "%s power\n" id)))
 
+(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)))
+
 (defun squeeze-control-query-power (&optional id)
   (interactive)
   (unless id