From: Christophe Rhodes <csr21@cantab.net>
Date: Sat, 5 Apr 2014 12:53:03 +0000 (+0100)
Subject: start working on changing playlists
X-Git-Url: http://christophe.rhodes.io/gitweb/?p=squeeze-el.git;a=commitdiff_plain;h=abf91c38a4422821c03c56f295e1a865ed13812d

start working on changing playlists

for now, just simple numeric favourites, through a bit of a sucky
interface.  Baby steps...
---

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