Skip to content

Commit

Permalink
Fix more melpazoid warnings
Browse files Browse the repository at this point in the history
  • Loading branch information
danielfm committed Dec 5, 2023
1 parent 116763d commit e94517c
Show file tree
Hide file tree
Showing 3 changed files with 13 additions and 12 deletions.
8 changes: 4 additions & 4 deletions smudge-api.el
Original file line number Diff line number Diff line change
Expand Up @@ -6,8 +6,8 @@

;;; Commentary:

;; This library is the interface to the Spotify RESTful API. It also does some custom handling of
;; the OAuth code exchange via 'simple-httpd
;; This library is the interface to the Spotify RESTful API. It also does some
;; custom handling of the OAuth code exchange via 'simple-httpd

;;; Code:

Expand Down Expand Up @@ -608,14 +608,14 @@ Call CALLBACK if provided."
callback))

(defun smudge-api-queue-add-tracks (track-ids &optional callback)
"Add given TRACK-IDs to the queue"
"Add given TRACK-IDS to the queue"
;; Spotify's API doesn't provide a endpoint that would enable us to
;; add multiple tracks to the queue at the same time.
;; Thus we have to synchronously add the tracks
;; one by one to the queue.
(if (car track-ids)
(smudge-api-queue-add-track (car track-ids)
(lambda (response)
(lambda (_)
(smudge-api-queue-add-tracks (cdr track-ids)
nil)))
(funcall callback)))
Expand Down
5 changes: 3 additions & 2 deletions smudge-apple.el
Original file line number Diff line number Diff line change
Expand Up @@ -6,8 +6,9 @@

;;; Commentary:

;; This library handles controlling Spotify via Applescript commands. It implements a set of
;; multimethod-like functions that are dispatched in smudge-controller.el.
;; This library handles controlling Spotify via Applescript commands. It
;; implements a set of multimethod-like functions that are dispatched in
;; smudge-controller.el.

;;; Code:

Expand Down
12 changes: 6 additions & 6 deletions smudge-connect.el
Original file line number Diff line number Diff line change
Expand Up @@ -6,9 +6,9 @@

;;; Commentary:

;; This library uses the "connect" APIs to control transport functions of remote and local instances
;; of Spotify clients. It implements a set of multimethod-like functions that are dispatched in
;; smudge-controller.el.
;; This library uses the "connect" APIs to control transport functions of
;; remote and local instances of Spotify clients. It implements a set of
;; multimethod-like functions that are dispatched in smudge-controller.el.

;; smudge-connect.el --- Smudge transport for the Spotify Connect API

Expand Down Expand Up @@ -125,9 +125,9 @@ Returns a JSON string in the format:
(let ((volume (smudge-connect-get-volume status)))
(if (eq volume 0)
(smudge-api-set-volume (smudge-connect-get-device-id status) 100
(lambda (_) (message "Volume unmuted")))
(lambda (_) (message "Volume unmuted")))
(smudge-api-set-volume (smudge-connect-get-device-id status) 0
(lambda (_) (message "Volume muted")))))))))
(lambda (_) (message "Volume muted")))))))))

(defun smudge-connect-toggle-repeat ()
"Toggle repeat for the current track."
Expand Down Expand Up @@ -156,7 +156,7 @@ Returns a JSON string in the format:
(defun smudge-connect--is-shuffling (player-status)
"Business logic for shuffling state of PLAYER-STATUS."
(and player-status
(not (eq (gethash 'shuffle_state player-status) :json-false))))
(not (eq (gethash 'shuffle_state player-status) :json-false))))

(defun smudge-connect--is-repeating (player-status)
"Business logic for repeat state of PLAYER-STATUS."
Expand Down

0 comments on commit e94517c

Please sign in to comment.