howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a nice playlist in my "default" location to ready-player

Browse source
This commit is contained in:
Howard Abrams 2026-02-04 10:11:33 -08:00
parent 6e3e074072
commit 2150fb9a42
2 changed files with 36 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
ha-aux-apps.org
View file

@ -234,6 +234,19 @@ A more /rich/ experience than the [[https://github.com/isamert/empv.el][empv]] p
brew install mpv
#+END_SRC
And make sure we can play it:
#+BEGIN_SRC sh
mpv "/Volumes/music/Steely Dan/Aja/01 Black Cow.mp3"
#+END_SRC
And stream my favorite local Jazz radio station:
#+BEGIN_SRC sh
mpv --terminal --force-window=no --no-resume-playback \
'https://ais-sa3.cdnstream1.com/2442_128.aac/playlist.m3u8'
#+END_SRC
And then the configuration:
#+BEGIN_SRC emacs-lisp
@ -244,23 +257,31 @@ And then the configuration:
(set-fontset-font t nil "SF Pro Display" nil 'append)
(ready-player-macos-use-sf-symbols))
(ready-player-mode +1)
(setq ready-player-my-media-collection-location "/Volumes/music"))
(setq ready-player-my-media-collection-location "/Volumes/music")
(defun ha-ready-player-load-playlist ()
"Open a playlist in the correct location."
(interactive)
(let ((default-directory
(expand-file-name "Playlists/"
ready-player-my-media-collection-location)))
(setq ready-player-shuffle t)
(call-interactively 'ready-player-load-m3u-playlist)))
(transient-append-suffix 'ready-player-menu "?"
'("P" "Load Playlist" ha-ready-player-load-playlist))
(ha-leader "a r" '("ready player" . ready-player-menu))
(ready-player-mode +1))
#+END_SRC
Since ready-player doesn’t support [[https://github.com/xenodium/ready-player/issues/36][adjusting the volume]], I can, at least, set the /default volume/ low enough that my speaker adjustment affects it:
#+BEGIN_SRC conf :tangle ~/.config/mpv/mpv.conf
volume=20
volume=50
#+END_SRC
Keep in mind, that if I can dig into the code to figure out the socket name, perhaps we could do something like:
#+BEGIN_SRC sh
echo '{ "command": ["set", "volume", <volume_value>] }' | socat - /tmp/mpvsocket
#+END_SRC
Another option for the volume is to use *vlc*, as it brings up an separate UI that would allow adjusting the volume.
* Technical Artifacts :noexport:
Let's =provide= a name so we can =require= this file:

7
hammerspoon.org
View file

@ -2,7 +2,7 @@
#+author: Howard X. Abrams
#+date: 2025-11-24
#+filetags: emacs hamacs
#+lastmod: [2025-12-02 Tue]
#+lastmod: [2026-02-04 Wed]
A literate programming file for configuring Hammerspoon.
@ -79,6 +79,11 @@ To create special key bindings, I can:
hs.hotkey.bind({"alt", "ctrl", "shift"}, "M", function()
hs.execute("~/bin/emacs-capture-meeting")
end)
-- Current music system is actually in Emacs:
hs.hotkey.bind({"alt", "ctrl", "shift"}, "R", function()
hs.execute("/opt/homebrew/bin/emacsclient -s work -e '(ready-player-toggle-play-stop)'")
end)
#+END_SRC
* Zoom
Library extensions to Hammerspoon are called /spoons/, and most of these are a simple Lua script, =init.lua= stored in the =Spoons= subdirectory. We grab these with a =git clone=, typically. To use the Zoom spoon, clone it: