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 0f460ee commit 5f4cf01
Show file tree
Hide file tree
Showing 3 changed files with 5 additions and 6 deletions.
1 change: 1 addition & 0 deletions smudge-api.el
Original file line number Diff line number Diff line change
Expand Up @@ -14,6 +14,7 @@
(require 'simple-httpd)
(require 'request)
(require 'oauth2)
(require 'browse-url)

(defcustom smudge-oauth2-client-id ""
"The unique identifier for your application.
Expand Down
9 changes: 3 additions & 6 deletions smudge-apple.el
Original file line number Diff line number Diff line change
Expand Up @@ -14,16 +14,13 @@

(require 'smudge-controller)

(defvar smudge-apple-player-status-script)
(defvar smudge-apple-player-status-script-file)

(defcustom smudge-osascript-bin-path "/usr/bin/osascript"
"Path to `osascript' binary."
:group 'smudge
:type 'string)

;; Do not change this unless you know what you're doing
(setq smudge-apple-player-status-script "
(defconst smudge-apple-player-status-script "
# Source: https://github.com/andrehaveman/smudge-node-applescript
on escape_quotes(string_to_escape)
set AppleScript's text item delimiters to the \"\\\"\"
Expand All @@ -50,8 +47,8 @@ end tell
")

;; Write script to a temp file
(setq smudge-apple-player-status-script-file
(make-temp-file "smudge.el" nil nil smudge-apple-player-status-script))
(defconst smudge-apple-player-status-script-file
(make-temp-file "smudge.el" nil nil smudge-apple-player-status-script))

(defun smudge-apple-command-line (cmd)
"Return a command line prefix for any Spotify command CMD."
Expand Down
1 change: 1 addition & 0 deletions smudge.el
Original file line number Diff line number Diff line change
Expand Up @@ -154,6 +154,7 @@ Prompt for the NAME and whether it should be made PUBLIC."
(define-key map (kbd "d") #'smudge-select-device)
map)
"Keymap for Spotify commands after \\='smudge-keymap-prefix\\='.")

(fset 'smudge-command-map smudge-command-map)

(easy-menu-add-item nil '("Tools")
Expand Down

0 comments on commit 5f4cf01

Please sign in to comment.