diff --git a/smudge-api.el b/smudge-api.el index 21af503..3d803a2 100644 --- a/smudge-api.el +++ b/smudge-api.el @@ -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. diff --git a/smudge-apple.el b/smudge-apple.el index 7dfa527..b7960d0 100644 --- a/smudge-apple.el +++ b/smudge-apple.el @@ -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 \"\\\"\" @@ -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." diff --git a/smudge.el b/smudge.el index d0ea6af..358275f 100644 --- a/smudge.el +++ b/smudge.el @@ -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")