Introduce <playlist> record, plus some plumbing.

Author: toothbrush

Spotiqueue/Classes/RBGuileBridge.swift

@@ -46,6 +46,14 @@ public func track_to_scm_record(track: RBSpotifyItem) -> SCM {
                scm_from_int32(Int32(track.durationSeconds))) // duration in seconds
 }
 
+@_cdecl("playlist_to_scm_record")
+public func playlist_to_scm_record(track: RBSpotifyItem) -> SCM {
+    // Same caveats apply as with `track_to_scm_record`.
+    scm_call_2(scm_c_public_ref("spotiqueue records", "make-playlist"),
+               scm_from_utf8_string(track.spotify_uri), // uri
+               scm_from_utf8_string(track.title)) // title
+}
+
 @objc class RBGuileBridge: NSObject {
     private static func call_hook(hook_name: String, args_list: SCM) {
         assert(Thread.isMainThread)

Spotiqueue/GuileHelpers.m

@@ -90,7 +90,11 @@ SCM get_tracks_from(NSArray* realTracks) {
                                SCM_UNDEFINED);
     int32_t pos = 0;
     for (RBSpotifyItem* t in realTracks) {
-        scm_list_set_x(tracks, scm_from_int32(pos), track_to_scm_record(t));
+        if ([t itemType] == ItemTypePlaylist) {
+            scm_list_set_x(tracks, scm_from_int32(pos), playlist_to_scm_record(t));
+        } else {
+            scm_list_set_x(tracks, scm_from_int32(pos), track_to_scm_record(t));
+        }
         pos++;
     }
 

guile/spotiqueue/base.scm

@@ -73,6 +73,7 @@
 
 (define (just-the-uri-please item)
   (cond ((track?    item) (track-uri item))
+        ((playlist? item) (playlist-uri item))
         ((string?   item)  item)
         (else #nil)))
 

guile/spotiqueue/records.scm

@@ -32,4 +32,19 @@
 (define (track-album track) (_track-album track))
 (define (track-duration track) (_track-duration track))
 
+;; A fledgling record type for playlists, so that we can support retrieving the contents of the
+;; search pane, too.
+(define-record-type <playlist>
+  (_make-playlist uri title)
+  _playlist?
+  (uri   _playlist-uri)
+  (title _playlist-title))
+
+(define (make-playlist uri title)
+  (_make-playlist uri title))
+
+(define (playlist? playlist) (_playlist? playlist))
+(define (playlist-uri playlist) (_playlist-uri playlist))
+(define (playlist-title playlist) (_playlist-title playlist))
+
 ;;; END records.scm