   (let ((func-name (format "spotify-%s-%s" spotify-transport suffix)))
     (apply (intern func-name) args)))
 
+(defun spotify-current-track-msg ()
+  ""
+  (sleep-for 0.1)
+  (let ((artist (spotify-current-track-artist))
+        (name (spotify-current-track-name)))
+    (when (spotify-playing-p)
+      (message "Spotify is now playing: %s - %s" artist name))))
+
 (defun spotify-playing-status-msg ()
   "Returns a string that describes whether Spotify is paused or playing."
+  (sleep-for 0.1)
   (message "Spotify is now %s"
            (if (spotify-playing-p) "playing" "paused")))
 

(defun spotify-next-track ()
  "Sends a `next track' command to Spotify process."
  (interactive)
  (spotify-apply "player-next-track"))

(defun spotify-previous-track ()
  "Sends a `previous track' command to Spotify process."
  (interactive)
  (spotify-apply "player-previous-track"))

(defun spotify-pause ()
  "Sends a `pause' command to Spotify process."

  (spotify-apply "toggle-shuffle")
  (message "Spotify shuffling is %s"
           (if (spotify-shuffling-p) "on" "off")))

(defun spotify-current-track-artist ()
  "Retrieves the artist name of the track being played in Spotify app."
  (interactive)
  (spotify-apply "current-track-artist"))

(defun spotify-current-track-album ()
  "Retrieves the album name of the track being played in Spotify app."
  (interactive)
  (spotify-apply "current-track-album"))

(defun spotify-current-track-name ()
  "Retrieves the name of the track being played in Spotify app."
  (interactive)
  (spotify-apply "current-track-name"))

;;;
;;; D-Bus-specific code
